日付データを変換する
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　玄関へお回り下さい。
文字列を日付に変換する　　　　　　　　　　　　　　　（０６５）
　　　　 Option Explicit　　 'SampleNo=065　WindowsXP VB6.0(SP5) 2002.05.15
Private Sub Command1_Click()
'文字列を日付に変換する
'構文　 バリアント型Date = DateValue("日付に変換する文字列")

　　Dim MyDate As Variant
　　MyDate = DateValue("平成１４年１月１０日")
　　Label1.Caption = "平成１４年１月１０日 ⇒ " & MyDate　 '結果　　02/01/10

'=================================================================
'日付に変換したい文字列は
'"1991/12/30"　"91/12/30" "平成 3 年 12 月 30 日" "H3 - 12 - 30"
'"H10-8-8" "1 Aug 98"
'などの形式で指定することもできます｡
'=================================================================
End Sub
数値を日付に変換する　　　　　　　　　　　　　　　　　（０６５）
　　
Private Sub Command2_Click()
'数値を日付に変換する
'構文　バリアント型Date=DateSerial(年を表す数値、月を表す数値、日を表す数値)

　　Dim Ret As Variant
　　Dim yy　As Integer
　　Dim mm　As Integer
　　Dim dd　As Integer
　　yy = 2: mm = 1: dd = 10
　　Ret = DateSerial(yy, mm, dd)
　　Label2.Caption = "DateSerial(2, 1, 10) ⇒ " & Ret　 '結果　02/01/10
End Sub
西暦を和暦に和暦を西暦に変換する　　　　　　　　　　　　　　（０６５）
　　 単なる表示の時だけでいいのであれば

Private Sub Command3_Click()
　　Label3.Caption = "2002/1/10 ⇒ " & _
　　　　　　 Format$("2002/1/10", "GGGEE年MM月DD日") '平成14年01月10日
End Sub


Private Sub Command4_Click()
　　Label4.Caption = "平成14年01月10日 ⇒ " & _
　　　　　　 Format$("平成14年01月10日", "YYYY/MM/DD") '2002/01/10
End Sub

西暦から１９２５を引けば昭和に１９８８を引けば平成になるが現バージョンでは必要がないのでは、但し、入力時和暦で入力してデータとして西暦に変換して保管といったことは必要です
その場合、昭和か平成かをオプションボタン等で選択するようにしておき、昭和なら１９２５を足し西暦に直しデータを格納する。
指定した日数を加算した日付を求める　　　　　　　　　　　（０６５）
　　
Private Sub Command5_Click()
'指定した日数を加算した日付を求める
'バリアント型Date = DateAdd(時間間隔､加算する時間間隔､基準日付)
'==============================================
'　 時間間隔　　yyyy　　年
'　　　　　　　 q　　　 四半期
'　　　　　　　 m　　　 月
'　　　　　　　 y　　　 年間通算日
'　　　　　　　 d　　　 日
'　　　　　　　 ww　　　週
'===============================================
　　Dim Ret As Variant
　　Ret = DateAdd("ww", 7, "02/1/10")
　　Label5.Caption = "02/1/10 の７週間後＝ " & Ret
　　'結果　　02/1/10 の７週間後＝ 02/02/28
End Sub
２つの日付の時間間隔を求める　　　　　　　　　　　　（０６５）
　　
Private Sub Command6_Click()
'２つの日付の時間間隔を求める
'バリアント型Date=DateDiff(時間間隔、Date1,Date2,,)
'==============================================
'　 時間間隔　　yyyy　　年
'　　　　　　　 q　　　 四半期
'　　　　　　　 m　　　 月
'　　　　　　　 y　　　 年間通算日
'　　　　　　　 d　　　 日
'　　　　　　　 ww　　　週
'===============================================
　　Dim Ret As Variant
　　Ret = DateDiff("d", "01/12/1", "02/1/10")
　　Label6.Caption = "01/12/1 ⇒ 02/1/10 " & Ret & " 日間です"
　　'結果　　01/12/1 ⇒ 02/1/10 40 日間です
End Sub




2002/05/15