DateDiff
Compteur = DateDiff ( Date1 AS Date , Date2 AS Date , Periode AS Integer ) AS Integer
Renvoie le nombre de périodes entre deux dates.
-
Date1 est la date de départ.
-
Date2 est la date de fin.
-
Periode est le type de période : année, mois, jour, semaine...
Le nombre de périodes est retourné.
Periode peut être l'une des constantes suivantes :
|
Constante
|
Effet
|
|---|
|
|
gb.Millisecond
|
Retourne le nombre de millisecondes.
|
gb.Second
|
Retourne le nombre de secondes.
|
gb.Minute
|
Retourne le nombre de minutes.
|
gb.Hour
|
Retourne le nombre d'heures.
|
gb.Day
|
Retourne le nombre de jours.
|
gb.Week
|
Retourne le nombre de semaines.
|
gb.Weekday
|
Retourne le nombre de jours de la semaine (ignore samedi et dimanche).
|
gb.Month
|
Retourne le nombre de mois.
|
gb.Quarter
|
Retourne le nombre de trimestres.
|
gb.Year
|
Retourne le nombre d'années.
|
Seules les périodes entières sont retournées. Le résultat est arrondi par défaut.
Exemples
Print DateDiff("01/02/2005 12:55:00", "01/01/2005", gb.Day)
Cet exemple montre comment fonctionne dateDiff de l'intérieur.
Dim date1 AS Date
Dim date2 AS Date
Dim fDiff AS Float
Dim iDiff AS Integer
date1 = Date(1964, 02, 28, 0, 29, 0
date2 = Date(1964, 03, 01, 0, 30, 0) ' Deux jours plus une minute
fDiff = CFloat(date2) - CFloat(date1)
iDiff = Int(fDiff * 24)
Print "Première : "; fdiff; " int:"; idiff; " DateDiff:"; DateDiff(date1, date2, gb.Hour)
date1 = Date(1964, 02, 28, 0, 30, 0
date2 = Date(1964, 03, 01, 0, 29, 0) ' Deux jours moins une minute
fDiff = CFloat(date2) - CFloat(date1)
iDiff = Int(fDiff * 24)
Print "Deuxième : "; fdiff; " int:"; idiff; " DateDiff:"; DateDiff(date1, date2, gb.Hour)
Première : 2.000694444403 int:48 DateDiff :48
Deuxième : 1.999305555597 int:47 DateDiff :47
Voir aussi