Hi Leute!
muss für eine Aufgabe in der Schule ein Programm im Visual Basic erstellen, dass die Gültigkeit der Sozialversicherungsnummer berechnet.
Hier mal das was ich hab:
Option Explicit
Dim ersterTeil As Integer
Dim zweiterTeil As Integer
Dim viertstelle As Integer
Dim ergebnis As Integer
Function Gueltig(Geburtsdatum As Date, Versicherungsnummer As Integer) As Boolean
For i = 0 To 5
Next i
'ersterTeil=Versicherungsnummer[i=0]*3+Versicherungsnummer[i=1]*7+Versicherungsnummer[i=2]*9
'zweiterTeil=Geburtsdatum[i=0]*5+Geburtsdatum[i=1]*8+Geburtsdatum[i=2]*4+Geburtsdatum[i=3]*2+Geburtsdatum[i=4]*1+Geburtsdatum[i=5]*6
viertstelle = (ersterTeil + zweiterTeil) / 11
'ergebnis = (viertstelle-viertstelle[i=0])*11
'if (viertstelle = Versicherungsnummer[i=3])Then
End Function
Mein Problem ist, dass ich nicht weiß wie ich Excel sage, dass es die erste Stelle des Datums nehmen soll und nicht die ganze Zahl die eingegeben werden soll.
Und auch wie ich ihm sage, dass er auch die erste Null nehmen soll wenn das Datum z.B 030592 ist.
Wäre echt toll wenn mir da jemand helfen könnte.
Danke im Vorhinein