Function GetConvertTimeUTC (ByVal sGetDateTime) As String
                Dim sDTNow As String
                Dim sDTNowParseTime As String
                Dim sDTNowUTC As String
                Dim sDTNowParseTimeUTC As String
                Dim sDTDiffInSS As String
                'sGetDateTime = "30.04.2014;13:46:26:00"
                ' Берем текущее дату и время, и мировые дату и время. Выбираем из них время. И вычисляем разницу между всемирным временем и текущим(в секундах)
                sDTNow = Application.Utility.Now
                sDTNowParseTime = Right(sDTNow,8)
                sDTNowUTC = Application.Utility.NowUTC
                sDTNowParseTimeUTC = Right(sDTNowUTC,8)
                sDTDiffInSS = Application.Utility.TimeDiff (sDTNowParseTimeUTC,sDTNowParseTime)
                               ' Разницу в секундах, добавим к нашему времени. Предварительно отделив миллисекунды.
                               Dim sDateTimeParseDT As String
                               Dim sMssParseDT As String
                               Dim sDTAddSeconds As String
                               sDateTimeParseDT = Left(sGetDateTime,19)
                               sMssParseDT = Right(sGetDateTime,3)
                               sDTAddSeconds = Application.Utility.TSAddSeconds (sDateTimeParseDT,sDTDiffInSS)
                                               'Преобразование даты и времени в нужный вид.
                                               Dim sData As String
                                               Dim sTime As String
                                               Dim sDateTimeOut As String
                                               sData = Left(sDTAddSeconds,10)
                                               sTime = Right(sDTAddSeconds,8)
                                               sDateTimeOut = sData & " " & sTime & sMssParseDT
                GetConvertTimeUTC = sDateTimeOut
End function