Manipuler les dates et heures (addition et soustraction)

Soyez le premier à donner votre avis sur cette source.

Snippet vu 97 538 fois - Téléchargée 43 fois

Commenter

Contenu du snippet

'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

Source / Exemple : 


'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

Conclusion :


Et voilà

A voir également

Ajouter un commentaire

Commentaires

Signaler
reivon
Messages postés
81
Date d'inscription
lundi 18 février 2002
Statut
Membre
Dernière intervention
4 février 2005
 -
et bien, t'as l'air d'aimer les dates et heures toi ! merci pour toutes les explications ci-dessus, ca aide
Signaler
magidev
Messages postés
249
Date d'inscription
mardi 24 octobre 2000
Statut
Membre
Dernière intervention
28 août 2009
 -
De rien, c'est tout naturel. J'ai aussi fait un tutorial sur le SQL et les bases de donne
Signaler
devsurf
Messages postés
148
Date d'inscription
dimanche 13 octobre 2002
Statut
Membre
Dernière intervention
13 novembre 2008
 -
T'aurais pa l'heure stp?
:)
Trés bien c'est exactement ce que je cherchais
Merc
Signaler
iurodivi
Messages postés
4
Date d'inscription
mercredi 17 décembre 2003
Statut
Membre
Dernière intervention
22 décembre 2003
 -
bien, merci :)
Signaler
loopingstar
Messages postés
9
Date d'inscription
mercredi 18 décembre 2002
Statut
Membre
Dernière intervention
4 février 2004
 -
Bonjour, j'ai un piti souci : Voici un exemple : Comment faire pur enlever "00:03:00" à "15:55:00" ? En fait je voudrai enlever des secondes ou minutes (qui sont sous la forme "hh:mm:ss" à un temps (sous la même forme "hh:mm:ss")
Merci à vous.
Afficher les 49 commentaires
S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (magidev)