freepascal.ru

Код: Выделить всё

const
  SecPerDay    =  86400;
  Offset1970  =  25569;

function UnixTimeToDateTime(UnixTime :  LongInt): TDate;
begin
  Result:= UnixTime / SecPerDay + Offset1970;
end;

function DateTimeToUnixTime(DelphiDate: TDate): LongInt;
begin
  Result:= Trunc((DelphiDate - Offset1970) * SecPerDay);
end;

Код: Выделить всё

Uses Dos;
Var
  dt: DateTime;
  ut: LongInt;
Begin
  Randomize;
  //Задаём максимальную дату
  dt.Year:=2100;
  dt.Month:=12;
  dt.Day:=31;
  //Генерируем дату
  PackTime(dt, ut);
  ut:=Random(ut);
  UnpackTime(ut, dt);
  //Выводим полученную дату на экран
  WriteLn(dt.Day, '.', dt.Month, '.', dt.Year);
End.

Код: Выделить всё

Uses Dos;
Var
  dt: DateTime;
  ut: LongInt;
Begin
  Randomize;
  ut:=Random(4102358400) ;
  UnpackTime(ut, dt);
  //Выводим полученную дату на экран
  WriteLn(dt.Day, '.', dt.Month, '.', dt.Year);
End.

Код: Выделить всё

Прога выдала 11.14.2037 - почему?

Код: Выделить всё

If dt.Month>12 Then dt.Month:=12;
Case dt.Month of
  1,3,5,7,8,10,12: If dt.Day>31 Then dt.Day:=31;
  4,6,9,11: If dt.Day>30 Then dt.Day:=30;
  2: If dt.Day>28 Then dt.Day:=28;
end;