Считать системную дату

[vitamin.rulez]

Здарова всем!
как считать системную дату, [число,месяц,год]??????????

[Greblin]

Функции Now, Date

[5naip]

функции для delphi:
Date;
Time;
Функции для конвертации этих данных в строку:
DateToStr(Date);
TimeToStr(Time);

[vitamin.rulez]

напишите пжл код кто-нибудь, например вывести в Label

[profi]

procedure TForm1.Button1Click(Sender: TObject);
var
time:TDateTime;
begin
time:=Now;
Label1.Caption:=DateToStr(time)+'   '+TimeToStr(time);
end;

По нажатию кнопки в поле Label1 появится сообщение с датой и временем.

[Neeter]

Зачем такие заморочки?

procedure TForm1.Button1Click(Sender: TObject);
begin
 Label1.Caption := DateTimeToStr(now);   //Это дата и время
 //Label1.Caption := DateToStr(Date);        //Это только дата
 //Label1.Caption := TimeToStr(Time);        //Это только время
end;