言語備忘録
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
８月より、熊本へ長期滞在が決定しました。しかも私用ネットできない環境に(水爆)。 つー事で、８月以降自宅に戻る間に連絡採りたい方は、AXE-AXESS-POINT掲示板にてその旨お伝えください。 タダヒロさん！！確か熊本でしたよね？ これをご覧になったら、掲示板に連絡ください！！ ドラスピできるゲーセン、ありません？
ＰＳ２
2006/6/26(月) 午後 11:48
一足早い誕生日プレゼントを弟より貰う。 ＰＳ２…… タイミング、よすぎ(爆)。
中日３連勝だ、イエア！
2006/6/25(日) 午後 6:51
いやいやいやいや、こんなこと起こっていいんでしょうか？ 中日３連勝ですよ！ で。巨人は…………５連敗？マジスカ？イヤミでもなんでもなく。本当に。 ４月５月の猛攻は、何だったの？
