Всем спасибо.
Через БД Oracl делать нельзя. (Т.е. можно, но нам не положено. В рамках задачи.)
В общем выкрутился таким образом:
Макросом достал документ, как объект. В строке которого был злосчастный SysTimeStamp во времени UTC.
Отправил его в функцию, которую написал.
Преобразование даты пришлось делать именно так. Так как Application.Utility.Replace обрезал драгоценные секунды.
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
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
