Function DateToUTC(dtmTargetDate, Q_strBias)
dtmtestdate = dtmTargetDate
'WScript.Echo dtmtestdate
dtmTargetDate = Year(dtmTargetDate)
'Wscript.Echo dtmTargetDate
dtmMonth = Month(dtmtestdate)
'WScript.Echo dtmMonth
If Len(dtmMonth) = 1 Then
dtmMonth = "0" & dtmMonth
End If
dtmTargetDate = dtmTargetDate & dtmMonth
'Wscript.Echo dtmTargetDate
dtmDay = Day(dtmtestdate)
If Len(dtmDay) = 1 Then
dtmDay = "0" & dtmDay
End If
dtmTargetDate = dtmTargetDate & dtmDay & "000000.000000"
dtmTargetDate = dtmTargetDate & CStr(Q_strBias)
' MsgBox(dtmtestdate & " " & dtmTargetDate)
DateToUTC = dtmTargetDate
End Function