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
omen123123 - 23 oct. 2015 à 10:41
A voir également:
- Dissdate avec nombre de jours et heures
- Compte facebook suspendu 180 jours - Guide
- Compte instagram suspendu 180 jours - Guide
- Qu'est ce qu'une femme fait 3 fois par jour et un homme une fois dans sa vie - Forum Loisirs / Divertissements
- Les jours de naissance et leur signification pdf - Télécharger - Histoire & Religion
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
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
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