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

function GetDate: TDate;varxml: OleVariant;r: string;p1, p2: Integer;AYear, AMonth, ADay: string;begintry    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'));exceptend;end;//注：此代码为D2009版使用，否则请修改为//r := Copy(r, p1 + 2, Length(r) - (p1 + 2) + 1);