WinCC中时间格式UTC转格林乔治时间函数

Function FormateDateTime(sendTime,Para)
Dim ye,mo,da,hh,mm,ss,DateTime
            ye=CStr(Year(sendTime))
            mo=Right("00"&Month(sendTime),2)
            da=Right("00"&Day(sendTime),2)
            hh=Right("00"& Hour(sendTime),2)
            mm=Right("00"&Minute(sendTime),2)
            ss=Right("00"&Second(sendTime),2)
Select Case Para
            Rem YYYYMMDD HHmmss
        Case 1
            DateTime=ye&mo&da&" "& hh&mm&ss
            Rem YYYYMMDD
        Case 2
            DateTime=ye&mo&da
            Rem YYYY-MM-DD
        Case 3
            DateTime=ye&"-"&mo&"-"&da
            Rem YYYY年MM月DD日
        Case 4
            DateTime=ye&"年"&mo&"月"&da&"日"
            Rem YYYY-MM-DD HH:mm:ss
        Case 5
            DateTime=ye&"-"&mo&"-"&da&" "& hh&":"&mm&":"&ss
End Select
FormateDateTime=DateTime
End Function