Option Explicit
Sub Tag_im_Jahr_finden()
Dim intTag As Integer
Dim byteTagLoop As Byte
Dim intMonat As Integer
Dim byteMonatLoop As Byte
Dim intTageMonat As Integer
Dim intLoesung As Integer
byteTagLoop = 0
Do While byteTagLoop < 1
intTag = InputBox("Geben Sie den Tag ein (ganze Zahl):")
If (intTag > 0) Then
If (intTag < 32) Then
byteTagLoop = 2
Else
MsgBox ("Ein Tag im Monat (1-31)")
byteTagLoop = 0
End If
Else
MsgBox ("Ein Tag im Monat (1-31)")
byteTagLoop = 0
End If
Loop
byteMonatLoop = 0
Do While byteMonatLoop < 1
intMonat = InputBox("Geben Sie den Monat ein (ganze Zahl):")
If (intMonat > 0) Then
If (intMonat < 13) Then
byteMonatLoop = 2
Else
MsgBox ("Ein Monat im Jahr (1-12)")
byteMonatLoop = 0
End If
Else
MsgBox ("Ein Monat im Jahr (1-12)")
byteMonatLoop = 0
End If
Loop
If (intMonat = 1) Then
intTageMonat = 0
Else
If (intMonat = 2) Then
intTageMonat = 31
Else
If (intMonat = 3) Then
intTageMonat = 59
Else
If (intMonat = 4) Then
intTageMonat = 90
Else
If (intMonat = 5) Then
intTageMonat = 120
Else
If (intMonat = 6) Then
intTageMonat = 151
Else
If (intMonat = 7) Then
intTageMonat = 181
Else
If (intMonat = 8) Then
intTageMonat = 212
Else
If (intMonat = 9) Then
intTageMonat = 242
Else
If (intMonat = 10) Then
intTageMonat = 273
Else
If (intMonat = 11) Then
intTageMonat = 303
Else
intTageMonat = 334
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
intLoesung = intTageMonat + intTag
MsgBox ("Ihr Datum: " & intTag & "." & intMonat & " ist umgerechnet der " & intLoesung & ". Tag im Jahr")
End Sub