Dissdate avec nombre de jours et heures

omen123123 Messages postés 52 Date d'inscription   Statut Membre Dernière intervention   -  
 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

A voir également:

2 réponses

Tessel75
 
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
omen123123
 
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