获取网络日期
━━━━━━━━━━━━━━━━━━━━━━━━━━
function GetDate: TDate;
var
xml: OleVariant;
r: string;
p1, p2: Integer;
AYear, AMonth, ADay: string;
begin
try
xml := CreateOleObject('Microsoft.XMLHTTP');
xml.Open('GET', 'http://www.symental.com/time/date.asp', False);
xml.Send;
r := xml.responseText;
Result := StrToDateTimeDef(r, StrToDateTime('1900-01-01 00:00:00'));
except
end;
end;
本站仅提供存储服务,所有内容均由用户发布,如发现有害或侵权内容,请
点击举报。