Comment récupérer le nombre de jour ? nb=dat2-dat1

ToniConti

XLDnaute Junior
Bonsoir...

J'aimerais récupérer le nombre de jour qui sépare deux dates...

Dim nb as integer
Dim dat1, dat2 as date

nb = nbJour(dat2-dat1)

C'est surement quelque chose comme ca mais je ne sais pas quoi :confused:

Quelqu'un est encore debout à cette heure ci ? :eek:
Merci
 

gfortin9

XLDnaute Occasionnel
Re : Comment récupérer le nombre de jour ? nb=dat2-dat1

Allô!

Il y a autant de versions que de Exceliens/nnes.

Voici la mienne :
Sub test()
Dim Nb As Integer
Dim Dat1, Dat2 As Date

Dat1 = Sheets("Feuil1").Cells(2, 2).Value
Dat2 = Sheets("Feuil1").Cells(4, 2).Value
Nb = Dat2 - Dat1
Sheets("Feuil1").Cells(6, 2).Value = Nb

End Sub

GFortin
 

kjin

XLDnaute Barbatruc
Re : Comment récupérer le nombre de jour ? nb=dat2-dat1

bonjour,
Essaie
nb =DateDiff("j", Date1, Date2)
A+
kjin
 

ToniConti

XLDnaute Junior
Re : Comment récupérer le nombre de jour ? nb=dat2-dat1

Bonjour,

je pense qu'il y a un problème avec la méthode DateDiff.
Le message suivant me fait dire ça :

"Argument ou appel de procédure incorrect"

Ou l'erreur vient peut etre d'autre part je ne sais pas...
 

kjin

XLDnaute Barbatruc
Re : Comment récupérer le nombre de jour ? nb=dat2-dat1

Re,
Toute mes excuses, dans mon élan...
nb =DateDiff("d", Date1, Date2) 'day en anglais dans le texte
A+
kjin
 

ToniConti

XLDnaute Junior
Re : Comment récupérer le nombre de jour ? nb=dat2-dat1

Re kjin,

Ca fonctionne à merveille !

Un grand merci et une bonne journée :)
 

Haut Bas