Dissdate avec nombre de jours et heures
omen123123
Messages postés
59
Statut
Membre
-
omen123123 -
omen123123 -
bonjour
execusez moi si vous trouvez ma question un peu bete,j'ai fait une diffdate comme suite dans un champ texte : =DiffDate("j";[date_demande];Maintenant()) .
le resultat est excellent ,ce que je voudrai maintenant l'avoir en j et heures exemple 2j:17 h
merciiii
execusez moi si vous trouvez ma question un peu bete,j'ai fait une diffdate comme suite dans un champ texte : =DiffDate("j";[date_demande];Maintenant()) .
le resultat est excellent ,ce que je voudrai maintenant l'avoir en j et heures exemple 2j:17 h
merciiii
2 réponses
-
Bonjour,
Sanste donner une réponse certaine, à ta place j'essaierais la méthode suivante
1) A0 = DiffDate("h";[date_demande];Maintenant())
A1= Int(A0/24)
A2= A0 - (A1*24)
A= A1 & ":" & A2
2) ou bien en passant par la fonction Format
Bonne suite -
bonjour
merci pour vos reponse voila j'ai trouvé la solution ,j'ai fait :
=Diffjh([date_demande];Maintenant()) ca donne comme ca exemple : 2j22h.
sinon pour les itulisateurs de code :
Public Function DiffJH(Depart As Date, Arrivee As Date) As String
Dim DiffHeures As Long
Dim DiffJours As Long
DiffHeures = DateDiff("h", Depart, Arrivee)
DiffJours = Int(DiffHeures / 24)
DiffHeures = DiffHeures - (DiffJours * 24)
DiffJH = DiffJours & " J " & DiffHeures & " h."
End Function
merci une autre fois pour votre soutien
