IncMilliSecond

Adam Boduch
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ż:

0 komentarzy