算时间在delphi中是最容易的，如下： 

var ss : TDateTime 

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