Question : Aide ajoutant des minutes à la valeur de temps

J'essaye de développer une fonction d'horaire de train dans les perspectives using VBA. J'ai une rangée avec le nombre folowing de valeurs d'arrêts, « arrête 1 », des minutes du départ, « arrête 2 », minutes du départ etc…. Ainsi un exemple serait… le

vTimes = code de

The de la rangée (9, « Station1 », 0, « Station2 », 26, « Station3 », 56, « Station4 », 73, « Station5 », 85) que je lutte avec est cela qui prend le dDep (heure de départ) et puis ajoute les valeurs de la rangée pour des munites après le départ 0, 26, 56, 73, 85 et affichages il correctement comme hh : mm.

Thanks pour votre help. class= > " clair " de
> de " codeSnippet " de class= de
class= " lineNumbers " de
class= de 
1 :
2 :
3 :
4 :
5 :
6 :
7 :
8 :
9 :
10 :
11 :
12 :
13 :
14 :
15 :
>Sub " de l'id= " codeSnippet799736 de
class= de

Réponse : Aide ajoutant des minutes à la valeur de temps

Bonjour, Charltp5.

Ceci devrait le faire.  Passer les minutes à ConvertToTime et il renverra les heures et les minutes.
1 :
2 :
3 :
4 :
5 :
6 :
7 :
8 :
9 :
10 :
11 :
12 :
13 :
14 :
15 :
16 :
17 :
18 :
19 :
20 :
21 :

Fonction ConvertToTime (intMinutes comme nombre entier) comme corde
    Faibles intHours comme nombre entier, intRemainder comme nombre entier
    intHours = intMinutes/60
    S'intHours > 0 puis
        intRemainder = intMinutes - (intHours * 60)
        ConvertToTime = intHours et « :  » Et StrZero (intRemainder, 2)
    Autrement
        ConvertToTime = « :  » Et StrZero (intMinutes, 2)
    Finir si
Finir la fonction

Fonction ConvertToTime (intMinutes comme nombre entier) comme corde
    Faibles intHours comme nombre entier, intRemainder comme nombre entier
    intHours = intMinutes/60
    S'intHours > 0 puis
        intRemainder = intMinutes - (intHours * 60)
        ConvertToTime = intHours et « :  » Et StrZero (intRemainder, 2)
    Autrement
        ConvertToTime = « :  » Et StrZero (intMinutes, 2)
    Finir si
Finir la fonction
Autres solutions  
  •  MS Excel 2007 et pdf - l'exportation vers le pdf prend de longues heures !
    •
  •  Dans le Perl, comment j'ajoute une valeur à la liste, puis le contrôle pour voir si la valeur existent avant d'ajouter une nouvelle valeur
    •
  •  Comment fais j'initialiser de la HP BL460c G6 de san et de la HP XP 240000
    •
  •  Comment fais j'employer une clef de permis de volume sur un ordinateur de HP avec du CD de restauration
    •
  •  Emplacement primaire de deux SCCM dans l'annuaire actif
    •
  •  L'initiateur et la HP D2D de l'iSCSI R2 du serveur 2008 de Windows GERCENT l'issue
    •
  •  Stocker le dossier dans le mysql using connector.net et le champ de goutte
    •
  •  Carte vidéo d'USB - bit 32 sur le matériel travaillant au niveau du bit 64 ?
    •
  •  asp.net que j'essaye de convertir une forme de HTML en forme d'aspx ou ? ce qui jamais. Aide du besoin sur la façon dont à à elle.
    •
  •  Winzip 12 issues de secours du travail ?
    •
     
    programming4us programming4us