DateTimeToFileDate
Модуль: SysUtils
function DateTimeToFileDate(DateTime: TDateTime): Integer;
Преобразует дату, сохраненную как TDateTime, в 32-разрядную дату как целое число . Этот тип параметра требуется, например, в функции FileSetDate, которая устанавливает дату изменения файла:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 |
program Foo; uses Dialogs, SysUtils; var S : String; FileHandle : Integer; begin if PromptForFileName(S) then begin FileHandle := FileOpen(S, fmOpenWrite); try FileSetDate(FileHandle, DateTimeToFileDate(Now)); finally FileClose(FileHandle); end; end; end. |