关于日期的问题(20分)

我编了一个程序如下tempSec := sum div 60;
sec := sum mod 60;
tempMinu := tempSec div 60;
minu := tempSec mod 60;
tempHour := tempMinu div 24;
Hour := tempMinu mod 24;
baseDate := StrToDateTime('1980-01-01');
nowDate := tempHour + Trunc(baseDate);//转换出年月日
nowTime := StrToDateTime(IntToStr(hour) + ' : ' + IntToStr(minu) + ' : '+ IntToStr(sec));
showMessage(DateTimeToStr(nowTime));
Result := DateTimeToStr(nowDate)+ ' ' + DateTimeToStr(nowTime);
showMessage(Result);
该程序是要把以秒为单位的偏移量sum转变回日期，但运行结果nowTime却等与1899-12-31 19：20：23 我的本意是要nowTime显示时间不是日期呀，怎么回事，高手指点

没仔细看，不过你的要求很容易达到
uses
DateUtils;
IncSecond(Now,60); //将指定的时间加上给定的秒

小数部分是时间，整数部分是日期。

同意iphome
又来晚了一步

多人接受答案了。