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
 

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

Discussions similaires

Statistiques des forums

Discussions
311 732
Messages
2 081 997
Membres
101 861
dernier inscrit
Jerem28630