Accueil > > > CONVERSION D'UNE DATE/HEURE STANDARD VERS DATE/HEURE CONFORME À LA NORME RFC822
CONVERSION D'UNE DATE/HEURE STANDARD VERS DATE/HEURE CONFORME À LA NORME RFC822
Information sur la source
Description
Ce code permet de générer une string contenant la date et l'heure au format RFC822 (http://asg.web.cmu.edu/rfc/rfc822.html#sec-5) utilisé notamment dans les flux RSS.
Source
- Function DHToRFC822(pDate)
-
- Dim tblDate(5)
- Dim tblENWeekDayName
- Dim tblENMonthName
-
- If Not IsDate(pDate) Then Exit Function
-
- tblENWeekDayName = Array("Mon","Tue","Wed","Thu","Fri","Sat","Sun")
- tblENMonthName = Array("Jan","Feb","Mar","Apr","May","Jun","Jul","Aug","Sep","Oct","Nov","Dec")
-
- tblDate(0) = tblENWeekDayName(WeekDay(pDate, 2) - 1) & ","
- If (Len(Day(pDate)) = 1) Then tblDate(1) = "0" & Day(pDate) Else tblDate(1) = Day(pDate)
- tblDate(2) = tblENMonthName(Month(pDate) - 1)
- tblDate(3) = Year(pDate)
- tblDate(4) = TimeValue(pDate)
- tblDate(5) = "+0200"
-
- DHToRFC822 = Join(tblDate, Space(1))
-
- Erase tblDate
- Erase tblENWeekDayName
- Erase tblENMonthName
-
- End Function
Function DHToRFC822(pDate)
Dim tblDate(5)
Dim tblENWeekDayName
Dim tblENMonthName
If Not IsDate(pDate) Then Exit Function
tblENWeekDayName = Array("Mon","Tue","Wed","Thu","Fri","Sat","Sun")
tblENMonthName = Array("Jan","Feb","Mar","Apr","May","Jun","Jul","Aug","Sep","Oct","Nov","Dec")
tblDate(0) = tblENWeekDayName(WeekDay(pDate, 2) - 1) & ","
If (Len(Day(pDate)) = 1) Then tblDate(1) = "0" & Day(pDate) Else tblDate(1) = Day(pDate)
tblDate(2) = tblENMonthName(Month(pDate) - 1)
tblDate(3) = Year(pDate)
tblDate(4) = TimeValue(pDate)
tblDate(5) = "+0200"
DHToRFC822 = Join(tblDate, Space(1))
Erase tblDate
Erase tblENWeekDayName
Erase tblENMonthName
End Function
Conclusion
Utilisation :
DHToRFC822(dDate)
Sources du même auteur
Sources de la même categorie
Commentaires et avis
Discussions en rapport avec ce code source dans le forum
Date en Français encore... [ par Netlink ]
Bonjour à tous,Je n'arrive pas à formater une date en supprimant l'heure...Voici le code : Dim LabelDate As System.Web.UI.WebControls.Label Di
Delai entre deux date-heure [ par NaCe ]
Bonjour,Je dispose de 2 date-heure par exemple :1- 05/03/2002 15:302- 25/03/2002 14:00J'aimerais pouvoir donner le delai qui separe ces 2 dates sous l
Smalldatetime, formatage heure et date séparer [ par mael974 ]
Bonjour, j'utilise un sqldatasource pr effectuer une insertion via une procedure stockée .... linsertion se passe correctement, cpt jai un champ type
Problème de trigger en SQL server [ par diabolooo ]
Salut à tous,j'ai une table dans une base SQL server qui comporte 4 champs (id, date, heure, mesure)la clé primaire est composée des champs id, date,
date et heure du jour dans un textbox d'une formview en asp.net [ par caudette ]
bonjour,j'aimerai dans une formview avec plusieurs texbox affecté une date te heure du jour, à un autre texbox affecté le nom de l'utilisateur affecté
rss et asp [ par drjey ]
Salut j'aimerais savoir comment faire construire une page rss avec des elements tires d'une base de donnee.C'est a dire un fichier rss (xml) qui soit
RSS et publication [ par gyzmo222 ]
Salut,Mon problème n'est surement pas très compliqué mais je ne m'y connais vraiment pas en rss.J'ai réussi à créer un r
creation de table [ par joyeuse ]
bonjour à tous, je suis debutante en informatique, j'ainerai faire une base de donnees qui gere un studio de production d'un
flux rss sur page .asp [ par sliverdust ]
Bonjour,j'ai utilisé le script Générer un flux RSS en asp3.En utilisant le script que j'ai légèrement modifier pour l'adapter à mon cas(base access).
ajouté automatiquement l'heure et la date lors de saise [ par erdactr ]
bonjours tlm,jai une question a prospo d'une page web asp qui est relier avec une base de donné access 2003... je voudrait faire que la date et l'heur
|
Derniers Blogs
TECHDAYS PARIS 2012 : SYSTEM CENTER SERVICE MANAGER 2012 VUE D'ENSEMBLETECHDAYS PARIS 2012 : SYSTEM CENTER SERVICE MANAGER 2012 VUE D'ENSEMBLE par ROMELARD Fabrice
Speakers: Julien Marechal, Gautier Confiant, Sébastien MEYER La session débute par le positionnement de la solution System Center par rapport aux concepts d'organisation ITIL. Le portail du catalogue de se...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice TECHDAYS PARIS 2012 : PLEINIèRE SECOND JOURTECHDAYS PARIS 2012 : PLEINIèRE SECOND JOUR par ROMELARD Fabrice
Après une première journée dédiée aux développeurs, cette seconde journée est dédiée au monde des entreprises et de ses applications. Ainsi, cette pleinière est dédiée à faire un 360 de l'évolution des applications Business aux demandes ac...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice TECHDAYS PARIS 2012 : RETOUR D'EXPéRIENCE SUR LA MISE EN PLACE D'UN CLOUD PRIVéTECHDAYS PARIS 2012 : RETOUR D'EXPéRIENCE SUR LA MISE EN PLACE D'UN CLOUD PRIVé par ROMELARD Fabrice
Speaker : Guillaume Rochette Cette session est dédiée à fournir le retour sur la mise en place d'un cloud privé (IaaS) par Osiatis pour son compte ou celui de ses clients. Ce projet s'est déroulé sur 4 mois et a permis de faire évoluer...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice TECHDAYS PARIS 2012 : COMMENT SHAREPOINT A SAUVé MES TECHDAYSTECHDAYS PARIS 2012 : COMMENT SHAREPOINT A SAUVé MES TECHDAYS par ROMELARD Fabrice
Speakers : Lionel Limozin et Alain Marty La session commence par une découverte de SharePoint à travers la mise en place d'un environnement SharePoint pour la gestion des Sessions animées par BeWise. Le besoin est très ba...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice PERSPECTIVE 3.0 POUR SILVERLIGHT 5.0PERSPECTIVE 3.0 POUR SILVERLIGHT 5.0 par odewit
Je viens de publier la version 3.0 de Perspective pour Silverlight, qui regroupe un portage sous Silverlight 5.0 des fonctionnalités de Perspective 2.0, le framework 3D de haut-niveau introduit récemment et de nouveaux exemples de code. En voici la li...
Cliquez pour lire la suite de l'article par odewit
Logiciels
Academy System (17.2.1.0)ACADEMY SYSTEM (17.2.1.0)Logiciel de gestion des établissements.
- élèves/étudiants (inscription, dossier, absence...)
-... Cliquez pour télécharger Academy System Easy-Planning (1.0.0.1)EASY-PLANNING (1.0.0.1)Basé sur les mêmes principes que MyPlanning, Easy-Planning permet de créer des plannings sous la ... Cliquez pour télécharger Easy-Planning COLLECTOR PLUS (3.00B)COLLECTOR PLUS (3.00B)COLLECTOR PLUS version 3.00B est un logiciel utilisant une base de données alimentée par :
- L... Cliquez pour télécharger COLLECTOR PLUS PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V7.4)PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V7.4)PONAMEDIA TV DEVIENS HELLLOOO FLASH
LA TV SUR VOTRE ORDINATEUR.
Toute une plateforme Multi... Cliquez pour télécharger PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO LettresFaciles 2011 (8.0.0.1)LETTRESFACILES 2011 (8.0.0.1)LettresFaciles est un logiciel facilitant la création et la rédaction de lettres types.
Son inte... Cliquez pour télécharger LettresFaciles 2011
|