Problème de somme d'heure en VBA

[WILFRIED]

Salut,

Je bosse sur une application pour gerer le planning de gardes d'enfant par une nourrisse. J'utilise un USF pour renseigner les heures de début et fin pour le matin,midi,après-midi. et ainsi connaitre le nombre d'heure de garde par jour par semaine. Mon problème est que si le nombre d'heure dépasse 24h cela bug. Comment faire pour que la somme continue. J'ai tester avec Format(tot_semaine, "[h]:mm:ss;@") mais je n'est rien de concluant.

Voici le fichier :

planning garde nourrisse

A+ et merci d'avance

 

[pierrejean]

Re : Problème de somme d'heure en VBA

bonjour WILFRIED

A partir d'un y exprimé en jours

J'ai pu obtenir l'affichage dans un label tel que tu le souhaites avec:

y = 50.52 / 24
If y > 1 Then
  m = y - Int(y)
  n = Int(y)
z = Split(Format(m, "h:mm:ss"), ":")
Label1.Caption = n * 24 + z(0) & ":" & z(1) & ":" & z(2)
Else
Label1.Caption = Format(y, "h:mm:ss")
End If

J'espere sincerement que quelqu'un aura une solution moins capillotractée !!

 

[WILFRIED]

Re : Problème de somme d'heure en VBA

Salut Pierrejean

Merci pour ton astuce. Je vais regarder cela de prèt.

a+