Login | Register   
LinkedIn
Google+
Twitter
RSS Feed
Download our iPhone app
TODAY'S HEADLINES  |   ARTICLE ARCHIVE  |   FORUMS  |   TIP BANK
Browse DevX
Sign up for e-mail newsletters from DevX


Tip of the Day
Language: VB6
Expertise: beginner
Jun 23, 2003

GetDBDate - Formatting a date as a DateSerial for Access

' Format a date as a DateSerial for Access
' Example: Debug.Print GetDBDate(date)

Public Function GetDBDate(sDate As String) As String
   On Error GoTo ERROR_GetDBDate

   Dim sTmp As String

   If IsDate(sDate) = False Then
      sTmp = sDate
   Else
      sTmp = "DateSerial(" & Year(sDate) & ", " & Month(sDate) & ", " & Day _
          (sDate) & ")"
   End If

EXIT_GetDBDate:
   GetDBDate = sTmp
   Exit Function

ERROR_GetDBDate:
   sTmp = sDate
   Resume EXIT_GetDBDate
End Function



'========================================
' You can find more routines like this on www.vbdiamond.com,
'  a site devoted to  VB developers
'========================================
Waty Thierry
 
Comment and Contribute

 

 

 

 

 


(Maximum characters: 1200). You have 1200 characters left.

 

 

Sitemap
Thanks for your registration, follow us on our social networks to keep up-to-date