Текущий архив: 2006.09.17;
Скачать: CL | DM;
Вниз
Даты Найти похожие ветки
← →
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);
Страницы: 1 вся ветка
Текущий архив: 2006.09.17;
Скачать: CL | DM;
Память: 0.46 MB
Время: 0.041 c
