5,930
社区成员
发帖
与我相关
我的任务
分享请问如何将当前时间转换成微妙
请问如何将当前时间转换成微妙在一个edit中显示出来
这个函数好像可以function TimeStampToMSecs(const TimeStamp: TTimeStamp): Comp; $[SysUtils.pas,但是我不知道如何用
这个函数好像可以function TimeStampToMSecs(const TimeStamp: TTimeStamp): Comp; $[SysUtils.pas,但是我不知道如何用
...全文
请发表友善的回复…
发表回复
wudi_1982 2006-07-17
- 打赏
- 举报
都说了。。路过。
erhan 2006-07-17
- 打赏
- 举报
ShowMessage(format('%f',[TimeStampToMSecs(DateTimeToTimeStamp(Now))]));
柯本 2006-07-17
- 打赏
- 举报
procedure TForm1.Button1Click(Sender: TObject);
var
t: TTimeStamp ;
c:real;
begin
t:= DateTimeToTimeStamp(now());
c:=TimeStampToMSecs(t);
ShowMessage(floattostr(c));
end;
var
t: TTimeStamp ;
c:real;
begin
t:= DateTimeToTimeStamp(now());
c:=TimeStampToMSecs(t);
ShowMessage(floattostr(c));
end;
