On Oct 2, 2006, at 8:37 PM, Karen wrote:
Function Compare(ObjToCompare as Comparable) as Integer
Return MyClass(ObjToCompare).theDate.TotalSeconds _
- me.theDate.TotalSeconds
End function
oops forgot TotalSeconds is a double!
Function Compare(ObjToCompare as Comparable) as Integer
Dim res as double
res= MyClass(ObjToCompare).theDate.TotalSeconds -
me.theDate.TotalSeconds
If Res < 0 Then
Return -1
Elseif Res > 0 Then
Return 1
Else
Return 0
End If
End Function
_______________________________________________
Unsubscribe or switch delivery mode:
<http://www.realsoftware.com/support/listmanager/>
Search the archives of this list here:
<http://support.realsoftware.com/listarchives/lists.html>
