DateOf Delphi - Okolokompa

DateOf

Модуль: DateUtils
function DateOf(const AValue: TDateTime): TDateTime;

Функция, основанная на дате и времени, сохраненных в параметре AValue , возвращает только дату, опуская время.

Пример программы:

program Foo;

{$APPTYPE CONSOLE}

uses

SysUtils, DateUtils;

var

Bar : TDateTime;

begin

Bar := Now;

Writeln('Aktualna data i czas: ', DateTimeToStr(Bar));

Writeln('Aktualna data: ', DateTimeToStr(DateOf(Bar)));

Readln;

end.

Аналогичный эффект может быть достигнут с помощью функции преобразования (в данном случае), но иногда может потребоваться использование функции DateOf:

1 2	Writeln('Aktualna data i czas: ', DateTimeToStr(Bar)); Writeln('Aktualna data: ', DateToStr(Bar));