If TimeBegin Like "####-##-## ##:##:##" Then    /////这里要检查输入的时间格式

        UTCTimeBegin = DateAdd("h", -8, TimeBegin)  //////-8小时的操作

        UTCTimeBegin = Replace(UTCTimeBegin, "/", "-") 

/////在这里减去8小时后，好像时间格式会反正一些变化，会自动替换-，只能用脚本又把它换回来。"####-##-## ##:##:##" 这种格式是wincc认的

    Else

       GoTo TimeError

    End If

    If TimeEnd Like "####-##-## ##:##:##" Then

        UTCTimeEnd = DateAdd("h", -8, TimeEnd)

        UTCTimeEnd = Replace(UTCTimeEnd, "/", "-")

    Else

       GoTo TimeError

    End If