BestChange - exchange monitor, earn as an affiliate!

Tuesday, June 26, 2012

Formatting Date

1
2
3
4
5
6
7
8
    Public Function formatDate(ByVal strDate As String) As String
' Dim now As DateTime = Convert.ToDateTime(strDate)
Dim newDate As String

newDate = Format(CDate(strDate), "yyyy-MM-dd HH:mm:ss")

Return newDate
End Function

No comments:

Post a Comment