Fråga : Att tillfoga för hjälp noterar för att tajma värderar

Pröva förmiddag I att framkalla ett drevschema fungerar i framtidsutsikt using VBA. Jag har en samling med folowingen värderar numrerar av stopp, ”stoppar 1”, noterar från avvikelse, ”stoppar 2”, noterar från avvikelsen etc.…, Så ett exempel skulle är…

vTimes =

The för samling (9, ”Station1”, 0, ”Station2”, 26, ”Station3”, 56, ”Station4”, 73, ”Station5”, 85) kodifierar I-förmiddagen som kämpar med, är det, som tar dDepen (avvikelsetid) och tillfogar därefter värderar från samlingen för munites efter avvikelsen 0, 26, 56, 73, 85 och skärmar det korrekt som hh: mm.

Thanks för din help. > för 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
" codeBody " " >Sub TestTrains för class= " för
" klar "

Svar : Att tillfoga för hjälp noterar för att tajma värderar

Hi Charltp5.

Detta bör göra den.  Passera noterar till ConvertToTime, och den ska retur timmarna och noterar.
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:

Fungera ConvertToTime (intMinutes som heltal) som stränger
    Dunkla intHours som heltalet, intRemainder som heltal
    intHours = intMinutes/60
    Om intHours > 0 därefter
        intRemainder = intMinutes - (intHours * 60)
        ConvertToTime = intHours & ”: ” & StrZero (intRemainder, 2)
    Annars
        ConvertToTime = ”: ” & StrZero (intMinutes, 2)
    Avsluta om
Avsluta fungerar

Fungera ConvertToTime (intMinutes som heltal) som stränger
    Dunkla intHours som heltalet, intRemainder som heltal
    intHours = intMinutes/60
    Om intHours > 0 därefter
        intRemainder = intMinutes - (intHours * 60)
        ConvertToTime = intHours & ”: ” & StrZero (intRemainder, 2)
    Annars
        ConvertToTime = ”: ” & StrZero (intMinutes, 2)
    Avsluta om
Avsluta fungerar
Andra lösningar  
 
programming4us programming4us