begin process at 2012 02 08 18:51:07
  Trouver un code source :
 
dans
 
[ Dernières recherches ]
Accueil > 

Code

 > 

Date/Heure

 > 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

Note :
7 / 10 - par 1 personne
7,00 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :Date/Heure Classé sous :rfc822, date, heure, rss, xml Niveau :Initié Date de création :31/03/2007 Vu :11 577
Auteur : processus

Ecrire un message privé
Site perso
Commentaire sur cette source (4)
Ajouter un commentaire et/ou une note

 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

Source avec Zip Source avec une capture IMODE_DB : VERSION ALLÉGÉ DE ADMIN_DB POUR TERMINAUX IMODE
Source avec Zip ADMINISTRATEUR DE BASE DE DONNÉE À DISTANCE ACCESS V1.3 (+CO...
Source avec Zip ADMINISTRATEUR DE BASE DE DONNÉE À DISTANCE MS ACCESS
Toutes les sources de processus

 Sources de la même categorie

CALCUL DE L'AGE D'UNE PERSONNE (ASP VBSCRIPT) par bluedemon
CONVERSION DE GMT À LOCAL ET DE LOCAL À GMT par revolt
Source avec Zip CALENDRIER DYNAMIQUE AVEC JOURS FERIES par label97
SAISIR DATE FR DANS MYSQL par jeckel
DATE AVEC LE DECALAGE HORAIRE, par tidave
Toutes les sources de la catégorie Date/Heure

 Sources en rapport avec celle ci

Source avec Zip LECTEUR DE FLUX RSS OBJET par Yoyo2B
Source avec Zip Source avec une capture Source .NET (Dotnet) UN DATAGRID COMPLET (ADD, UPDATE, DELETE, ...) par jesusonline
ASP - EXEMPLE SIMPLE DE GÉNÉRATION DE FLUX RSS par fabrice69
JOUR,DATE,HEURE par henneuse_alain
AFFICHER LA DATE ET L'HEURE DANS UN PAGE ASP par Nix

Commentaires et avis

Commentaire de Nurgle le 31/03/2007 12:56:03 administrateur CS

Salut,
effectivement je ne crois pas me souvenir de fonction ASP/VBScript qui fasse exactement ça, mais est ce que une date du genre FormatDateTime(Date(),1) (qui renverrai un truc du genre "Thursday, February 22, 2007") ne fonctionnerais pas également (dans un RSS) ??

Sinon, pas grand chose à redire, sauf peut être... :
met le If ... Then Exit Function avant les Dim, histoire de ne pas déclarer des tableaux ou d'autres variables qui ne serviront à rien si on rentre dans ton If.
Quant aux Erase, j'utiliserais plutôt des Set ... = Nothing, mais bon :p

Commentaire de processus le 31/03/2007 13:13:16

Nurgle,

Effectivement, FormatDateTime() ne permet pas de renvoyer la date/heure normé en RFC822, donc ce n'est pas valable pour du RSS Level 2.0 par exemple.

Pour mes variable, j'applique la règle de les déclarer en en-tête, avant toute instruction. Ta remarque est vrais pour le premier tableau, déjà typé puisque dimensionné, mais les autres variables non.

Merci pour ton commentaire.

Commentaire de emcor11 le 04/06/2007 16:32:58

Salut,

Aucun de vous n'aurait la fonction inverse à celle de Processus(conversion d'une date RFC822 en une date "JJ/MM/AAAA" ou en une date en français genre Dim 16 Mai 2007) ?

Merci

Commentaire de Renfield le 04/06/2007 16:40:11 administrateur CS

Il aurait été plus judicieux d'ajouter ta fonction sur Codyx.org...

 Ajouter un commentaire


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


Nos sponsors


Sondage...

Comparez les prix


Archos 7 home tablet - 2 Go
Entre 149€ et 159€

Visiter le guide achat

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

Photothèque

Photo Green Energy Solutions With Light Bulb Morphed Into LandscapePhoto Saintes Maries de la Mer vue du ciel (13)
Photo Clerval, Franche-Comté 

Visiter la photothèque
 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 3,136 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales
Outils Convertisseur VB/C# Snippets et scripts Outils en ligne La ToolBox
Communauté Programmation Photographie Technologie Newsgroups Emploi Forum Blogs
Guide d'achat Téléphonie mobile Image et son Informatique Bureautique Jeux vidéo
Logiciels Internet & Réseau Développement Market Android Jeux & Loisirs Graphisme Multimédia Sécurité Pilotes
Loisirs Cartes virtuelles Vidéos droles Jeux en ligne Géoguide AndroLib (Android Market)