XmlDoc=CREATEOBJECT('Microsoft.XMLDOM')
XmlDoc.async=.F. &&设置同步下载
Ret=XmlDoc.Load('http://www.time.ac.cn/timeflash.asp?user=flash') &&读入XML文件(国家授时中心数据)
IF Ret=.T.
    XMLTOCURSOR(XmlDoc.xml,'tDatetime',0)
    SELECT tDatetime
    BROWSE 
ENDIF