Pytanie : Pomoc sumujący minuta czas wartość

I próbować taborowy rozkład zajęć funkcja w Światopogląd using VBA. I mieć szyk z the folowing wartość liczba przerwa, "zatrzymywać (1)", minuta od odjazd, "zatrzymywać 2", minuta od odjazd etc… W Ten Sposób przykład być…

vTimes = Szyk (9, "Station1", (0), "Station2", 26, "Station3", 56, "Station4", 73, "Station5", 85)

The kod I zmagać się z być 85 che brać the dDep (wyjściowy czas) i wtedy dodawać the wartość od the szyk dla munites po odjazd (0), 26, 56, 73, 85 i pokaz ono prawidłowo jako hh: mm.

Thanks dla twój help. 
(1):
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

Sub TestTrains ()

    Ćmić i Jako Integer
    Ćmić vTimes Jako Wariant
    Ćmić dDep Data
    Ćmić sStr Sznurek

    vTimes = Szyk (9, "Paddington", (0), "", 26, "Swindon", 56, "Chippenham", 73, "Kąpielowy Zdrój", 85)
    dDep = Format (InputBox ("Jaki czas" & vTimes (1), "Odjazd"), "hh: mm")
    sStr = ""
    Dla i = (1) VTimes ((0)) Krok 2
        sStr = sStr & vTimes (i) & "(" & TimeValue (dDep + (vTimes (i + 1))) & ")"
    Następnie i
    MsgBox (sStr)
Końcówka Okręt podwodny

Odpowiedź : Pomoc sumujący minuta czas wartość

Cześć, Charltp5.

Ono musieć ono.  Przechodzić the minuta ConvertToTime i ono wracać the godzina i minuta.
(1):
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:

Funkcja ConvertToTime (intMinutes Jako Integer) Sznurek
    Ciemnawy intHours Jako Integer, intRemainder Jako Integer
    intHours = intMinutes/60
    Jeżeli intHours > (0) Wtedy
        intRemainder = intMinutes - (intHours * 60)
        ConvertToTime = intHours & ": " & StrZero (intRemainder, 2)
    Inny
        ConvertToTime = ": " & StrZero (intMinutes, 2)
    Kończyć Jeżeli
Kończyć Funkcja

Funkcja ConvertToTime (intMinutes Jako Integer) Sznurek
    Ciemnawy intHours Jako Integer, intRemainder Jako Integer
    intHours = intMinutes/60
    Jeżeli intHours > (0) Wtedy
        intRemainder = intMinutes - (intHours * 60)
        ConvertToTime = intHours & ": " & StrZero (intRemainder, 2)
    Inny
        ConvertToTime = ": " & StrZero (intMinutes, 2)
    Kończyć Jeżeli
Kończyć Funkcja
Inne rozwiązania  
 
programming4us programming4us