PDA

View Full Version : ساعت کامپیوتر بصورت 16:30


FirstLine
چهارشنبه 14 تیر 1385, 09:12 صبح
با سلام
چجوری میشه ساعت جاری سیستم را با کد نویسی بصورت 16:30 در یک لیبل نمایش دهم؟
با تشکر
mzjahromi
چهارشنبه 14 تیر 1385, 09:41 صبح
یه راهش اینه


DecodeTime(Now,HH,MM,SS,MS);
Label2.Caption:=FormatFloat('0#',HH)+':'+FormatFlo at('0#',MM)
فرزاد دلفی باز
چهارشنبه 14 تیر 1385, 10:02 صبح
با نمایش ثانیه یک timer قرار بده و :
(Label1.Caption:=TimeToStr(now
Hamid_PaK
چهارشنبه 14 تیر 1385, 10:55 صبح
یه راهش هم اینه :


Caption := FormatDateTime('HH:mm', Now);


یا حق ...
Mahyaa
چهارشنبه 14 تیر 1385, 14:03 عصر
این هم هست :

تنظیمات TFormatSettings دست خودته .


var
FrmtSetting : TFormatSettings;
begin
FrmtSetting.TimeSeparator := ':'; //--> Your seperator character
FrmtSetting.LongTimeFormat := 'HH:mm';
Label1.Caption := TimeToStr(Now , FrmtSetting);
end;