算时间在delphi中是最容易的，如下：   
   
var  ss : TDateTime   
   
其实Tdatetime是一个双精度的浮点数，它的小数点前表示天数：     
如，  ss := ss + 20 表示从ss开始向后20天，如果 ss = 234.567      
它就表示 234.567天,当然是从公元0年开始计算的！