In order to make life simpler, I have introduced two simple procedures into the VB6 code:
Expand|Select|Wrap|Line Numbers
- Public Function DateSet(ByVal InputDate As Variant) As Boolean
- DateSet = Not IsNull(InputDate)
- End Function
- Public Function DateNotSet(ByVal InputDate As Variant)
- DateNotSet = IsNull(InputDate)
- End Function
In vb.net the corresponding procedures are:
Expand|Select|Wrap|Line Numbers
- Public Function DateSet(ByVal Value As Nullable(Of Date)) As Boolean
- DateSet = Value.HasValue
- End Function
Expand|Select|Wrap|Line Numbers
- Public Function DateNotSet(ByVal Value As Nullable(Of Date)) As Boolean
- DateNotSet = Not Value.HasValue
- End Function