'Toutes les actions possibles avec les DATES ET HEURE
'-----------------------------------------------------
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
SOMMAIRE
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
'1.La fonction DateSerial
'2.La fonction DateValue
'3.Récupération partielle de date
'4.La fonction TimeSerial
'5.Ajouter une valeur à une date ou une heure
'6.Soustraire une valeur à une date ou une heure
'1.LA FONCTION DateSerial
'************************
'La fonction DateSerial renvoie la valeur numérique correspondant à une année, un mois et un 'jour
MaDate.text = DateSerial(Year(Now), Month(Now), Day(Now))
'2.LA FONCTION DateValue
'***********************
'DateValue renvoie une valeur numérique pour un date passé comme chaine de caractère '(String)
MaVariableNumerique = DateValue("12 mai 2002")
'3.RECUPERATION PARTIELLE DE DATE
'********************************
'Le jour, le mois et l'année sont renvoyé par les fonctions Day,Month et Year
'Jour.Text = Day(Now)
'Mois.Text = Month(Now)
'Annee.Text = Year(Now)
'4.LA FONCTION TimeSerial
'************************
'Renvoie la valeur horaire d'une heure, d'une minute et d'une seconde. Les valeurs d'heure 'différents peuvent etres comparées immédiantement, sans les décomposer en heure, minute, 'secondes.
MonHeure.Text = TimeSerial(Hour(Now), Minute(Now), Second(Now))
'5.AJOUTER UNE VALEUR A UNE DATE OU UNE HEURE
'********************************************
'SYNTAXE:
'Resultat.Text = DateAdd(Intervalle, Valeur, Date)
'EXEMPLES:
'Ajouter 5 mois à la date actuelle
'---------------------------------
Resultat.Text = DateAdd("m", 5, Date)
'Ajouter 10 minutes à l'heure actuelle
'-------------------------------------
Resultat.Text = DateAdd("n", 10, Time)
'INTERVALES POSSIBLES:
'*************************************************
'*INTERVALES *DESCRIPTION *
'*************************************************
' aaaa année
' t trimestre
' m mois
' a jour de l'année
' j jour
' e jour de la semaine
' ee semaine
' h heure
' n minute
' s seconde
'6.SOUSTRAIRE UNE VALEUR A UNE DATE OU UNE HEURE
'***********************************************
Resultat.Text = DateDiff(Intervale, Date1, Date2)
'Pour les intervalles, voir le tableau du n°5