• Home
 · 
• Miscellaneous
 · 
• This code changes a number into Engineering format, example 1000 goes to 1k

This code changes a number into Engineering format, example 1000 goes to 1k

This code changes a number into Engineering format, example 1000 goes to 1k

Rate This code changes a number into Engineering format, example 1000 goes to 1k

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

OUT = NUM
If OUT = 0 Then
    ENG = ""

ElseIf OUT >= 1 Then
    While OUT >= 1000
        OUT = OUT / 1000
        DoEvents
        ENGPART = ENGPART + 1
    Wend
    Select Case ENGPART
        Case 1: ENG = "k" '1000
        Case 2: ENG = "M"
        Case 3: ENG = "G"
        Case 4: ENG = "T"
        Case Else: ENG = NUM: OUT = ""
    End Select

Else
    While OUT < 1
        OUT = OUT * 1000
        DoEvents
        ENGPART = ENGPART + 1
    Wend
    Select Case ENGPART
        Case 1: ENG = "m" '0.001
        Case 2: ENG = "u"
        Case 3: ENG = "n"
        Case 4: ENG = "p"
        Case 4: ENG = "f"
        Case 4: ENG = "a"
        Case Else: ENG = NUM: OUT = ""
    End Select
End If

NUM2ENG = OUT & ENG

End Function