Преобразование даты в неделю

Written on 16 Октября 2007. Posted in [Delphi] Алгоритмы

procedure TForm1.Button1Click(Sender: TObject);
var frstDay,toDay : TDateTime; week : Integer;
begin

frstDay := StrToDate('1/1/96');

toDay := StrToDate(Edit1.Text);

week := Trunc((toDay - frsont color=blue>1;

Label1.Caption := IntToStr(week);

end;