VB: Datumcalkulation

Wie kann ich in VB vom Datum 1 Sekunde abziehen?

Habe mit DateDiff-Funktion versucht, da muß man aber anderes Datum abziehen und nicht die Zeit.

Danke im Voraus

Hi,
mit der DateAdd-Funktion und einem negativen Wert :wink:

Dim dat1 As Date
Dim dat2 As Date

Private Sub Form\_Load()
 dat1 = Date + Time
 dat2 = DateAdd("s", -1, dat1)
End Sub

ergibt:
dat1 = 01.08.00 11:52:51
dat2 = 01.08.00 11:52:50

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]