VBA Funktion in VBS konv.

[w1zard]

Hallo zusammen....kennt jemand von Euch ein Tool das VBA Funktionen in VBS konvertiert?
Habe eine Funktion in VBA aber brauche diese in VBS.

Das ist die Funktion im Excel in VBA. Ich sollte die gleiche Funktion in VBS haben....

Function GebAhv(AhvNr As String) As Date
  Dim nTag, nMonat, nJahr, nHb, nTTag, nMm As Integer
  
  nTag = CInt(Mid(AhvNr, 9, 2))
  nMonat = CInt(Mid(AhvNr, 8, 1))
  nJahr = CInt(Mid(AhvNr, 5, 2))
  If nJahr < 30 Then
    nJahr = 2000 + nJahr
  Else
    nJahr = 1900 + nJahr
  End If
  nTTag = nTag - Int(nTag / 31) * 31
  If nMonat < 5 Then
    nHb = 0
  Else
    nHb = 4
  End If
  nMm = 3 * (nMonat - nHb - 1) + Int(nTag / 31) + 1
  
  GebAhv = Format(DateSerial(nJahr, nMm, nTTag), "dd.mm.yyyy")
End Function

 

[Orakel]

Hi,

entferne doch einfach mal das "As Integer" und schmeiss das "CInt" und das "Format" raus, und es sollte laufen.

Gruß
Das Orakel