Home > Available Help Files > PC-DMIS BASIC Language > Language Reference A – Z > CSng Function > Example - CSng Function
Current Help File: PC-DMIS Basic (View Core Help)
Example - CSng Function
Sub Main () Dim y As Integer y = 25
If VarType(y) = 2 Then MsgBox y x = CSng(y) 'Converts the integer value of y to a single value in x MsgBox x End If End Sub