AccUnit auf GitHub
Der Quellcode der Neuentwicklung ohne SimplyVBUnit, damit AccUnit mit Access in 32 und 64 Bit läuft, wird in GitHub verwaltet.
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