言語備忘録
VBA(VB6.0) 和暦→西暦
Sub aaa()
Debug.Print Format(CDate(Replace(Format("H21.4.1", "ge.m.d"), ".", "/")), "yyyymmdd")
Debug.Print Format(CDate(Replace(Format("平成21.4.1", "ge.m.d"), ".", "/")), "yyyymmdd")
Debug.Print Format(CDate(Replace(Format("平成21年4月20日", "ge""年""m""月""d""日"""), ".", "/")), "yyyymmdd")
End Sub
===============================================================
すべて表示
その他の最新記事
業務連絡
2006/7/13(木) 午後 11:21
8月より、熊本へ長期滞在が決定しました。しかも私用ネットできない環境に(水爆)。 つー事で、8月以降自宅に戻る間に連絡採りたい方は、AXE-AXESS-POINT掲示板にてその旨お伝えください。 タダヒロさん!!確か熊本でしたよね? これをご覧になったら、掲示板に連絡ください!! ドラスピできるゲーセン、ありません?
PS2
2006/6/26(月) 午後 11:48
一足早い誕生日プレゼントを弟より貰う。 PS2…… タイミング、よすぎ(爆)。
中日3連勝だ、イエア!
2006/6/25(日) 午後 6:51
いやいやいやいや、こんなこと起こっていいんでしょうか? 中日3連勝ですよ! で。巨人は…………5連敗?マジスカ?イヤミでもなんでもなく。本当に。 4月5月の猛攻は、何だったの?

