função para Data e Tempo ideal para MS SQL Server

[Reginaldo ASP]

Quem usa SQL Server, provavelmente já teve problemas com date/time.

Ai vai uma função para Data e Tempo ideal para MS SQL Server:

Function C_Date_Time(Exp, Tipo)

Dim str

Dim strData

Select Case Tipo

    Case "TIPO_DT" ' Date/Time

          strData = year(Exp) & "-" & right("0"&month(Exp),2) & "-" & right("0"&day(Exp),2)

      str = "CONVERT(DATETIME, '" & strData & " 00:00:00', 102)"

   

  Case "TIPO_T"

        str = "CONVERT(DATETIME, '1899-12-30 " & Exp & "', 102)"

End Select

If Len(Trim(str)) > 0 Then C_Date_Time = str

End Function