Data i czas » Obliczenia

DateOf

DateOf
Moduł: DateUtils

function DateOf(const AValue: TDateTime): TDateTime;

Funkcja na podstawie daty i czasu zapisanego w parametrze AValue, zwraca jedynie datę, z pominięciem czasu.

Przykładowy program:

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.


Podobny efekt da się osiągnąć stosując funkcję konwersji (w tym wypadku), lecz niekiedy użycie funkcji DateOf może okazać się wymagane:

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


Zobacz też: