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,