35 heures

Bonjour

J'ai pas trouver d'exemple de programme sur les  35 heures esceque quelqu'un aurait une idée pour me mettre sur un début de programme je suis débutant
Je prend tout les jours de 8 heures  à 12H00 j'ai une pause déjeuner 1H30 je reprend à 13H30 et Normalement 16H30
mais quelques fois le patron me demande de faire du rab ça varie du quart heures à 1h30 , c'est pour ceci que je veus essayer de faire un petit prog avec vous pour suivre mes heures

salutation

dédé[8D]

Salut,

beh qu'est ce que tu veux savoir ?
T'as des calculs ? Une interface de saisie avec des contrôles ?

@++

---

Le mystérieux chevalier  Provençal, l

Pour répondre à un MP de andregoub, qui n'a pas trouvé :

Voici une façon (parmi des dizaines d'autres que l'on pourrait "inventer")

Private Sub Command1_Click()
  'voilà pour calculer une durée
  datedebut = "01/01/2001 10:22:43"
  datefin = "02/01/2001 10:23:44"
  nbsecondes = DateDiff("s", datedebut, datefin)
  nbminutes = nbsecondes \ 60
  nbsecondes = nbsecondes Mod 60
  nbheures = nbminutes \ 60
  nbminutes = nbminutes Mod 60
  MsgBox nbheures & " heure(s) " & nbminutes & " minute(s) " & nbsecondes & " seconde(s) "
End Sub

Private Sub Command2_Click()
  'voilà pour additionner des durées
  Dim duree1 As String, duree2 As String, duree3 As String
   duree1 = "10:22:43"
   duree2 = "03:31:27"
   duree3 = "12:41:04"
   dureetot = couic(duree1) + couic(duree2) + couic(duree3)
   nbsecondes = dureetot
   nbminutes = nbsecondes \ 60
   nbsecondes = nbsecondes Mod 60
   nbheures = nbminutes \ 60
   nbminutes = nbminutes Mod 60
   MsgBox nbheures & " heure(s) " & nbminutes & " minute(s) " & nbsecondes & " seconde(s) "
End Sub

Private Function couic(houla As String) As Long
  couic = DateDiff("s", "00:00:00", TimeValue(houla))
End Function