Cuestión : Ayuda que agrega minutos al valor de tiempo

Estoy intentando desarrollar una función del horario del tren en perspectiva usar VBA. Tengo un arsenal con el número folowing de los valores de paradas, “paro 1”, los minutos de salida, “paro 2”, minutos de salida etc…. Un ejemplo sería tan… el

vTimes = código del

The del arsenal (9, “Station1”, 0, “Station2”, 26, “Station3”, 56, “Station4”, 73, “Station5”, 85) que estoy luchando con soy el que toma el dDep (hora de salida) y después agrego los valores del arsenal para los munites después de la salida 0, 26, 56, 73, 85 y las exhibiciones él correctamente como hh: mm.

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

Respuesta : Ayuda que agrega minutos al valor de tiempo

Hola, Charltp5.

Esto debe hacerlo.  Pasar los minutos a ConvertToTime y volverá las horas y los minutos.
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:

Función ConvertToTime (intMinutes como número entero) como secuencia
    intHours déviles como número entero, intRemainder como número entero
    intHours = intMinutes/60
    Si intHours > 0 entonces
        intRemainder = intMinutes - (intHours * 60)
        ConvertToTime = intHours y “: ” Y StrZero (intRemainder, 2)
    
        ConvertToTime = “: ” Y StrZero (intMinutes, 2)
    Terminar si
Terminar la función

Función ConvertToTime (intMinutes como número entero) como secuencia
    intHours déviles como número entero, intRemainder como número entero
    intHours = intMinutes/60
    Si intHours > 0 entonces
        intRemainder = intMinutes - (intHours * 60)
        ConvertToTime = intHours y “: ” Y StrZero (intRemainder, 2)
    
        ConvertToTime = “: ” Y StrZero (intMinutes, 2)
    Terminar si
Terminar la función
Otras soluciones  
 
programming4us programming4us