Проверка разницы локального и серверного времени

2019-05-07T05:56:41Z

Скрипт сравнивает время на сервере и у клиента, если разница большая - то мессаджбокс.

Dim dt As New NotesDateTime("Today")
    Call dt.SetNow
    Dim dt2 As New NotesDateTime("")
    sdate = Evaluate("@Now( [SERVERTIME])")
    dt2.LSLocalTime=sdate(0)        
    difference& =dt.TimeDifference(dt2)
    difference& =Abs(difference&)
    If difference&>3600 Then
        Msgbox  "Локальное время: "+dt.LSLocalTime &Chr(13)+ "Серверное время: "+Cstr(sdate(0))
        Msgbox "Разница между локальным и серверным временем "& difference&/3600 & "  часов" ,,"Внимание! сообщите администратору"
        Exit Sub
    End If

Форум компьютерной помощи — Проверка разницы локального и серверного времени

Проверка разницы локального и серверного времени