SoloCodigo

Lara

Todo depende que BD estes utilizando,
si es Sql ó Sybase con la instrucción getdate y si es Oracle con la instrucción select Sysdate from dual

Espero haberte ayudado

Hola:
puedes obtener la fecha y hora de un servidor NT/2000
(utilizando el puerto UDP 13); en un formulario con un control Winsock,
coloca el siguiente código:

Private Sub btnObtenerHora_Click()
    With Winsock1
        .Protocol = sckUDPProtocol
        .Connect txtNombreServidor.Text, 13
    End With
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim strHoraServidor As String
    With Winsock1
        .GetData strHoraServidor, vbString
        .Close
    End With
    MsgBox "Hora servidor " & txtNombreServidor.Text & ": " &
strHoraServidor
End Sub

Tambien te adjunto un ejemplo de otra forma de poder saberlo.

Saludos;