Obtener Fecha y Hora de un servidor MSSQL 2005

Obtener Fecha y Hora de un servidor MSSQL 2005
Muchas veces nos vemos en la obligacion de obtener la fecha de nuestro servidor, esto para efectos de auditoria de las transacciones realizadas por los usuarios.

Para eso aca pongo un ejemplo de como obtener dicho dato, ojala le sirva a alguien...


' Espacio de nombres a importar

Imports System.Data.SqlClient

' Funcion para realizar consulta


Public Function SetFechaHoraServer()
SetFechaHoraServer = ""
Try

Dim CmdSsql As New SqlCommand("SELECT YEAR(NOW()) AS AÑO, MONTH(NOW()) AS MES, DAY(NOW()) AS DIA, " & _
"HOUR(NOW('h')) AS HORA, MINUTE(NOW()) AS MINUTO, SECOND(NOW()) AS SEGUNDO", MyConex)
Dim Rd As SqlDataReader
MyConex.Open()
Rd = CmdSsql.ExecuteReader
Rd.Read()

If Rd.HasRows = False Then
MsgBox("No hay datos para formar hora actual del servidor")
MyConex.Close()
Exit Function
End If

FechaHoraServer = Rd(0) & "-" & Rd(1) & "-" & Rd(2) & " " & Rd(3) & ":" & Rd(4) & ":" & Rd(5)

MyConex.Close()

Catch oexcep As SqlException
MessageBox.Show("Error al conectar con BD o actualizar, Proceso: Consultando fecha del servidor" & _
ControlChars.CrLf & _
oexcep.Message & ControlChars.CrLf)
MyConex.Close()
End Try


End Function

Finalmente obtenemos la fecha en el formato deseado, segun el ejemplo el formato que obtendremos seria: "2010-06-02 04:10:35"


Dudas o comentarios a: cesarlopez1909@gmial.com