PC-DMIS Help Center - 2022.1
Click here to see this page in full context

Example - CSng Function

  1. Sub Main ()

    1. Dim y As Integer

       

      y = 25

      If VarType(y) = 2 Then

      1. Print y

        x = CSng(y)          'Converts the integer value of y to a single value in x

        Print x

      End If

    End Sub