Access総合相談所 27 [転載禁止]©2ch.net

[0322 名無しさん＠そうだ選挙にいこう 2016/06/01(水) 06:45:22.39]

>>321は忘れてください。

もう意味わかんない
　　Dim d1 As Date
　　Dim d2 As Date
　　Dim i As Long
　　
　　d1 = Date
　　d2 = DateAdd("s", 3, d1)
　　
　　For i = 1 To 3
　　　　d2 = DateAdd("s", -1, d2)
　　　　Debug.Print Format(d2, "yyyy-mm-dd hh:nn:ss")
　　　　Debug.Print d2 = d1
　　　　Debug.Print CDbl(d2)
　　　　Debug.Print CDbl(d1)
　　　　Debug.Print
　　Next