Дата И Время

maxiik

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

Мне нужно, чтобы по запросу программы можно было прочитать текущую дату и дальше использовать её при вычислениях...
В качестве проверки я пытался вывести текущую дату в поле Label, но компилятор ругается постоянно, уже всё перепробывал...
Буду благодарен за помощь !
 

wowchock

New member
28.01.2011
3
0
#2
Код:
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;
 
F

FBUS

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

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

Код:
Label1.Caption:=DateTostr(now);
если только время

Код:
Label1.Caption:=TimeToStr(Now);
если все вместе

Код:
Label1.Caption:=DateTimeTostr(Now);