' --------------( Visual Basic 6.0 )-------------
' MKL, CVL Funktionen
' -----------------------------------------------
Option Explicit
 
Private Type LngType
  L As Long
End Type
 
Private Type StrType
  S As String * 8
End Type
 
'-------------( START )--------------
Private Sub Command1_Click()
    Dim in0  As String
    Dim in1  As Long
 
    Dim erg1 As String
    Dim erg2 As Long
 
    in1 = Val(txtArg1.Text) ' Inhalt Wert z.B. -4000
 
    in0 = MKL(in1)
    erg1 = in0
    Label2 = erg1       ' Anzeige des Wert in Form1.frm
 
    erg2 = CVL(erg1)
    Label3 = erg2       ' Anzeige des Wert in Form1.frm
End Sub
 
' ---------------------(MKL-Funktion)------------------------
' Wandelt einen VB-6 Integer Long Wert in einen 4-Byte String
' -----------------------------------------------------------
Public Function MKL(ByVal Value As Long) As String
  Dim nStr As StrType
  Dim nLng As LngType
 
  nLng.L = Value
  LSet nStr = nLng
  MKL = Left(StrConv(nStr.S, vbUnicode), 4)
End Function
 
' -----------------(CVL-Funktion)-----------------
' ist die Rückwandelfunktion von MKL
' ------------------------------------------------
Public Function CVL(Value As String) As Long
  Dim nStr As StrType
  Dim nLng As LngType
 
  nStr.S = StrConv(Left$(Value, 4), vbFromUnicode)
  LSet nLng = nStr
  CVL = nLng.L
End Function
' ------------------------------------------------
 
' >> Syntax LSet in VB6
 
' LSet stringvar = string
' LSet varname1 = varname2
 
' The LSet statement syntax has these parts:
 
' Part
' Description
 
' stringvar
'  Name of string variable.
 
'string
'  String expression to be left aligned within stringvar.
 
' varname1
' Variable name of the user-defined type being copied to.
 
' varname2
' Variable name of the user-defined type being copied from.