[RusMaXXX]

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

имеется:

Код:

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

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

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

[Alegun]

Да ничего она и не подсчитывала, просто обрезала всё что после запятой, TDateTime это фактически типа Double, а функция Trunc возвращает только целочисленную часть числа.

[RusMaXXX]

Сообщение от Alegun

Да ничего она и не подсчитывала, просто обрезала всё что после запятой, TDateTime это фактически типа Double, а функция Trunc возвращает только целочисленную часть числа.

ну тогда так, трунс обрезал часть числа... а что за число, откуда и как оно берется???

[Alegun]

Прошу прощения, но подготовка к празднованию ДП в самом разгаре, в смысле самому что-то умное лопотать нету возможности, посему ограничусь копипастой с нашего же сайта

type TDateTime = type Double;
Описание
Тип TDateTime содержит значение даты и времени.

Она сохраняется как переменная Double, с датой как целая часть, а время как дробная. Дата сохраняется как число дней с 30 декабря 1899.

Поскольку TDateTime является Double, то вы можете выполнять над ним вычисления, как будто это было число. Это очень полезно для вычислений, например, разницы между двумя датами.

вроде всё понятно.

[RusMaXXX]

понятно...))