Даты

← →
NAS (2006-08-25 19:40) [0]

Как вывести дату в лэйбл такого типа 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) [1]

S := FormatDateTime(""The meeting is on " dddd, mmmm d, yyyy, " at " hh:mm AM/PM", Now + 0.125);

Даты Найти похожие ветки