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 * =============================================== -- _______________________________________________ Lazarus mailing list [email protected] http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
