1 Тема от admin

  • admin
  • admin
  • Administrator
  • Неактивен
  • Зарегистрирован: 2010-04-07
  • Сообщений: 1,227
  • Репутация : 0

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

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

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

Поделиться