Re: [fpc-pascal] Looking for a increment time function

2008-03-17 Thread Rainer Stratmann
+ var global_timezone:timezone; 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

Re: [fpc-pascal] Looking for a increment time function

2008-03-17 Thread Rainer Stratmann
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:=100; procedure ger_timeoutreset; begin fpgettimeofday(@global_ge

Re: [fpc-pascal] Looking for a increment time function

2008-03-17 Thread 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 easi

Re: [fpc-pascal] Looking for a increment time function

2008-03-17 Thread ik
sorry dateutils.pp On Mon, Mar 17, 2008 at 11:45 AM, ik <[EMAIL PROTECTED]> wrote: > Yes, look at dates.pp :) > > Ido > > > > On Mon, Mar 17, 2008 at 11:43 AM, Graeme Geldenhuys > <[EMAIL PROTECTED]> wrote: > > Hi, > > > > Does FPC contain a increment time function? Something like IncMonth

Re: [fpc-pascal] Looking for a increment time function

2008-03-17 Thread ik
Yes, look at dates.pp :) Ido On Mon, Mar 17, 2008 at 11:43 AM, Graeme Geldenhuys <[EMAIL PROTECTED]> wrote: > Hi, > > Does FPC contain a increment time function? Something like IncMonth(). > > I know I can use DocodeDate/EncodeDate, but that seems such an > inefficient way of doing it. > > B