DateTimeToFileDate()
DateTimeToFileDate() – In FileDate umwandeln
Mit DateTimeToFileDate() kann man einen Wert des Typs D (Codeblock-Datumstyp) in einen DOS-Datums- / Zeitwert konvertieren. Mit DateTimeToFileDate wird z.B. ein Datums-Wert in ein Format konvertiert, das vom Parameter aFileAge von FileSetDate() verwendet werden kann.
Parameter | Beschreibung |
---|---|
aDateTime:D | Datumswert |
Rückgabewert
Numerisch - Ergebniscode
Beispiel
CODE
| nHandle, dDatum, nDatum, nError |
nHandle := FileOpen('C:\TEMP\U_Zahlung.Pas', _OR(fo_ReadWrite, fo_Shared)),
if nHandle > -1 then
startseq,
dDatum := FileDateToDateTime(FileGetDate(nHandle)),
WriteLn(dDatum),
nDatum := DateTimeToFileDate(Date() + TimeEx()),
WriteLn(nDatum),
nError := FileSetDate(nHandle, nDatum),
if nError <> 0 then
WriteLn('Fehlercode ' + Str(nError)),
else
WriteLn('Neues Datei-Datum ' + DateTimeToStr(FileDateToDateTime(nDatum)))
endif,
always,
FileClose(nHandle),
stopseq,
endif,