Dissdate avec nombre de jours et heures

Fermé
omen123123 Messages postés 52 Date d'inscription lundi 7 septembre 2015 Statut Membre Dernière intervention 7 octobre 2024 - 22 oct. 2015 à 16:01
 omen123123 - 23 oct. 2015 à 10:41
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

A voir également:

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
0
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
0