Referenz - DATEVALUE
Syntax: DATEVALUE (Datum)
Typ: Funktion
Kategorie: Datum und Zeit
Anmerkung:
Um diese Funktion nutzen zu können, muss die Datei datetime.bi in Ihren Quellcode eingebunden werden, z. B. mit INCLUDE. Alternativ können Sie auch die Datei vbcompat.bi einbinden, da dadurch auch automatisch datetime.bi eingebunden wird.
DATEVALUE verwandelt einen STRING mit einer Datumsangabe in eine Serial Number.
- 'Datum' ist der String, der in eine Serial Number verwandelt werden soll.
- Der Rückgabewert ist ein INTEGER, der den Datumsanteil der Serial Number enthält.
'Datum' muss in einem der folgenden Formate übergeben werden (dies ist jedoch abhängig von der Lokalisierung des Systems):
- dd.mm.yyyy
- dd-mm-yyyy
- dd/mm/yyyy
- dd.mm.yy
- dd-mm-yy
- dd/mm/yy
- d.m.yyyy
- d-m-yyyy
- d/m/yyyy
- d.m.yy
- d-m-yy
- d/m/yy
Wenn das System auf das amerikanische Datumsformat mm-dd-yyyy eingestellt ist, muss 'Datum' auch in einem entsprechenden Format übergeben werden.
Beispiel:
Das heutige Datum mit DATE ermitteln und in eine Serial Number verwandeln:
#Include "datetime.bi"
Dim dv As Integer
Dim dt As String
' DATE gibt das aktuelle Datum im Format mm-dd-yyyy zurück.
dt = Date
' DATEVALUE(Datum) erwartet das Datum im Format dd-mm-yyyy
Swap dt[0], dt[3] ' nach dd-mm-yyyy wandeln
Swap dt[1], dt[4]
dv = DateValue(dt)
Print dv
Sleep
Sind die Regionaleinstellungen des Systems nicht bekannt, kann die Serial Number des aktuellen Datums auch folgendermaßen ermittelt werden:
#Include "datetime.bi"
Dim dv As Integer = Int(Now)
Print dv
Sleep
Unterschiede zu QB: existiert nur in QBX PDS und in VBDOS.
Unterschiede zu früheren Versionen von FreeBASIC: existiert seit FreeBASIC v0.15
Siehe auch:
NOW, DATESERIAL, DATEDIFF, TIMEVALUE, YEAR, MONTH, DAY, WEEKDAY, MONTHNAME, WEEKDAYNAME, DATEADD, DATEPART, FORMAT, ISDATE, Serial Numbers, Datum und Zeit
Zusätzliche Informationen und Funktionen | ||||
---|---|---|---|---|
|