格式化数据库日期

格式化数据库日期 。

此代码段将允许您输入date参数。 它将检查date参数以查看是否存在有效的时间部分。 然后，它将格式化日期，使其无论在何处或如何使用都可以正常工作。

Public Function FormatDate(ByVal vdtDate As Date) As String
Dim dtNullDate As Date
FormatDate = "NULL" 
  If vdtDate = dtNullDate Then Exit Function
  If DatePart("h", vdtDate) = 0 And DatePart("n", vdtDate) = 0 And     DatePart("s", vdtDate) = 0 Then
    FormatDate = "{d '" & Format$(vdtDate, "yyyy-mm-dd") & "'}"
  Else
    FormatDate = "{ts '" & Format$(vdtDate, "yyyy-mm-dd hh:nn:ss") & "'}"
  End If
End Function 

From: https://bytes.com/topic/visual-basic/insights/641553-format-database-date