[fpc-pascal]Question about DATE handling...
    Matt Emson 
    memsom at interalpha.co.uk
       
    Thu Mar 22 16:34:36 CET 2001
    
    
  
>Next, the result of StrToDate() is tDateTime. I can basically live with this,
>but: How can I add a specific number of days to this date? (I must calculate
a
>end date from start-date plus num of days!)
TDateTime (if it works like the Delphi type of the same name) works in the following
way..
TDateTime = Double;
The part before the Decimal point is the date, the part after is the 'time'.
Date:
var
  T: TDateTime;
begin
  T := 0; // 30/12/1899 (Delphi 2+)
  T := 1; // 31/12/1899
end;
  you can therefore summise that each whole digit = 1 day.
  therefore, 'today' = number of days since 30/12/1899 
 Time:
    0.000012 = 1 second  (00:00:01)
    0.000024 = 2 seconds (00:00:02)
>Normally, I use EpochTime as internal date format for all of that, so I 
>can simply add/subtract seconds -- and this is perfect. 
>--> But how can I get an epoch time out from tDateTime?
Take a look at:
http://www.merlyn.demon.co.uk/pas-time.htm
Hope that helps,
Matt
    
    
More information about the fpc-pascal
mailing list