:!:
نوشته شده توسط
آقای Microsoft عزیز
edit1.text:=datetimetostr(time);
edit2.text:=datetimetostr(time);
غلطه ای غلطه! :wink:
برای اینکه تابع Time فقط مقدار ساعت را برمی گرداند و dateTimeToStr هم تاریخ و هم ساعت را که در نتیجه یک تاریخ اشتباه نشان داده می شود
که برای نشان دادن ساعت تنها می توان:
Edit1.Text:= TimeToStr(Time);
یا برای گرفتن تاریخ و ساعت از Now به جای Time استفاده کرد
//××××××××××××××××××××××××× ×××××××××××××××××
برای نمایش مدت زمان بین دو تا ساعت خاص:
var
StTime,EndTime:TDateTime;
//***********************
procedure TForm1.Button1Click(Sender: TObject);
begin
StTime:=Now;
Edit1.Text:=DateTimeToStr(StTime);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
EndTime:=Now;
Edit2.Text:=DateTimeToStr(EndTime);
Edit3.Text:=IntToStr(Round(24.0*60.0*1 000.0*(EndTime-StTime)));
end;
موفق باشید