Thursday, June 08, 2006

SQL Time Converter

Private Sub BuildSQLTime(ByVal strProdDate, ByVal strProdTime)
Dim SQLDateTime As DateTime
Dim strDate As String = strProdDate
Dim strTime As String = strProdTime

Dim DateArray(2) As String
DateArray(0) = strDate.Substring(0, 2)
DateArray(1) = strDate.Substring(2, 2)
DateArray(2) = strDate.Substring(4, 2)

Dim tempDateTime As String
Dim newDateTime As DateTime

tempDateTime = DateArray(1) & "/" & DateArray(2) & "/" & DateArray(0)
newDateTime = Convert.ToDateTime(tempDateTime & " " & strTime)
'newDateTime = DateTime.Now

lblResults.Text = newDateTime
End Sub
Post a Comment