从中国气象网获取当前日期

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.nmc.gov.cn/', False);
    xml.Send;
    r := xml.responseText;
    p1 := Pos('<div id="submenu" >', r); // 找到标签
    r := Copy(r, p1 + 19, Length(r) - (p1 + 19) + 1);
    p1 := Pos('年', r);
    AYear := Copy(r, 1, p1 - 1);
    r := Copy(r, p1 + 1, Length(r) - (p1 + 1) + 1);
    p1 := Pos('月', r);
    AMonth := Copy(r, 1, p1 - 1);
    r := Copy(r, p1 + 1, Length(r) - (p1 + 1) + 1);
    p1 := Pos('日', r);
    ADay := Copy(r, 1, p1 - 1);
    Result := StrToDateDef(AYear + '-' + AMonth + '-' + ADay, StrToDate('1899-01-01'));
except

end;
end;

//注：此代码为D2009版使用，否则请修改为

//r := Copy(r, p1 + 2, Length(r) - (p1 + 2) + 1);