function DateTimeFast (DelphiTime: TDateTime): LongWord;
begin
Result := Round((DelphiTime - 25569) * 86400);
end;
//обращаемся к функции через now -- IntToStr(DateTimeFast(Now()))
какое значение в итоге примет IntToStr(DateTimeFast(Now()))
begin
Result := Round((DelphiTime - 25569) * 86400);
end;
//обращаемся к функции через now -- IntToStr(DateTimeFast(Now()))
какое значение в итоге примет IntToStr(DateTimeFast(Now()))