PC-DMIS Help Center - 2020 R1
Click here to see this page in full context
Home > Available Help Files > PC-DMIS BASIC Language > Language Reference A – Z > Sgn Function > Example:
Current Help System: PC-DMIS BASIC (View Core Help)
Example:
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