Conversion d'heures en centième d'heures???
Bjour à tous,
nouvelle venue sur le forum j'aurai grand besoin de vos services.
Mon problème est le suivant, je vs explique.
Je dois compter les présences de garderie du matin et du soir pour une école sur plusieurs semaines.
Chaque fin de semaine on me porte le récap des heures d'arrivée du mat et idem pour le soir pour chaque enfant.
Je m'amuse donc à calculer le tps écoulé entre l'arrivée en garderie du mat et la fermeture du service.
Donc pour un groupe scolaire F heure ouverture du mat 7h30 à 8h50 et après c'est la classe qui commence.
Donc je me suis fais un tableau :
par exempl pour le matin : arrivée 7h30 donc il a passé 1h20 de présence en garderie,= 1.33 cent/h
exemp: " 8h10 " " 0.40mn " " = 0.67 "
Cette différence doit être convertie en centième heure. Idem avec mon tableau en recopiant la correspondance .
Ce que je souhaiterai car c'est pour moi une vraie galère avoir un fichier excel avec ttes les formules. Exempl lorsque je rentre l'heure d'arrivée, il me calculerait le tps de présence, et conversion en cent/heures. Quelle joie!!
Pour la garderie du soir ouverture 16h45 à 19h00 le problème est le même car je n'ai aucune formule de calcul automatique de faites.
Et pour finir j'ai donc deux groupes scolaires à saisir qui pour tout arranger , n'ont pas les mêmes horaires!!!
SI VOUS POUVIEZ VENIR A MON SECOURS JE VOUS EN SERAI VRAIMENT RECONNAISSANTE CAR C EST UNE VRAIE GALERE. JE PEUX VS ENVOYER MES FICHIERS EN MP
PAR AVANCE JE VOUS RERERE-MERCIE (J'espère être assez claire dans mes propos)
Bonjour,
Pour convertir des heures Excel (7:30 par exemple) en heures décimales, il faut multiplier par 24 et mettre au format Standard
en A1 : 7:30
en B1 : =A1*24
format Standard
Je te laisse adapter à ton fichier
Pour aller plus loin, il faudrait que tu nous joignes ton fichier (sans données confidentielles)
@+
Bonjour,
Dans textbox
Dim TB, Resultat As Single
Me.TextBoxX1.value = Format(Durée, "hh:mm")
TB = Split(TextBoxX1.value, ":")
Resultat = TB(0) + ((TB(1) / 60))
Me.TextBoxX2.value = Resultat
Me.TextBoxX2.value = Format(Resultat, "0.00")