Option Explicit

Sub raketenBeispiel1()
'Dieses Programm berechnet die Ankunftszeit einer Rakete.
'Die Startzeit wird in Stunden, Minuten, Sekunden eingegeben.
'Die Flugzeit wird in Sekunden eingegeben.
'Dateiname: raketenBeispiel1
'Deklaration der Variablen

    Dim stunden As Long
    Dim minuten As Long
    Dim sekunden As Long
    Dim flugdauer As Long
    Dim gesamtSekunden As Long
    Dim stundenSekunden As Long
    Dim minutenSekunden As Long
    Dim restSekunden As Long

    'Gib Bedienungsanleitung aus
    MsgBox ("Bitte geben Sie die Startzeit der Rakete in Stunden, Minuten und Sekunden an. " & Chr(13) & _
      "Die Flugzeit wird in Sekunden eingegeben." & Chr(13) & _
      "Die Ausgabe erfolgt wieder in Stunden, Minuten und Sekunden")

    'Lies die Benutzereingaben ein
    stunden = InputBox("Geben Sie nun die Stunde der Abflugzeit ein!")
    minuten = InputBox("Geben Sie nun die Minuten der Abflugzeit ein!")
    sekunden = InputBox("Geben Sie nun die Sekunden der Abflugzeit ein!")
    flugdauer = InputBox("Geben Sie nun die Flugzeit in Sekunden ein!")
    
    'Berechne die Ankunftszeit
    
    stundenSekunden = stunden * 3600
    minutenSekunden = minuten * 60
    gesamtSekunden = stundenSekunden + minutenSekunden + sekunden + flugdauer
    stunden = gesamtSekunden \ 3600
    restSekunden = gesamtSekunden Mod 3600
    minuten = restSekunden \ 60
    restSekunden = restSekunden Mod 60

    'Gib die Ankunftszeit im Fenster aus
    MsgBox ("Die Rakete landet um" & Chr(13) & _
            stunden & ":" & minuten & ":" & restSekunden)
    
End Sub