Формат текущей даты - номер недели

Hello Motorolla

You can use Delphi function WeekOfTheYear.
On your form you place a n EditText, a memo and a button.
Behind event OnClick of your button, place this code :

procedure Form1_Button1_OnClick (Sender: string; var Cancel: boolean);
Var date1 : TDate;
begin
       date1 := StrToDate(Form1.Edit1.Text);
       Form1.Memo1.Lines.Clear;
       Form1.Memo1.Lines.Add('Week in year: ' + IntToStr(WeekOfTheYear(date1)));
end;

begin

end.

and Memo1 displays number of the week of the year.

JB