Código Delphi [-]ShowMessage(IntToStr(SecondsBetween(Now, StrToDate('01/01/1900'))));
ShowMessage(IntToStr(SecondsBetween(Now, StrToDate('01/01/1900'))));