delphi语言时间计算问题

你可以把当前时间转换为相对某个时间的秒数,然后相加700秒后在转换为时间.
比如可以把gmt时间:1970年1月1日0时作为基准.

//把GMT时间的秒数转换成日期时间格式
function GetGMTDateTime(Value:Int64):TDateTime;
var
Year,Month,Day:Word;
Hour,Min,Sec,MSec:Word;
iYear,iDay:Word;
iHour,iMin,iSec:Word;
RInt,i:Integer;
TempDate,TempTime:TDateTime;
begin
//GMT是从1970年1月1日开始计算的，所以把它作为初值
Year:=1970; Month:=1; Day:=1;
Hour:=0; Min:=0; Sec:=0; MSec:=0;
//计算文件创建的年份
iYear:=Value div (365*24*60*60);
Year:=Year+iYear;
//计算文件除创建整年份以外还有多少天
iDay:=(Value mod (365*24*60*60)) div (24*60*60);
//把闰年的年份数计算出来
RInt:=0;
for i:=1970 to Year-1 do
begin
if (i mod 4)=0 then
RInt:=RInt+1;
end;

//计算文件创建的时间(几时)
iHour:=((Value mod (365*24*60*60)) mod (24*60*60)) div (60*60);
Hour:=Hour+iHour;
//计算文件创建的时间(几分)
iMin:=(((Value mod (365*24*60*60)) mod (24*60*60)) mod (