Option Explicit
Sub raketenankunftszeit1()
' Dieses Programm berechnet die Ankunftszeit einer Rakete.
' Eingaben: Abflugzeit in Stunden, Minuten und Sekunden
' Flugdauer in Stunden, Minuten und Sekunden
' Ausgabe: Ankunftszeit in Stunden, Minuten und Sekunden
' Dateiname raketen1
Dim AbflugStunden As Long
Dim AbflugMinuten As Long
Dim AbflugSekunden As Long
Dim LandungStunden As Long
Dim LandungMinuten As Long
Dim LandungSekunden As Long
Dim FlugzeitStunden As Long
Dim FlugzeitMinuten As Long
Dim FlugzeitSekunden As Long
Dim AbflugInSekunden As Long
Dim LandungInSekunden As Long
Dim FlugdauerInSekunden As Long
'Ausgabe der Bedienungsanleitung
MsgBox ("Bitte geben Sie die Startzeit und " & Chr$(13) & _
"die Landezeit der Rakete in Stunden, Minuten und Sekunden an. " & Chr$(13) & _
"Auch die Ausgabe erfolgt in Stunden,Minuten und Sekunden")
'Einlesen der Benutzereingaben
AbflugStunden = InputBox("Geben Sie nun die Stunde der Abflugzeit ein!")
AbflugMinuten = InputBox("Geben Sie nun die Minuten der Abflugzeit ein!")
AbflugSekunden = InputBox("Geben Sie nun die Sekunden der Abflugzeit ein!")
LandungStunden = InputBox("Geben Sie nun die Stunden der Landezeit ein!")
LandungMinuten = InputBox("Geben Sie nun die Minuten der Landezeit ein!")
LandungSekunden = InputBox("Geben Sie nun die Sekunden der Landezeit ein!")
' Rechne Startzeit und Landezeit in Sekunden um
AbflugInSekunden = AbflugStunden * 3600 + AbflugMinuten * 60 + AbflugSekunden
LandungInSekunden = LandungStunden * 3600 + LandungMinuten * 60 + LandungSekunden
' Berechne die Flugdauer
FlugdauerInSekunden = LandungInSekunden - AbflugInSekunden
FlugzeitStunden = FlugdauerInSekunden \ 3600
FlugdauerInSekunden = FlugdauerInSekunden Mod 3600
FlugzeitMinuten = FlugdauerInSekunden \ 60
FlugzeitSekunden = FlugdauerInSekunden Mod 60
MsgBox ("Die Flugzeit der Rakete ist: " & FlugzeitStunden & ":" & _
FlugzeitMinuten & ":" & FlugzeitSekunden)
End Sub