PC-DMIS Help Center - 2022.1
Click here to see this page in full context
Home > Available Help Files > PC-DMIS BASIC Language > Language Reference A – Z > Sgn Function > Example - Sgn Function
Current Help File: PC-DMIS Basic (View Core Help)
Example - Sgn Function
Sub Main
Dim MyVar1, MyVar2, MyVar3, MySign
MyVar1 = 12: MyVar2 = -2.4: MyVar3 = 0
MySign = Sgn(MyVar1)
MySign = Sgn(MyVar2)
MySign = Sgn(MyVar3)
MsgBox "The value is " &Sgn(MyVar1)
MsgBox "The value is " &Sgn(MyVar2)
MsgBox "The value is " &Sgn(MyVar3)
End Sub