Comma takes a number and returns a properly formatted number with commas.
'
' Function Comma(Numb)
'
' Input: A number with no commas
' Output: The number with commas
'
'
Function Comma(Numb)
Dim Result
If Not(IsNumeric(Numb)) Or Numb = 0 Then
Result = 0
ElseIf Len(Fix(Numb)) < 4 Then
Result = Numb
Else
Dim Dec
Dim Res
Dim Pos
Pos = Instr(1, Numb, ".")
If Pos > 0 Then
Dec = Mid( Numb, Pos )
End if
Res = StrReverse(Fix(Numb))
Dim TempResult
Dim LoopCount
LoopCount = 1
While LoopCount <= Len(Res)
TempResult = TempResult + Mid( Res, LoopCount, 3 )
LoopCount = LoopCount + 3
If LoopCount <= Len(Res) Then
TempResult = TempResult + ","
End IF
Wend
Result = StrReverse(TempResult) + Dec
End If
Comma = Result
End Function
