• Home
 · 
• Math/Dates
 · 
• function to print the absolute value of a number

function to print the absolute value of a number

function to print the absolute value of a number

Rate function to print the absolute value of a number

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

Function AbsoluteVal(intVal As Integer) As Long
AbsoluteVal = intVal * 1
If AbsoluteVal < 0 Then: AbsoluteVal = intVal * -1
MsgBox "The absolute value of this number is " & AbsoluteVal
End Function

Private Sub Command1_Click()
'print absolute value of a number
Call AbsoluteVal(Text1)
End Sub