всем привет...
имеется:
Код:
procedure TForm1.Button1Click(Sender: TObject);
var
DateNow: TDateTime;
begin
DateNow := StrToDate('08.05.2013');
ShowMessage(IntToStr(Trunc(DateNow)));
end;
в результате, в сообщение выдается число
41402
вопрос, как
трунс его подсчитал??? вопрос хотя странный, но с заморочкой))