2600
19-09-07, 06:01
Private Function GetReverseNumber(lInputNumber As Long) As Long
Dim strTemp As String
strTemp = CStr(lInputNumber)
strTemp = StrReverse(strTemp)
GetReverseNumber = CLng(strTemp)
End Function
Dim strTemp As String
strTemp = CStr(lInputNumber)
strTemp = StrReverse(strTemp)
GetReverseNumber = CLng(strTemp)
End Function