提交判定原来取的服务器时间，老是有人改时间交报告。现改成取授时中心时间，问题来了，如果时间yyyy-mm-dd hh:mm:ss中有值为1时，把xml转cursor时老是判定为逻辑真，xmltocursor的各参数都看了也用了，还是没用，当然可以写判定类型来达到效果，就是不能理解问题出在哪儿，检查了返回的内容，返回数据也没有用schema样式表,不能理解，虽然VFP把大于0的值判定为真，为什么此处仅把1判为真，2018等等又判为数值，求问题所在或直接的处理方法，谢谢。
代码如下：

Procedure GetTimeByXML
    Set Date YMD
    Set Century On
    Set Hours To 24
    Set Mark To '-'
    Declare Sleep In Kernel32.Dll Integer
    Local xmlDoc,xmlRes,nReCount,lFlag,cTime,lDateTime,nDelay
    xmlDoc=Createobject('Microsoft.XMLDOM')
    XML.Async=.F.
    xmlRes=xmlDoc.Load('http://www.time.')
    If xmlRes
        nDelay=0
        Do While xmlDoc.readystate#4&&waiting for Ready
            =Sleep(200)
            nDelay=nDelay+1
            If nDelay=26&&Delay for 5s is allowed
                Return Ctod('')
            Endif
        ENDDO
        IF !EMPTY(xmldoc.xml)
        nReCount=Xmltocursor(xmlDoc.XML,'xmlcursor',0)
        ELSE
        RETURN CTOT('')
        endif
        If nReCount>0
            lFlag=.T.
            cTime=Str(xmlcursor.Year,4)+'-'+;
                STR(xmlcursor.Month,2)+'-'+;
                STR(xmlcursor.Day,2)+' '+;
                STR(xmlcursor.Hour,2)+':'+;
                STR(xmlcursor.Minite,2)+':'+;
                STR(xmlcursor.Second,2)
            lDate=Ctot(cTime)
        Endif
    Endif
    If !lFlag
        Return Ctod('')
    Endif
    Return ldate
Endproc

如图，分钟处现在就是1分钟，查看结果数据确实是1，但函数把1处理成逻辑值了。

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

我似乎说是当有数值为1时判为真，没说大于1的数值。

直接读取xml文件相应位置的字符，再作转换处理就可以避免这个现象。