Description

Converts values with 'vg' in the default measurement unit, e.g. "2vg" = "18pt"

Syntax

strVg

value, expressed in vg.

Example

Dim iCaptH As Integer = Units.ToVal(VgToDef(SystemUserOptions.AFPCC_PhCaptH)) ' user pref caption height

Code

  Public Function VgToDef(ByVal strVg)

    VgToDef = strVg

    Dim n1 As Long = 0

    If InStr(strVg, "vg") > 0 Then  ' convert vg in default measurement unit

      strVg = Trim(strVg)

      strVg = Replace(strVg, "vg", "")

      If IsNumeric(strVg) Then

        Dim nvg = CDec(strVg)

        Dim vVg As Long = GetVG()

        n1 = vVg * nvg

        VgToDef = Units.ToStr(n1)

      End If

    Else

      Return strVg  ' return value as it is

    End If

  End Function