Изменить Timezone

[deeeman]

Привет всем!

есть поле, в нем значение типа DateTime:

23.05.2011 15:00:00 ZE6


нужно при сохранении сделать его таким:

23.05.2011 15:00:00 ZE3

т е просто поменять зону без изменении времяни.
Делаю:

Dim item As NotesItem
Dim dt As NotesDateTime

Set item = Source.Document.GetFirstItem("STARTDATETIME")
Set dt = item.DateTimeValue

Call dt.ConvertToZone(-3,False)

Call Source.Document.ReplaceItemValue("STARTDATETIME",dt)
Call Source.Document.Save(True,True)

но результата не дает. Меняем и время и зону.
Подскажите как надо?

 

[Kizarek86]

Call dt.AdjustHour(+3)

 

[deeeman]

а если я не знаю что было Z6? может Z5 будет...

мне надо всегда чтобы было Z3

Call dt.AdjustHour(+3) уже не проканает

 

[morpheus]

deeeman
почему не канает , если у dt есть свойство TimeZone - где видно зону

 

[Kizarek86]

Ну так определите какая текущая временная зона (DT.TimeZone), и вычислите разницу)

 

[lmike]

клиент кажет в текущей TZ
а что по результату нужно получить-то, чем не устроила таймзона, кот. есть?