 |
Publicité 
|
Les différentes fonctions de date et heure sont nombreuses et permettent de nombreux calculs ou bien encore facilitent l'affichage de date.
Les différentes fonctions sont :
| Date | donne la date courante du système |
| Time | donne l'heure courante du système |
| DateAdd | donne résultat de l'ajout d'un intervalle de temps à une date donnée |
| DateDiff | donne un intervalle de temps entre deux dates |
| DatePart | donne une partie spécifiée d'une date |
| DateSerial | retourne la date en fonction d'une année, un mois et un jour spécifiés |
| DateValue | retourne la date correspondant à la chaîne spécifiée |
| Day | retourne le jour (nombre) de la date spécifiée |
| Month | retourne le mois (nombre) de la date spécifiée |
| MonthName | retourne le mois (texte abrégé ou non) de la date spécifiée |
| Weekday | retourne le jour de la semaine (nombre) de la date spécifiée |
| WeekdayName | retourne le jour de la semaine (texte abrégé ou non) de la date spécifiée |
| Year | retourne l'année (nombre) de la date spécifiée |
| Hour | retourne l'heure de la date spécifiée |
| Minute | retourne les minutes de la date spécifiée |
| Second | retourne les secondes de la date spécifiée |
| Now | retourne la date et l'heure courante du système |
| TimeSerial | retourne un variant de type date définissant «l'heure» pour des heures,minutes et secondes données |
| TimeValue | retourne «l'heure» correspondant à une chaîne de caractères donnée |
Les intervalles de temps utilisés dans certaines de ces fonction sont :
| yyyy | l'année |
| q | le trimestre |
| m | le mois (nombre) |
| y | le jour de l'année |
| d | le jour (nombre) |
| w | le jour de la semaine |
| ww | le numéro de semaine de l'année |
| h | l'heure |
| n | les minutes |
| s | les secondes |
En ce qui concerne les jour de la semaine :
| 1 | dimanche |
| 2 | lundi |
| 3 | mardi |
| 4 | mercredi |
| 5 | jeudi |
| 6 | vendredi |
| 7 | samedi |
Voici quelques exemples d'utilisation de ces fonctions pour afficher des dates :
Ecrire la date du jour attention on est le 26 septembre 2001 ! :
3 façon d'écrire la date complète du jour :
Fonction Now :
response.write "Aujourd'hui : " & Now & "<br>" & vbcrlf
Aujourd'hui : 26/09/2001 15:34:26
Fonctions Day, Month, Year Hour, Minute et Second :
response.write "Aujourd'hui : " & Day(Now) & "/" & Month(Now) & "/" & Year(Now) & " " & Hour(Now) & ":" & Minute(Now) & ":" & Second(Now) & "<br>" & vbcrlf
Aujourd'hui : 26/09/2001 15:34:26
Fonctions Date et Time :
response.write "Aujourd'hui : " & Date & " " & Time & "<br>" &vbcrlf
Aujourd'hui : 26/09/2001 15:34:26
2 façon d'écrire la date en toutes lettres
Fonction Weekday, WeekdayName, Day, MonthName, Nomth et Year sans abréviations :
response.write "Aujourd'hui : " & WeekDayName(WeekDAy(Now)) & " "& Day(Now) & " " & MonthName(Month(Now)) & " " & Year(Now) & "<br><p>" & vbcrlf>
Aujourd'hui : mercredi 26 septembre 2001
Fonction Weekday, WeekdayName, Day, MonthName, Nomth et Year en abrégé :<br>" & vbcrlf
response.write "Aujourd'hui : " & WeekDayName(WeekDAy(Now),true) & " "& Day(Now) & " " & MonthName(Month(Now),true) & " " & Year(Now) & "<br><p>" & vbcrlf
Aujourd'hui : mer. 26 sept. 2001
Calcul d'intervalle de temps avec les fonctions DateDiff et now :
response.write "Il nous reste " & DateDiff("d", Now, "01/01/02") & " jours avant le passage à l'euro <br>" & vbcrlf
response.write "soit : " & DateDiff("ww", Now, "01/01/02") & " semaines <br>" & vbcrlf
response.write "soit : " & DateDiff("m", Now, "01/01/02") & " mois <br>" & vbcrlf
response.write "soit : " & Formatnumber(DateDiff("h", Now, "01/01/02"),0,0,0,-1) & " heures <br>" & vbcrlf
response.write "soit : " & Formatnumber(DateDiff("n", Now, "01/01/02"),0,0,0,-1) & " minutes <br>" & vbcrlf
response.write "soit : " & Formatnumber(DateDiff("s", Now, "01/01/02"),0,0,0,-1) & " secondes <p>" & vbcrlf
Il nous reste 97 jours avant le passage à l'euro
soit : 14 semaines
soit : 4 mois
soit : 2 313 heures
soit : 138 746 minutes
soit : 8 324 734 secondes
Calcul de date avec les fonctions DateAdd et now :
Mydate = DateAdd("m",-4 ,Now)
response.write "Il y a 4 mois (jour pour jour) nous étions le " & Mydate & ".<br>"
response.write "Pour être plus précis : le " & WeekDayName(WeekDay(Mydate),false) & " "& Day(Mydate) & " " & MonthName(Month(Mydate),false) & " " & Year(Mydate) & "<br>" & vbcrlf
response.write "dans le trimestre numéro " & DatePart("q", Mydate) & " de l'année, le " & DatePart("y", Mydate) & " ème jour de l'année, dans la semaine " & DatePart("ww", Mydate) & " <br>" & vbcrlf
Mydate = DateAdd("ww",4 ,Now)
response.write "Dans 4 semaines (jour pour jour) nous serons le " & Mydate & ".<br>"
response.write "Pour être plus précis : le " & WeekDayName(WeekDay(Mydate),false) & " "& Day(Mydate) & " " & MonthName(Month(Mydate),false) & " " & Year(Mydate) & "<br>" & vbcrlf
response.write "dans le trimestre numéro " & DatePart("q", Mydate) & " de l'année, le " & DatePart("y", Mydate) & " ème jour de l'année, dans la semaine " & DatePart("ww", Mydate) & " <br>" & vbcrlf
Il y a 4 mois (jour pour jour) nous étions le 26/05/2001 15:34:26.
Pour être plus précis : le samedi 26 mai 2001
dans le trimestre numéro 2 de l'année, le 146 ème jour de l'année, dans la semaine 21
Dans 4 semaines (jour pour jour) nous serons le 24/10/2001 15:34:26.
Pour être plus précis : le mercredi 24 octobre 2001
dans le trimestre numéro 4 de l'année, le 297 ème jour de l'année, dans la semaine 43
Utilisation des fonctions TimeSerial, TimeValue, DateSerial, DateValue
MontrealTime = TimeSerial(Hour(Now) - 6, Minute(Now) -15, 0)
response.write "Sachant que la France a environ 6 heures de décalage avec le Québecet que l'heure française actuelle est : " & Time & " " & Hour(Now) &", quelle heure était-il il y a 6 heures et 15 minutes ?<br>"
response.write "Résultat : " & MontrealTime & "<p>" & vbcrlf
Sachant que la France a environ 6 heures de décalage avec le Québec et que l'heure française actuelle est : 15:34:26 15, quelle heure était-il il y a 6 heures et 15 minutes ?
Résultat : 09:19:00
response.write "Un anglais me dit qu'il est 4:35:17 PM, moi je préfère dire qu'il est : " & TimeValue("4:35:17 PM") & "<br>" & vbcrlf
Un anglais me dit qu'il est 4:35:17 PM, moi je préfère dire qu'il est : 16:35:17
response.write "Il y a 2 ans, 8 mois et 19 jours nous étions le : " & DateSerial(Year(Now) - 2, Month(Now) - 8, Day(Now) - 19) & "<br>" & vbcrlf
Il y a 2 ans, 8 mois et 19 jours nous étions le : 07/01/1999
response.write "DateValue 01 Janvier 2002 : " & DateValue("01 Janvier 2002")& " ou 01 jan. 2002 : " & DateValue("01 jan 2002")& " <br>" & vbcrlf
DateValue 01 Janvier 2002 : 01/01/2002 ou DateValue 01 jan. 2002 : 01/01/2002
|
