home *** CD-ROM | disk | FTP | other *** search
/ Fifty: Elektronik / FIFTY Elektronik (PS_Computer_Vertrieb).iso / ps8 / fty1017 / gepackt.exe / DISK2 / PLOTSRC.EXE / TIME.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1993-11-10  |  263 b   |  18 lines
  1. Unit Time;
  2. interface
  3. uses Dos;
  4.  
  5. Function Time_Ms:Longint; { msec}
  6.  
  7. implementation
  8.  
  9. Function Time_MS:Longint; { msec}
  10. Var H,M,S,HS:Word;
  11.     T:Longint;
  12. begin
  13.   GetTime(H,M,S,Hs);
  14.   T:=(((LongInt(H)*60+M)*60)+S)*100+Hs;
  15.   Time_Ms:=T*10;
  16. end;
  17.  
  18. end.