1000 to 1k converter

[Matt]

I was wondering if someone could write a function that will take a value of like, 1000 and turn it into 1k or 100,000 and turn it into 100k.

Thanks.

[DarkSpartan4]

Can't you just make it divide the number by 1000 and add a "k" to the end of it?

[Matt]

Can't you just make it divide the number by 1000 and add a "k" to the end of it?

I prolly could, but I'd like it to round down so I don't have 1.6828194k

[Robin]

Already have one

Code:

Public Function ConvertCurrency(ByVal Amount As Long) As String
    If Int(Amount) < 10000 Then
        ConvertCurrency = Amount
    ElseIf Int(Amount) < 999999 Then
        ConvertCurrency = Int(Amount / 1000) & "k"
    ElseIf Int(Amount) < 999999999 Then
        ConvertCurrency = Int(Amount / 1000000) & "m"
    Else
        ConvertCurrency = Int(Amount / 1000000000) & "b"
    End If
End Function

[Matt]

Awesome. Thanks!