Hallo liebe WWW-Gemeinde,
ich hätte au Frage zu VB6:
Es geht darum, dass ich ein Programm schreiben soll, dass die Flugzeit eines Flugzeugs in Stunden und Minuten ausgibt. Variablen sind Flugstrecke, Fluggeschwindigkeit und Windgeschwindigkeit.
Wie kann ich das Ergebnis von Flugstrecke/ Fluggeschwindigkeit + Windgeschwindigkeit in Stunden und Minuten ausgeben?
Wäre euch für Tipps und Hilfe sehr dankbar!
Mfg WMK
Hallo,
Es geht darum, dass ich ein Programm schreiben soll, dass die
Flugzeit eines Flugzeugs in Stunden und Minuten ausgibt.
Variablen sind Flugstrecke, Fluggeschwindigkeit und
Windgeschwindigkeit.
da fehlt sicher noch die Windrichtung.
Wie kann ich das Ergebnis von Flugstrecke/ Fluggeschwindigkeit
- Windgeschwindigkeit in Stunden und Minuten ausgeben?
Mit Dateadd und Format.
Option Explicit
Private Sub Command1\_Click()
Dim N As Long, D As Date
N = 10000 'Sekunden
D = "00:00"
D = DateAdd("s", N, D)
lblAusgabe.Caption = Format(D, "HH:MM")
End Sub
Gruß Rainer
Schonmal danke für den Tip Rainer!
Habs jetzt versucht aber irgendwie klappt es nicht…
Für was steht denn die Variable „N“?
Ich poste mal den bisherigen Quellcode:
Option Explicit
Private Sub Command1_Click()
Dim FS As String
Dim FG As String
Dim WG As String
Dim GG As String
Dim FT As Double
FS = InputBox(„Bitte geben Sie die Flugstrecke (in km) ein“, „Flugstrecke“)
FG = InputBox(„Bitte geben Sie die Flugggeschwindigkeit (in km/h) ein“, „Flugggeschwindigkeit“)
WG = InputBox(„Bitte geben Sie die Windgeschwindigkeit ( in km/h) ein“, „Windgeschwindigkeit“)
GG = FG + WG
FT = FS / GG
Text1.Text = FT
End Sub
Wo bzw. wie kann ich denn „DateAdd“ und „Format“ einsetzen?
Hallo,
Habs jetzt versucht aber irgendwie klappt es nicht…
daß das nicht klappt, glaube ich.
Für was steht denn die Variable „N“?
Anzahl Sekunden.
Ich poste mal den bisherigen Quellcode:
Wenn Du dafür den Pre Tag verwendest, ist das leichter lesbar.
Option Explicit
Private Sub Command1_Click()
Dim FS As String
Dim FG As String
Dim WG As String
Dim GG As String
Dim FT As Double
Die Zahlen werden alle als String verarbeitet.
FS = InputBox(„Bitte geben Sie die Flugstrecke (in km) ein“,
„Flugstrecke“)
FG = InputBox(„Bitte geben Sie die Flugggeschwindigkeit (in
km/h) ein“, „Flugggeschwindigkeit“)
WG = InputBox(„Bitte geben Sie die Windgeschwindigkeit ( in
km/h) ein“, „Windgeschwindigkeit“)
GG = FG + WG
Weil FG und WG Strings sind, müsst hier folgendes passieren:
„A“ & „B“ = „AB“
„2“ + „3“ = „23“
Oder errät VB was Du wolltest und korrigiert den Fehler? Ich hab’s nicht getestet, will ich auch nicht testen. Mach’s einfach richtig.
FT = FS / GG
Hier kannst Du die Stunden (FT) in die Zeitanzeige „00:00“ umwandeln.
Das würde ich mit einer Funktion machen.
Text1.Text = FT
End Sub
Wo bzw. wie kann ich denn „DateAdd“ und „Format“ einsetzen?
Code
ich hab’s mal getippt …
Gruß Rainer
Option Explicit
Private Sub Command1\_Click()
Dim FS As Double
Dim FG As Double
Dim WG As Double
Dim GG As Double
Dim FT As Double
FS = InputBox("Bitte geben Sie die Flugstrecke (in km) ein", "Flugstrecke")
FG = InputBox("Bitte geben Sie die Flugggeschwindigkeit (in km/h) ein", "Flugggeschwindigkeit")
WG = InputBox("Bitte geben Sie die Windgeschwindigkeit ( in km/h) ein", "Windgeschwindigkeit")
GG = FG + WG
FT = FS / GG
Text1.Text = anz(FT)
End Sub
Private Function anz(ByVal FT As Double) As String
Dim N As Long, D As Date
N = FT \* 3600
D = "00:00:00"
D = DateAdd("s", N, D)
anz = Format(D, "HH:MM")
End Function