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

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

思うてたんと違う！

Dim d1 As Date
Dim d2 As Date

d1 = Date
Debug.Print CDbl(d1)
d2 = Date
Debug.Print CDbl(d2)
Debug.Print (d1 = d2)

d1 = DateAdd("s", 1, Date)
Debug.Print CDbl(d1)
d1 = DateAdd("s", -1, Date)
Debug.Print CDbl(d1)
d2 = Date
Debug.Print CDbl(d2)
Debug.Print (d1 = d2)

42522
42522
True

42522.0000115741
42521.9999884259
42522
False