Fonctions sur les dates

Index

Date
Year(Date)
Month(Date)
Day(date)
WeekDay(date)
DateSerial(an,mois,jour)
DatePart(intervalle,date,PremierJourSemaine,PremierSemaineAnnée)
DateAdd(intervalle,nombre,date)

DateDiff(intervalle,début,Fin)
IsDate(date)
Cdate(chaîne)

Date

Donne la date du jour.

Msgbox Date

Résultat
31/12/2006

Year(Date)
Month(Date)
Day(Date)

Donne l’année, le mois et le jour d’une date.

MsgBox Year(Date)

Résultat
2006

WeekDay(Date,PremierJourSemaine)

Donne le jour de la semaine.

MsgBox Weekday(#12/31/2006#)

Le paramètre PremierJourSemaine définit le premier jour de la semaine.

vbSunday

1

Dimanche

vbMonday

2

Lundi

vbTuesday

3

Mardi

vbWednesday

4

Mercredi

vbThursday

5

Jeudi

vbFriday

6

Vendredi

vbSaturday

7

Samedi

MsgBox Weekday(#12/31/2006#, vbMonday)
Résultat
7

DateSerial(année,mois,jour)

Donne la date spécifiée

MsgBox DateSerial(2006,10,25)

Résultat
25/10/2006

DatePart(intervalle,Date,PremierJourSemaine,PremierSemaineAnnée)

Donne l’année, le trimestre, le mois, la semaine, le jour de l’année d’une date.

MsgBox DatePart("ww",#1/30/2006#)

Résultat
5

yyyy

Année

q

Trimestre

m

Mois

y

jour de l'année

w

Jour de la semaine

d

jour

ww

Semaine

h

Heure

n

Minute

s

seconde

Le paramètre PremierJourSemaine définit le premier jour de la semaine.

vbSunday

1

Dimanche

vbMonday

2

Lundi

vbTuesday

3

Mardi

vbWednesday

4

Mercredi

vbThursday

5

Jeudi

vbFriday

6

Vendredi

vbSaturday

7

Samedi


vbFirstJan1

1

Commencer par la semaine du 1er janvier (valeur par défaut).

vbFirstFourDays

2

Commencer par la première semaine comportant au moins quatre jours dans l'année nouvelle.

vbFirstFullWeek

3

Commencer par la première semaine complète de l'année.

DateAdd(intervalle,nombre,date)

Ajoute l’intervalle spécifié à une date.

MsgBox DateAdd("m", 1, Date)

Résultat
31/1/2007

DateDiff(intervalle,Début,Fin)

Donne la différence entre 2 dates.

yyyy

Année

q

Trimestre

m

Mois

y

jour de l'année

w

Jour de la semaine

d

jour

ww

Semaine

h

Heure

n

Minute

s

seconde

MsgBox DateDiff("yyyy", #9/10/2000#, Date)

Résultat
6

IsDate(date)

Donne True si la variable est du type Date

Cdate(date)

Convertit une chaîne en date.

x = "31/12/2006"
MsgBox CDate(x)

Utiliser les fonctions de la feuille de calcul

Application.nomFonction

La syntaxe pour accéder aux fonctions de la feuille de calcul est : Application.nomFonction.

Ci dessous nous calculons le nombre de cellules remplies dans le champ C2 :C5.

x = Application.CountA(Range("c2:c5"))

Pour avoir la traduction des fonctions en anglais, utiliser l’enregistreur et écrire la fonction en français dans la feuille de calcul.

Fonctions tableur les plus courantes

Recherchev() Application.VlookUp
Equiv() Application.Match
Index() Application.Index
Supprespace() Application.Trim

 


 

 

Exemples