Даты [D7]
NAS © (2006-08-25 19:40:00)
Как вывести дату в лэйбл такого типа Aug-25-06, по умолчанию
выводит такую 25.08.2006
if m[i]='dateadd' then
dadd:=strtodate(m[i+1])+strtoint(Days.Caption);
А вот тут таймером выводится в лэйбл:
procedure TShowItemForm.Timer1Timer(Sender: TObject);
var t:tdatetime;
d:Tdate;
k:extended;
begin
d:=date;
k:=dadd-d-1;
t:=1-time;
Label8.Caption:=floattostr(k)+' d. '+timetostr(t)
end;
isasa (2006-08-25 20:39:00) [1]
S :=
FormatDateTime('"The meeting is on " dddd, mmmm d, yyyy, "
at " hh:mm AM/PM', Now + 0.125);
Наверх 
ЧАТ |
Орешник |
|
