Текущий архив: 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