Cleric-Lviv
Well-known member
Всем привет.
столкнулся с траблм. есть функция с помощю которой узнаем серверное время
но например сегодня сотруднику возвратилось 23,11,2011..... на сервере все ок.
как быть?
столкнулся с траблм. есть функция с помощю которой узнаем серверное время
Код:
Function GetNowServer() As Variant
Dim ass As New NotesSession
GetNowServer = Now
If ass.IsOnServer Then Exit Function
Dim aNow As Variant
aNow=Evaluate({@Now([ServerTime]:[LocalTimeOnError];@Name([CN];@ServerName))})
If Isarray(aNow) Then
GetNowServer =aNow(0)
Else
GetNowServer =aNow
End If
End Function
но например сегодня сотруднику возвратилось 23,11,2011..... на сервере все ок.
как быть?