[RusMaXXX]

всем привет...

имеется:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  DateNow: TDateTime;
begin
  DateNow := StrToDate('08.05.2013'); 
  ShowMessage(IntToStr(Trunc(DateNow)));
end;

в результате, в сообщение выдается число 41402

вопрос, как трунс его подсчитал??? вопрос хотя странный, но с заморочкой))