Brauche Hilfe beim Umrechnen

[peterfido]

Dafür ist der LookUp Befehl recht gut geeignet. Ungetestet aus dem Kopf:

Umrechnen:
   If A > 10 Then
      Z1 = A Mod 10
      Z2 = A - z1
      Z2 = Z2 / 10
      Zeichen1 = Lookup(z1 , Werte)
      Zeichen2 = Lookup(z2 , Werte)
   Else
      Zeichen1 = Lookup(a , Werte)
      Zeichen2 = 0
   End If
Return

Werte:
Data &H30 , &H31 , &H32 , &H33 , &H34 , &H35 , &H36 , &H37 , &H38 , &H39

Okok - war wohl doch ein zu langer Tag:

Umrechnen:
   If A > 10 Then
      Z1 = A Mod 10
      Z2 = A - z1
      Z2 = Z2 / 10
      Zeichen1 = Z1 + &H30
      Zeichen2 = Z2 + &H30

   Else
      Zeichen1 = A + &H30
      Zeichen2 = 0
   End If
Return