Hello Graeme, may be this is interisting for you...
ger_timeoutreset -> resets the timer ger_timeoutget_usec -> gets µsec's after resetting regards Rainer var global_gertv:timeval; global_gertvold:timeval; const secusec:=1000000; procedure ger_timeoutreset; begin fpgettimeofday(@global_gertv,@global_timezone); global_gertvold:=global_gertv; end; function ger_timeoutget_usec:longint; begin fpgettimeofday(@global_gertv,@global_timezone); if global_gertvold.tv_sec=global_gertv.tv_sec then begin ger_toutcount_usec:=ger_toutcount_usec+(global_gertv.tv_usec - global_gertvold.tv_usec) end else begin ger_toutcount_usec:=ger_toutcount_usec +(secusec - global_gertvold.tv_usec + global_gertv.tv_usec) +(global_gertv.tv_sec - global_gertvold.tv_sec - 1) * secusec; end; if ger_toutcount_usec<0 then ger_toutcount_usec:=0; global_gertvold:=global_gertv; result:=ger_toutcount_usec; end; Am Montag, 17. März 2008 10:54 schrieb Graeme Geldenhuys: > On 17/03/2008, ik <[EMAIL PROTECTED]> wrote: > > sorry dateutils.pp > > Idiot me, I also never thought that TDateTime's time portion is > milliseconds from midnight. I could have calculated 30 minutes in > milliseconds and keep adding that to the time portion of TDateTime. > > But IncMinute() is so much easier! ;-) Thanks again! > > Regards, > - Graeme - > > > _______________________________________________ > fpGUI - a cross-platform Free Pascal GUI toolkit > http://opensoft.homeip.net/fpgui/ > _______________________________________________ > fpc-pascal maillist - fpc-pascal@lists.freepascal.org > http://lists.freepascal.org/mailman/listinfo/fpc-pascal _______________________________________________ fpc-pascal maillist - fpc-pascal@lists.freepascal.org http://lists.freepascal.org/mailman/listinfo/fpc-pascal
