- VBプログラマ質問スレ（Ver.6.0 まで） part64
644 ：デフォルトの名無しさん[]：2015/04/24(金) 20:14:41.53 ID:e7xK7URf - VB6でのDateDiffの仕様について質問です。
下記のコードをVB6で実行すると結果はどうなりますか？
'----Start----
Dim resultYer As String
Dim resultMon As String
Dim resultDay As String
Dim resultHor As String
Dim resultMin As String
Dim day1 As Date = Date.Parse("2006/11/1 12:00:00")
Dim day2 As Date = Date.Parse("2006/11/2 11:59:00")
resultYer = DateDiff("y", day1, day2)
resultMon = DateDiff("m", day1, day2)
resultDay = DateDiff("d", day1, day2)
resultHor = DateDiff("h", day1, day2)
resultMin = DateDiff("m", day1, day2)
MsgBox("年の差：" + resultYer + vbNewLine _
+ "月の差: " + resultMon + vbNewLine _
+ "日の差：" + resultDay + vbNewLine _
+ "時の差：" + resultHor + vbNewLine _
+ "分の差：" + resultMin)
'----End----
VB6⇔vb.netでDateDiffの仕様が違うと聞きました。
（情報元）ttp://bbs.wankuma.com/index.cgi?mode=al2&namber=70339&KLOG=120
自宅にはvb.net環境はありますが、VB6の環境がないため、仕様の差を確認できずに困っています。ちなみにvb.netだと以下のメッセージが表示されます。
年の差：0、月の差：0、日の差：0、時の差：23、分の差：0
|