Rubrik: Datum/Zeit und Timer · Datums- und Zeitfunktionen | VB-Versionen: VB4, VB5, VB6 | 25.03.01 |
Erklärung der DateDiff-Funktion Zeigt, wie man die DateDiff einsetzt, um die Anzahl der Zeitintervalle zweier Datumswerte zu ermitteln. | ||
Autor: Marcel Colley | Bewertung: | Views: 61.191 |
go.to/gigawin | System: Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11 | Beispielprojekt auf CD |
Hier wird die DateDiff-Funktion anhand mehrerer Beispiele erklärt. Die DateDiff-Funktion lässt sich einsetzen, um die Anzahl der Zeitintervalle (Stunden, Minuten, Tage, ...) zweier Datumswerte zu ermitteln, z.B. die Anzahl der vergangenen Sekunden seit Ihrer Geburt.
' Ausgangsdatum (z.B. Geburtsdatum) Datum1 = "05.05.1973" ' Heute Datum2 = Format$(Now, "dd.mm.yyyy") ' Anzahl vergangener Sekunden seit Datum1 Dim Sekunden As Long Sekunden = DateDiff("s", Datum1, Datum2) ' Anzahl vergangener Minuten seit Datum1 Dim Minuten As Long Minuten = DateDiff("n", Datum1, Datum2) ' Anzahl vergangener Stunden seit Datum1 Dim Stunden As Long Stunden = DateDiff("h", Datum1, Datum2) ' Anzahl vergangener Tage seit Datum1 Dim Tage As Long Tage = DateDiff("d", Datum1, Datum2) ' Anzahl vergangener Wochen seit Datum1 Dim Wochen As Long Wochen = DateDiff("ww", Datum1, Datum2) ' Anzahl vergangener Monate seit Datum1 Dim Monate As Long Monate = DateDiff("m", Datum1, Datum2) ' Anzahl vergangener Jahre seit Datum1 Dim Jahre As Long Jahre = DateDiff("yyyy", Datum1, Datum2)