getServerDate

var マネー
dsql: string; aion 攻略
begin
dsql := 'select getdate() as now ';
if DM.DS_selectSql(DM.dsPGetTime, dsql) > 0 then
begin
Result := DM.dsPGetTime.FieldByName('now').AsDateTime;
end
else
begin
Result := Now;
end;