Frage : Hilfe, die Minuten Zeitwert hinzufügt

Ich versuche, eine Zugzeitplanfunktion in der Aussicht using VBA zu entwickeln. Ich habe eine Reihe mit der folowing Wertzahl Anschlägen, „stoppe 1“, Minuten von der Abfahrt, „stoppe 2“, Minuten von der Abfahrt ETC…. So sein ein Beispiel…

vTimes = Reihe (9, „Station1“, 0, „Station2“, 26, „Station3“, 56, „Station4“, 73, „Station5“, 85)

The Code, den ich mit bin der, der das dDep nimmt (Abfahrtszeit) und hinzufüge dann die Werte von der Reihe für munites nach Abfahrt 0 kämpfe, 26, 56, 73, 85 und Anzeigen es richtig als hh: mm.

Thanks für Ihr help. 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

Sub TestTrains ()

    I als ganze Zahl verdunkeln
    vTimes als Variante verdunkeln
    dDep als Datum verdunkeln
    sStr als Schnur verdunkeln

    vTimes = Reihe (9, „Paddington“, 0, „Messwert“, 26, „Swindon“, 56, „Chippenham“, 73, „Bad-Badekurort“, 85)
    dDep = Format (InputBox („, wann man“ u. vTimes (1), „Abfahrt“), „hh abreist: Millimeter“)
    sStr = ""
    Für i = 1 zu vTimes (0) Schritt 2
        sStr = sStr u. vTimes (i) u. „(“ u. TimeValue (dDep + (vTimes (i + 1))) u. ")“
    Zunächst I
    MsgBox (sStr)
Enden-Unterseeboot

Antwort : Hilfe, die Minuten Zeitwert hinzufügt

Hallo, Charltp5.

Dieses sollte es tun.  Die Minuten führen ConvertToTime und es zurückbringt die Stunden und die Minuten t.
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:

Funktion ConvertToTime (intMinutes als ganze Zahl) als Schnur
    Schwache intHours als ganze Zahl, intRemainder als ganze Zahl
    intHours = intMinutes/60
    Wenn intHours > 0 dann
        intRemainder = intMinutes - (intHours * 60)
        ConvertToTime = intHours u. „: “ U. StrZero (intRemainder, 2)
    Sonst
        ConvertToTime = „: “ U. StrZero (intMinutes, 2)
    Beenden wenn
Funktion beenden

Funktion ConvertToTime (intMinutes als ganze Zahl) als Schnur
    Schwache intHours als ganze Zahl, intRemainder als ganze Zahl
    intHours = intMinutes/60
    Wenn intHours > 0 dann
        intRemainder = intMinutes - (intHours * 60)
        ConvertToTime = intHours u. „: “ U. StrZero (intRemainder, 2)
    Sonst
        ConvertToTime = „: “ U. StrZero (intMinutes, 2)
    Beenden wenn
Funktion beenden
Weitere Lösungen  
 
programming4us programming4us