@Rudi: Date
06.03.2011 11:57:49
Erich
Hi Rudi und Reinhard,
hier noch ein paar weitere Exkremente: ;-)
Aus der VBA-Hilfe:
Date-Funktion
Gibt einen Wert vom Typ Variant (Date) zurück, der das aktuelle Systemdatum enthält
Date 8 Bytes
Now-Funktion
Gibt einen Wert vom Typ Variant (Date) zurück, der das aktuelle Datum und die aktuelle Zeit
aus den Einstellungen für das Systemdatum und die Systemzeit auf Ihrem Computer angibt.
Date (Datentyp)
Ein Datentyp, der Datums- und Zeitangaben als reelle Zahlen speichert. Datumsvariablen
werden als 64-Bit-Zahlen (8 Bytes) gespeichert. Der Wert links vom Dezimalzeichen steht
für ein Datum, der Wert rechts vom Dezimalzeichen für eine Uhrzeit.
Date-Datentyp
Variablen vom Datentyp Date werden als 64-Bit-Gleitkommazahlen (8 Bytes) nach IEEE (wohl
IEEE 754) gespeichert und können ein Datum im Bereich vom 01. Januar 100 bis zum
31. Dezember 9999 und eine Uhrzeit im Bereich von 0:00:00 bis 23:59:59 speichern.
Jeder gültige Wert eines Datums- oder Zeitliterals kann einer Variablen vom Datentyp Date
zugewiesen werden. Ein Datumsliteral muß durch das Zeichen (#) eingeschlossen sein,
zum Beispiel: #January 1, 1993# oder #1 Jan 93#.
Variablen vom Datentyp Date verwenden zur Darstellung des Datums das auf dem Computer
eingestellte kurze Datumsformat. Zeitangaben werden mit dem auf dem Computer
eingestellten Zeitformat (entweder 12- oder 24-Stunden) dargestellt.
Beim Umwandeln anderer numerischer Datentypen in Werte des Datentyps Date
repräsentieren die Vorkommastellen das Datum und die Nachkommastellen die Uhrzeit.
Mitternacht entspricht dem Wert 0, und Mittag entspricht den Nachkommawert 0,5.
Negative ganze Zahlen repräsentieren ein Datum vor dem 30. Dezember 1899.
Und von mir:
Die Fkt. Date liefert ein Variant(Date), d. h. eine spezielle Double-Variable (kein Long).
Date ist wie Now. Der Unterschied ist lediglich, dass bei Date die Nachkommastellen 0 sind.
Für die Anzeige im Debugfenster bei ?Date wird NICHT der Double-Wert von Date angezeigt.
Debug.Print wandelt den Wert um in "das auf dem Computer eingestellte kurze Datumsformat"
und damit einen String. (Das tut es auch mit dem Wert einer Variablen vom Typ Date.)
Lass dir mal im Direktfenster ?CDate(0.354) anzeigen. Dann haben wir plötzlich eine Uhrzeit...
Man kann auch leicht das hier prüfen lassen:
MsgBox Date > 40607.123
MsgBox Date > 40607
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort