Reference Page: Comparison Rules

Automatic Comparison Rules

Relationship: One-to-One / Rule: Is Value Equal

Definitions

Supported data types: String, Number, Date

Values of different data types are considered unequal.
Values of unsupported data types are considered unequal.

Data type: String

Strings are compared based on total length and encoding of each character.

Two strings are considered equal if they have equal length (same number of characters) AND all characters, compared one by one, were equal.

Data type: Number

Numeric values are considered equal if there is no difference (near-zero-difference) between them (matters for floating point numbers with precision loss).

Data type: Date

Date/time values are compared per component values: Year, Month, Day, Hour, Second. Two dates are considered equal if there is zero seconds difference between them.

Implementation

Public Function isValueEqual(ByVal sActualValue, ByVal sExpectedValue, ByVal sFormat)
 If Not isSameFormat(sActualValue, sExpectedValue, sFormat) Then
 isValueEqual = False
 Exit Function
 End If
 Select Case UCase(sFormat)
 Case "NUMBER"
 If Abs(CDbl(sActualValue) - CDbl(sExpectedValue)) < dblNearlyZero Then
 isValueEqual = True
 Else
 isValueEqual = False
 End If
 Case "DATE" 
 If DateDiff("s", CDate(sActualValue), CDate(sExpectedValue)) = 0 Then
 isValueEqual = True
 Else
 isValueEqual = False
 End If
 Case "STRING"
 If StrComp(CStr(sActualValue), CStr(sExpectedValue), vbBinaryCompare) = 0 Then
 isValueEqual = True
 Else
 isValueEqual = False
 End If
 Case Else 
 isValueEqual = False
 End Select
End Function

Test Code

 Log.Message("1-1 Comparison: isValueEqual")
 boolRC = isValueEqual(1, 1.0, "Number")
 If Not boolRC Then
 Log.Error("isValueEqual failed")
 End If
 boolRC = isValueEqual("1", "1.0", "String")
 If boolRC Then
 Log.Error("isValueEqual failed")
 End If
 boolRC = isValueEqual(1, 1.0, "Double")
 If boolRC Then
 Log.Error("isValueEqual failed")
 End If
 sValue1 = 1
 sValue2 = 1+dblNearlyZero
 boolRC = isValueEqual(sValue1, sValue2, "Number")
 If boolRC Then
 Log.Error("isValueEqual failed")
 End If
 sValue1 = 1
 sValue2 = 1+dblNearlyZero/10
 boolRC = isValueEqual(sValue1, sValue2, "Number")
 If Not boolRC Then
 Log.Error("isValueEqual failed")
 End If
 sValue1 = CDate("01/01/01")
 sValue2 = CDate("01/01/2001")
 boolRC = isValueEqual(sValue1, sValue2, "DATE")
 If Not boolRC Then
 Log.Error("isValueEqual failed")
 End If
 sValue1 = CDate("01/01/01")
 sValue2 = CDate("1/1/2001")
 boolRC = isValueEqual(sValue1, sValue2, "DATE")
 If Not boolRC Then
 Log.Error("isValueEqual failed")
 End If