AccUnit on GitHub
The source code of the new development without SimplyVBUnit, so that AccUnit runs with Access in 32 and 64 bit, is maintained in GitHub.
AccUnit provides unit testing experience for the serious VBA developer.
User Manual
'AccUnit:Row(#1/1/2000 15:30:45#, "hh:nn:ss", "15:30:45")
'AccUnit:Row(#1/1/2000 15:30:45#, "dd.mm.yyyy hh:nn:ss", "01.01.2000 15:30:45")
'AccUnit:Row(#12/31/1899 01:30:45#, "hh:nn:ss", "01:30:45")
'AccUnit:Row(#12/31/1899 01:30:45#, "[h]:nn:ss", "25:30:45")
'AccUnit:Row(#1/1/1900 01:30:45#, "[H]:nn:ss", "49:30:45")
'AccUnit:Row(#12/30/1899 15:30:45#, "[H]:nn:ss", "15:30:45")
'AccUnit:Row(#12/30/1899 01:30:45#, "[h]:nn:ss", "1:30:45")
'AccUnit:Row(#12/30/1899 10:30:45#, "[hh]:nn:ss", "10:30:45")
'AccUnit:Row(#12/30/1899 01:30:45#, "[hh]:nn:ss", "01:30:45")
'AccUnit:Row(#1/1/1900 12:30:15#, "[hh]:nn:ss", "60:30:15")
Public Sub Format_DateTime_FormattedDateTime(ByVal Expression As Variant, _
ByVal FormatString As Variant, _
ByVal Expected As String)
Dim Actual As String
Actual = StringTools.Format(Expression, FormatString)
Assert.AreEqual Expected, Actual
End Sub