Дата И Время

[maxiik]

Доброго времени суток !
Прошу прощения если мой вопрос покажется вам не серьёзным и буду благодарен за помощь!
В общем суть такая :
Как узнать по ходу исполнения программы текущую дату и время ?
Посмотрел по самоучителю, и там написано, что можно использовать вот такую штуку...
type TTimeStamp = record
Time: Integer;
Date: Integer;
end;
Мне нужно, чтобы по запросу программы можно было прочитать текущую дату и дальше использовать её при вычислениях...
В качестве проверки я пытался вывести текущую дату в поле Label, но компилятор ругается постоянно, уже всё перепробывал...
Буду благодарен за помощь !

 

[wowchock]

procedure TForm1.Button1Click(Sender: TObject);
var	dt: TDateTime;
d: TDate;
t: TTime;
begin
dt:=Now;//
d:=dt;
t:=dt;
Label1.Caption:=DateTimeToStr(dt);
Label2.Caption:=DateToStr(d);
Label3.Caption:=TimeToStr(t);
end;

 

[FBUS]

Че за ересь?
все гораздо проще

если тебе нужно выводить только дату

Label1.Caption:=DateTostr(now);

если только время

Label1.Caption:=TimeToStr(Now);

если все вместе

Label1.Caption:=DateTimeTostr(Now);