comptage jours

[JJ]

Bonjour,
Je voudrais à l'intérieur d'une macro avoir une variable 'jour' qui me donnerait le nombre de jour entre la date saisie et la date du jour.
Comment la calculer?
par ex: 'Entrer la date:' (je pense à InputBox?)
01/12/05
et variable jour serait égal à 9 par ex
merci et Bon WE
JJ

 

[PascalXLD]

Bonjour

essaies ceci

Sub toto()

Dim monjour As Date

On Error GoTo fin
monjour = InputBox('Entrez une date')
If monjour > Date Then
    MsgBox monjour - Date & ' jours'
Else
    MsgBox Date - monjour & ' jours'
End If
Exit Sub
fin:
MsgBox 'entrez une date valide'

End Sub

Bon WE

 

[JJ]

Merci je vais tester
Bon WE
JJ

 

[JJ]

Bonjour Pascal,
Pour info une méthode qui m'a été donnée en supplément de la tienne:
Dim jour As Integer, LaDate As Date
LaDate=InputBox....
jour=Now()-LaDate
End Sub
Bon Dimanche
JJ

 

[PascalXLD]

Bonjour

Juste 2 précisions

Le Now te donne la date et l'heure ce qui en l'occurence ne sert pas à grand chose puisque c'est la date qui t'interesse d'où l'utilisation de Date. De plus je fais le test à cette heure là c'est-à-dire 20h40 environ et le resultat entre 12/12/2005 et now te donne 0 jours. Avec Date cela te donne bien 1 jour d'écart.

Pour le reste etnat donnée que une différence négative ne me plaisait pas j'avais fait un test mais on aurait pu passé par une valeur absolue pour faire plus court j'avoue

cela donnerait

Sub toto()

Dim monjour As Date

On Error GoTo fin
monjour = InputBox('Entrez une date')
MsgBox Abs(monjour - Date) & ' jours'
Exit Sub
fin:
MsgBox 'entrez une date valide'

End Sub

Bon dimanche

 

[JJ]

Bonsoir , effectivement la macro est plus précise avec Date
Merci et bonne semaine
JJ