On Sat, Sep 24, 2011 at 2:30 AM, silvioprog <[email protected]> wrote:
> Or... > > 2011/9/23 silvioprog <[email protected]>: > [] > - var > - Since19700101: TDateTime; > + const > + CSince19700101 = > + ((1970 { Year } - 1900) * 365.25) + ((1 { Month } - 1) * 30) + 1 { > Day }; > > - Result := MilliSecondsBetween(Since19700101, Now); > + Result := MilliSecondsBetween(CSince19700101, Now); > > - initialization > - Since19700101 := EncodeDate(1970, 1, 1); > > -- > Silvio Clécio > =============================================== > Blog - <silvioprog.com.br> > Twitter - <twitter.com/silvioprog> > Facebook - <facebook.com/silvioprog> > LazSolutions - <code.google.com/p/lazsolutions> > LazWebSolutions - <code.google.com/p/lazwebsolutions> > Lazarus-BR - <groups.google.com.br/group/lazarus-br?hl=pt-BR> > =============================================== > * Conheça nosso canal IRC sobre Lazarus: #lazarus-br * > =============================================== > What about Result := Trunc(Now * MSecsPerDay); Zaher Dirkey
-- _______________________________________________ Lazarus mailing list [email protected] http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
