下面这段不好使了
xmldoc = Createobject('microsoft.xmldom')
xmldoc.async = .F. &&设置同步下载
*Ret = XmlDoc.Load('http://www.Time. =flash')&&读入 XML 文件（国家授时中心数据）
Ret = XmlDoc.Load('http://www.ntsc. =flash')&&读入 XML 文件（国家授时中心数据）
* 现在改成这个网址了 http://www.ntsc.
If ret = .T.
    recount = XMLTOCURSOR(xmidoc.XML ,'',0)
    ? xmlresult.Year  && 年
    ? xmlresult.Month &&月
    ? xmlresult.Day   &&日
    ? xmlresult.Hour  &&时
    ? xmlresult.minite &&分
    ? xmlresult.minite &&秒
Else
    Messagebox("时间数据读取失败","提示",0)
Endif

谢谢！这么简单，而管用！管用！管用
是，是苏宁易购网取得

谢谢！也好用。不过这是在大网站。应该首先采用。
我按自己的要求简化为：
oxml = Createobject("MSXML2.XMLHTTP")
curl = "http://time.
If oxml.Open("GET", curl, .F.)

    oxml.Send()
    lctext=Strconv(oxml.responsebody, 11)  && STRCONV(STRCONV(oXml.ResponseBody, 11),2)
    c1 = '北京现在时间：'
    c2 = "。查世界各大城市时差"

    rqsj=Alltrim(Strextract(lctext, c1, c2)) && 取两个分隔符中间的字符串
    trqsj = Ctot(rqsj)
    drq = Ttod(trqsj)

    If Date()<>drq
        Messagebox("你的日期不对，请修正。否则凭证号会出现误差",64+0,"提示")
    Endif
ELSE
     *Messagebox("网络不通",64+0,"提示") && 对于没有网络的用户，不要出错。
ENDIF