如何取得系统毫秒级时间,以前好象有人提过?

Description of your first forum.

如何取得系统毫秒级时间,以前好象有人提过?

帖子gxetdc » 星期一, 2001年10月29日 23:10


如何取得系统毫秒级时间,以前好象有人提过?
 
 
 

如何取得系统毫秒级时间,以前好象有人提过?

帖子Pipi. » 星期一, 2001年10月29日 23:33


GetTickCount取得系统开始以来经过的毫秒
win32api GetSystemTime 可以取得当前的时间,最小到毫秒
 
 
 

如何取得系统毫秒级时间,以前好象有人提过?

帖子delphi_lsl » 星期四, 2001年11月1日 23:27


TimeGetTime  or getTickCount
 
 
 

如何取得系统毫秒级时间,以前好象有人提过?

帖子萧月禾 » 星期五, 2001年11月2日 13:20


DeCodeTime, EncodeTime 中的最后一个参数就是毫秒
 
 
 

如何取得系统毫秒级时间,以前好象有人提过?

帖子江维 » 星期五, 2001年11月2日 13:43


procedure TForm1.Button1Click(Sender: TObject);

var
 Present: TDateTime;
 Year, Month, Day, Hour, Min, Sec, MSec: Word;
begin
 Present:= Now ;
 DecodeDate(Present, Year, Month, Day);
 Label1.Caption := 'Today is Day ' + IntToStr (Day) + ' of Month '
   + IntToStr(Month) + ' of Year ' + IntToStr(Year);
 DecodeTime(Present, Hour, Min, Sec, MSec);
 Label2.Caption := 'The Time is Minute ' + IntToStr(Min) + ' of Hour '
   + IntToStr(Hour);
end;
 
 
 

如何取得系统毫秒级时间,以前好象有人提过?

帖子zhaqiong » 星期五, 2001年11月2日 14:09


uses Date Utils (*等等*);
......

procedure TForm1.Button1Click(Sender: TObject);
var iYear,iMon,iDay,iHour,iMin,iSec,iAMilliSecond:word ;
begin
  DecodeDate Time(Now(),iYear,iMon,iDay,iHour,iMin,iSec,iAMilliSecond);
  showmessage(InttoStr(iAMilliSecond));//显示毫秒数
end;
 
 
 

如何取得系统毫秒级时间,以前好象有人提过?

帖子gxetdc » 星期五, 2002年8月2日 21:50


多人接受答案了。