Discussion :

[subnox]

Bonjour,

J'aimerais pouvoir calculer la différence (en mois) entre 2 dates depuis visual basic (mais dans access)

Voilà la fonction que j'ai créé, la plupart des fois ca fonctionne bien mais d'autre ca me donne un mois de trop!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Public Function DiffDays(dtFirstDate As Date, dtSecondDate As Date) As Double
 
  Dim dblTemp As Double
  dblTemp = (dtSecondDate - dtFirstDate + 1#) / 30#   
  DiffDays = dblTemp
 
 
End Function

Par exemple entre le 01.03.2014 et le 30.10.2020 il me calcul 81.2 mois alors j'arrondi en dessous (81mois) mais il me reste toujours un mois de trop...

Pouvez-vous m'aider svp!?

Merci beaucoup d'avance!

[subnox]

Bon ben en cherchant un peu dans la FAQ j'ai trouvé quelque chose:

Pour calculer la différence entre deux dates, il faut utiliser la fonction DateDiff.
DateDiff(interval, date1, date2)


Où interval est une chaine de caractères correspondant à l'intervalle à prendre en compte.


y Année
m Mois
d Jour
h Heure
n Minute
s Seconde
q Trimestre
w Semaine
DateDiff("s", #1/1/1990#, #1/1/1992#)

Mais j'ai un autre souci, mes dates sont enregistrées dans des variables (donc j'aimerais bien pouvoir utiliser ces variables) et de plus elles sont au format français...

Donc en espèrant que vous pourrez m'aider, dsl de pas avoir regarder avant dans la FAQ, mais ct mon premier post sur ce forum!

Merci d'avance!

[cavo789]

A ma connaissance, peu importe que la date soit régionnale (FR) ou non. DateDiff tient compte de cela comme un grand.

[random]

il faut être grandissime pour distinguer
03/01/2007 et 01/03/2007 sans connaître l'environnement régional

par contre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
dateserial(2007,3,1)

n'est jamais ambigü