Geburtstagsrechner

Das Projekt nutzt Ein- und Ausgabeboxen und kann deshalb auf ein Formular ganz verzichten. Um den Programmcode zu fassen, muß ein Modul (Kennung .bas) eingefügt, das standardmäßig vorgegebene Formular entfernt werden.

Hier wird der Umgang mit Datumsfunktionen demonstriert. Um Erläuterungen zu den verwendeten Datumsfunktionen zu erhalten, nutze man die VB-Hilfe.

Option Explicit

Sub main()

Dim GebDatum$, WTag1, WTag2, GebTag1$, GebTag2$, Ergeb$, Alter%
GebDatum = InputBox("Wann bist du geboren?", "Geburtstag")
WTag1 = WeekDay(GebDatum, 1)
WTag2 = WeekDay(DateSerial(Year(Now), Month(GebDatum), Day(GebDatum)), 1)
GebTag1 = Format$(WTag1, "dddd")
GebTag2 = Format$(WTag2, "dddd")
Alter = Year(Date) - Year(GebDatum)
If DateSerial(Year(Date), Month(GebDatum), Day(GebDatum)) > Date Then

Alter = Alter - 1

End If
Ergeb = "Du bist an einem " & GebTag1 & " geboren, bist " & Alter & " Jahre alt, " & vbCr & vbCr
If DateSerial(Year(Date), Month(GebDatum), Day(GebDatum)) = Date Then

Ergeb = Ergeb & " Gratulation! Diesmal ist " & GebTag2 & " !"

ElseIf DateSerial(Year(Date), Month(GebDatum), Day(GebDatum)) <= Date Then

Ergeb = Ergeb & " und hattest dieses Jahr"
If GebTag1 = GebTag2 Then Ergeb = Ergeb & " auch"
Ergeb = Ergeb & " an einem " & GebTag2 & " Geburtstag."

Else

Ergeb = Ergeb & " und kannst diesmal an einem " & GebTag2 & " feiern!"

End If
MsgBox Ergeb, vbExclamation, "Geburtstag"

End Sub