Discussion :

[liquid]

Bonjour tout le monde je suis en train de faire un logiciel de gestion des absences et je suis arrivé a un element suivant:
j'ai:
- datedebutabsence: JJ/MM/AAAA,
- datefinabsence: JJ/MM/AAAA
- heuredebutabsence: HH:MM
- heurefinabsence: HH:MM
je voudrai calculer le nombre d'heure d'absence entre ces 2 dates tout en sachant que nous avons 8 de travail par jour (de 8H à 12H et de 14H à 18H) du lundi au vendredi.


Merci pour votre aide!

[Le Pharaon]

datediff(h,DateDebut, DateFin)

[liquid]

datadiff(h,DateDebut, DateFin)

Merci de me répondre mais j'ai du mal a comprendre votre code.
datadiff c'est une fonction qui a pour paramètre (h ?????, Datedebut, DateFin)
le h: s'agit t-il de l'heure?

[Theocourant]

Bonjour,

La fonction correcte est :

Code VB :

Sélectionner tout - Visualiser dans une fenêtre à part

DateDiff("h",DateDebut,DateFin)

Merci de penser à utiliser l'aide en ligne

+

Théo

[Le Pharaon]

Merci de me répondre mais j'ai du mal a comprendre votre code.
datadiff c'est une fonction qui a pour paramètre (h ?????, Datedebut, DateFin)
le h: s'agit t-il de l'heure?

h c'est pour avoir la différence en heure, d en jour, n en minute...

[ThierryAIM]

h c'est pour avoir la différence en heure, d en jour, n en minute...

oui, mais c'est un paramètre String, donc entre " "

Tant qu'a répondre, autant donner la bonne syntaxe
(surtout qu'avec ton nouveau pseudo, on va pas te rater )

[Le Pharaon]

oui, mais c'est un paramètre String, donc entre " "

Tant qu'a répondre, autant donner la bonne syntaxe
(surtout qu'avec ton nouveau pseudo, on va pas te rater )

Merci pour la remarque

Et puis une seconde personne me dévoile je retourne dans le temple changer de pseudo. (Phoenix, Narmer, Cleopatre, Amon ....)

[Theocourant]

oui, mais c'est un paramètre String, donc entre " "

Tant qu'a répondre, autant donner la bonne syntaxe
(surtout qu'avec ton nouveau pseudo, on va pas te rater )

Je rajouterais aussi la bonne fonction ... DateDiff et non datadiff

[liquid]

oui, mais c'est un paramètre String, donc entre " "

Tant qu'a répondre, autant donner la bonne syntaxe
(surtout qu'avec ton nouveau pseudo, on va pas te rater )

voila ce que j'ai donc mis dans le code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub DTPickerHeureFin_LostFocus()
Dim txtTotalHAbs As Integer
Dim h As String
txtTotalHAbs = DateDiff(h, DTPicker_DateDeb, DTPicker_DateFin)
End Sub

Mais au lostfocus il me met le message d'erreur suivant:
"Erreur d'execution '5' Argument ou appel de procédure incorrect"

Thank for your Help!