Option Explicit

Sub raketenBeispiel2()

'Dieses Programm berechnet die Ankunftszeit einer Rakete.
'Die Startzeit wird in Stunden, Minuten, Sekunden eingegeben.
'Die Flugzeit wird in Sekunden eingegeben.
'Dateiname: raketenBeispiel2

'Variablendeklaration
Dim stunden As Long
Dim minuten As Long
Dim sekunden As Long

Dim flugzeitStunden As Long
Dim flugzeitMinuten As Long
Dim flugzeitSekunden As Long

Dim abflugSekunden As Long
Dim ankunftsSekunden As Long
Dim restSekunden As Long

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

'Benutzereingaben holen
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!")
flugzeitStunden = InputBox("Geben Sie nun die Stunden der Flugzeit ein!")
flugzeitMinuten = InputBox("Geben Sie nun die Minuten der Flugzeit ein!")
flugzeitSekunden = InputBox("Geben Sie nun die Sekunden der Flugzeit ein!")

'Umrechnen der Abflugszeit in Sekunden
abflugSekunden = stunden * 3600 + minuten * 60 + sekunden

'Umrechnen der Flugzeit in Sekunden
flugzeitSekunden = flugzeitStunden * 3600 + flugzeitMinuten * 60 + flugzeitSekunden

'Abflugszeit in Sekunden + Flugzeit in Sekunden ergibt die Gesamtanzahl Sekunden
sekunden = abflugSekunden + flugzeitSekunden

' die Gesamtzahl Sekunden Integerdividiert durch 3600 (weil eben eine Stunde 3600 Sekunden hat :-)
stunden = sekunden \ 3600

'Die Restsekunden erhält man durch Modulo
restSekunden = sekunden Mod 3600

'Berechnen der Minuten aus den Sekunden
minuten = restSekunden \ 60

'Berechnen der Sekunden
sekunden = restSekunden Mod 60

'Ausgabe der Landezeit
MsgBox ("Die Rakete landet um: " & stunden & ":" & _
         minuten & ":" & sekunden)

End Sub