Pergunta : Ajuda que adiciona minutos ao valor de tempo

Eu estou tentando desenvolver uma função do calendário do trem na probabilidade using VBA. Eu tenho uma disposição com o número folowing dos valores de batentes, “paro 1”, minutos da partida, “paro 2”, minutos da partida etc…. Assim um exemplo seria… o

vTimes = de

The da disposição (9, “Station1”, 0, “Station2”, 26, “Station3”, 56, “Station4”, 73, “Station5”, 85) código que eu me estou esforçando com sou aquele que toma o dDep (tempo de partida) e adiciono então os valores da disposição para munites após a partida 0, 26, 56, 73, 85 e exposições ele corretamente como o hh: mm.

Thanks para seu help. class= > " desobstruído " do
> do " codeSnippet " do class= do
class= " lineNumbers " do
class= do 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
>Sub notpretty TestTrains " do class= " do id= " codeSnippet799736 do
class= do

Resposta : Ajuda que adiciona minutos ao valor de tempo

Olá!, Charltp5.

Isto deve fazê-lo.  Passar os minutos a ConvertToTime e retornará as horas e os minutos.
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:

Função ConvertToTime (intMinutes como o inteiro) como a corda
    intHours não ofuscantes como o inteiro, intRemainder como o inteiro
    intHours = intMinutes/60
    Se intHours > 0 então
        intRemainder = intMinutes - (intHours * 60)
        ConvertToTime = intHours & “: ” & StrZero (intRemainder, 2)
    Mais
        ConvertToTime = “: ” & StrZero (intMinutes, 2)
    Terminar se
Terminar a função

Função ConvertToTime (intMinutes como o inteiro) como a corda
    intHours não ofuscantes como o inteiro, intRemainder como o inteiro
    intHours = intMinutes/60
    Se intHours > 0 então
        intRemainder = intMinutes - (intHours * 60)
        ConvertToTime = intHours & “: ” & StrZero (intRemainder, 2)
    Mais
        ConvertToTime = “: ” & StrZero (intMinutes, 2)
    Terminar se
Terminar a função
Outras soluções  
 
programming4us programming4us