Moduły » DateUtils

IncMilliSecond

  • 2010-10-31 18:27
  • 0 komentarzy
  • 284 odsłony
  • Oceń ten tekst jako pierwszy
IncMilliSecond
Moduł: DateUtils

function IncMilliSecond(const AValue: TDateTime; const ANumberOfMilliSeconds: Int64 = 1): TDateTime;

Funkcja w wartości określającej datę/czas (parametr AValue), zwiększa ilość milisekund. Parametr ANumberOfMilliSeconds oznacza ilość milisekund do zwiększenia (lub zmniejszenia - wartość może być ujemna):

program Foo;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils, DateUtils;
 
var
  dtNow : TDateTime;
begin
  dtNow := Now;
  Writeln('Teraz jset: ' + TimeToStr(dtNow));
  Writeln('Za 30 sekund będzie: ' + TimeToStr(IncMilliSecond(dtNow, 30000)));
 
  Readln;
end.


Zobacz też: