' Синхронизация времени с сервером
' strSrv="Имя сервера"



Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Declare Function WaitForSingleObject Lib "kernel32" (ByVal hHandle As Long, ByVal dwMilliseconds As Long) As Long
Declare Function GetExitCodeProcess Lib "kernel32" (ByVal hProcess As Long, lpExitCode As Long) As Long
Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Public Const DRIVE_REMOTE = 4
Public Const PROCESS_QUERY_INFORMATION = &H400
Public Const INFINITE = &HFFFFFFFF
Public Const WAIT_FAILED = &HFFFFFFFF
Public Const SW_SHOWNORMAL = 1


' Синхронизация времени с сервером
' strSrv="Имя сервера"

Public Function synchDate(strSrv As String)
Dim ii As Long
Dim hw As Long
Dim iResult As Long
Dim intExit As Long
Dim strDr As String
On Error GoTo erra

ii = Shell("command.com /c net time \\" & strSrv & " /set /Yes", vbHide)

hw = OpenProcess(PROCESS_QUERY_INFORMATION, 0, ii)
iResult = WaitForSingleObject(hw, INFINITE)
If iResult = WAIT_FAILED Then Err.Raise vbObjectError + 513, , "WAIT_FAILED."
GetExitCodeProcess hw, intExit
CloseHandle hw

Exit Function
erra:
CloseHandle hw
MsgBox Err.Description

End Function

2 fgh11
Если я тебя правильно понял, одна из двух функций вернет мне искомое (или обе, или вместе?)
Так я просто могу написать
переменная = (что?) в VB коде

Функция синхронизует время на локальном компьютере
и сервере
после этого
моя_переменная=Date()

вернёт дату сервера

или

моя_переменная=Now()