Questione : Aiuto che aggiunge i minuti al valore di tempo

Sto provando a sviluppare una funzione dell'orario del treno nella prospettiva using VBA. Ho un allineamento con il numero folowing di valori degli arresti, “arresto 1„, minuti dalla partenza, “arresto 2„, i minuti dalla partenza ecc… Così un esempio sarebbe…

vTimes = codice che del

The di allineamento (9, “Station1„, 0, “Station2„, 26, “Station3„, 56, “Station4„, 73, “Station5„, 85) sto lottando con sono quello che prende il dDep (tempo di partenza) ed allora aggiungo i valori dall'allineamento per i munites dopo la partenza 0, 26, 56, 73, 85 ed esposizioni esso correttamente come hh: mm.

Thanks per il vostro help. class= > " libero " 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

Risposta : Aiuto che aggiunge i minuti al valore di tempo

Ciao, Charltp5.

Ciò dovrebbe farla.  Passare i minuti a ConvertToTime e restituirà le ore ed i minuti.
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:

Funzione ConvertToTime (intMinutes come numero intero) come stringa
    intHours fiochi come numero intero, intRemainder come numero intero
    intHours = intMinutes/60
    Se intHours > 0 allora
        intRemainder = intMinutes - (intHours * 60)
        ConvertToTime = intHours & “: „ & StrZero (intRemainder, 2)
    Altrimenti
        ConvertToTime = “: „ & StrZero (intMinutes, 2)
    Concluder se
Concludere la funzione

Funzione ConvertToTime (intMinutes come numero intero) come stringa
    intHours fiochi come numero intero, intRemainder come numero intero
    intHours = intMinutes/60
    Se intHours > 0 allora
        intRemainder = intMinutes - (intHours * 60)
        ConvertToTime = intHours & “: „ & StrZero (intRemainder, 2)
    Altrimenti
        ConvertToTime = “: „ & StrZero (intMinutes, 2)
    Concluder se
Concludere la funzione
Altre soluzioni  
 
programming4us programming4us