begin process at 2012 05 27 05:52:23
  Trouver un code source :
 
dans
 
[ Dernières recherches ]
Accueil > 

Code

 > 

Date/Heure

 > ASP - AFFICHER UNE DATE COMPLÊTE AVEC LE FORMAT FRANCAIS

ASP - AFFICHER UNE DATE COMPLÊTE AVEC LE FORMAT FRANCAIS


 Information sur la source

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

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :Date/Heure Classé sous :date, datetime, format, formatdatetime Niveau :Débutant Date de création :06/08/2002 Date de mise à jour :21/05/2003 11:23:53 Vu :15 456
Auteur : fabrice69

Ecrire un message privé
Site perso
Ce membre participe au partage de revenus publicitaires
Commentaire sur cette source (4)
Ajouter un commentaire et/ou une note

 Description

Simple fonction permettant de passer du :
JJ/MM/YYYY HH:mm:SS
au
Samedi 21 Janvier 2035 à 18:25:22
  

Source

  • '-------------------------------------------------------------
  • Function FormatHeureAffiche(Valeur)
  • ' Permet de formatter l heure ou les minutes sur 2 caracteres
  • If (Valeur < 10) and (Valeur >= 0) Then
  • FormatHeureAffiche = "0"&Valeur
  • Else
  • FormatHeureAffiche = Valeur
  • End If
  • End Function
  • '-------------------------------------------------------------
  • Function PremiereLettreMaj(texte)
  • ' Permet de donner le texte avec la premiere lettre en majuscule
  • PremiereLettreMaj = UCase(Left(texte,1))& mid(texte,2,len(texte)-1)
  • End Function
  • '-------------------------------------------------------------
  • Function AfficheDateComplete(LaDate)
  • ' Permet d afficher la date au format texte complet, en partant d'une date au format francais DD/MM/YYYY HH:mm:SS:mmmm
  • AfficheDateComplete = PremiereLettreMaj(WeekDayName(WeekDay(LaDate),False))
  • AfficheDateComplete = AfficheDateComplete &" "&FormatHeureAffiche(Day(LaDate))
  • AfficheDateComplete = AfficheDateComplete &" "&PremiereLettreMaj(MonthName(Month(LaDate),False))
  • AfficheDateComplete = AfficheDateComplete &" "&Year(LaDate)
  • AfficheDateComplete = AfficheDateComplete &" à "&FormatHeureAffiche(Hour(LaDate))
  • AfficheDateComplete = AfficheDateComplete &":"FormatHeureAffiche(Minute(LaDate))
  • AfficheDateComplete = AfficheDateComplete &":"FormatHeureAffiche(Second(LaDate))
  • End Function
  • '------------------------------------------------------------- 
'-------------------------------------------------------------
Function FormatHeureAffiche(Valeur)
' Permet de formatter l heure ou les minutes sur 2 caracteres
 If (Valeur < 10) and (Valeur >= 0) Then 
  FormatHeureAffiche = "0"&Valeur
 Else 
  FormatHeureAffiche = Valeur
 End If
End Function

'-------------------------------------------------------------
Function PremiereLettreMaj(texte)
' Permet de donner le texte avec la premiere lettre en majuscule
 PremiereLettreMaj = UCase(Left(texte,1))& mid(texte,2,len(texte)-1)
End Function

'-------------------------------------------------------------
Function AfficheDateComplete(LaDate)
' Permet d afficher la date au format texte complet, en partant d'une date au format francais DD/MM/YYYY HH:mm:SS:mmmm
 AfficheDateComplete = PremiereLettreMaj(WeekDayName(WeekDay(LaDate),False))
 AfficheDateComplete = AfficheDateComplete &" "&FormatHeureAffiche(Day(LaDate))
 AfficheDateComplete = AfficheDateComplete &" "&PremiereLettreMaj(MonthName(Month(LaDate),False))
 AfficheDateComplete = AfficheDateComplete &" "&Year(LaDate)
 AfficheDateComplete = AfficheDateComplete &" à "&FormatHeureAffiche(Hour(LaDate))
 AfficheDateComplete = AfficheDateComplete &":"FormatHeureAffiche(Minute(LaDate))
 AfficheDateComplete = AfficheDateComplete &":"FormatHeureAffiche(Second(LaDate))
End Function

'-------------------------------------------------------------

 Conclusion

Bon coding

Romelard Fabrice (Alias F___)  


 Sources du même auteur

Source .NET (Dotnet) SHAREPOINT 2007 - OBTENIR LA LISTE DES WEBPARTS DANS UNE PAG...
Source .NET (Dotnet) SHAREPOINT 2007 - OBTERNIR LA LISTE DES FEATURES D'UN SITE
Source avec une capture Source .NET (Dotnet) SHAREPOINT 2007 - CHARGER LA LISTE DES COLLATIONS SHAREPOINT...
Source avec une capture Source .NET (Dotnet) SHAREPOINT 2007 - CHARGER LA LISTE DES LANGUES INSTALLÉES DA...
Source .NET (Dotnet) C# - FONCTION TRÈS SIMPLE POUR ENVOYER UN MAIL VIA SMTP
Toutes les sources de fabrice69

 Sources de la même categorie

CONVERSION D'UNE DATE/HEURE STANDARD VERS DATE/HEURE CONFORM... par processus
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
Toutes les sources de la catégorie Date/Heure

 Sources en rapport avec celle ci

Source avec Zip Source .NET (Dotnet) GRIDVIEW DATE PICKER JAVASCRIPT par fredzool
SAISIR DATE FR DANS MYSQL par jeckel
Source .NET (Dotnet) AFFICHER LA DATE EN FRANCAIS SUR UN SERVEUR ÉTRANGER par jesusonline
JOUR,DATE,HEURE par henneuse_alain
FORCER LE FORMAT DATE EN FRANÇAIS par gvient

Commentaires et avis

Commentaire de Bud le 07/08/2002 08:18:21

Tu peux avoir bien plus simple pour ta première fonction:

Function FormatHeureAffiche(Valeur)
' Permet de formatter l heure ou les minutes sur 2 caracteres
FormatHeureAffiche = right("0"&Valeur,2)
End Function

Commentaire de fabrice69 le 07/08/2002 08:50:29 administrateur CS

Et non, ca veut dire que tu dois déja etre sur de ta valeur envoyée.
par ex, si tu envoie 100 dans ta fonction elle te retourne 0.

F___

Commentaire de Mcjo le 12/02/2003 12:47:38

Pour mid plus cour
Function PremiereLettreMaj(texte)
' Permet de donner le texte avec la premiere lettre en majuscule
PremiereLettreMaj = UCase(Left(texte,1))& Mid(texte,2)
End Function
Et au faite on ne met jamais de majuscule au mois...
;)

Commentaire de fabrice69 le 12/02/2003 14:13:02 administrateur CS

Comment peux tu juger du fait qu'il faile une majuscule ou pas à un Mot ? (même le mois d'ailleur).
Cette demande m'a été formulée par ma direction, insinues qu'ils sont mauvais et qu'il commêtent alors une erreur ?

Enfin avant de juger du travail (qui plus est fournis en libre à tous) des autres, il vaudrait mieu que fasses de même, hors pour moi 4 sources sur l'ensemble de ta prestation et des sites de codes-sources  ne refletent pas qqun qui peut se permettre de juger le travail des autres.

F___

 Ajouter un commentaire


Discussions en rapport avec ce code source dans le forum

Inversion du format après le 31 Mai ! - HELP ! [ par Benoit ] Si j'insere une date dans ma base donnée access (2000) dont le format est "jj/mm/aaaa" et supérieure au 31 mai, l'insertion de cette date se fait avec date -15 jours [ par cloe ] BonjourVoila mon pb,J'ai une date au format jj/mm/aaaa.Je dois savoir si elle est dans l'intervalle des 15 derniers jours par rapport à la date actuel problème de dates - URGENT !!!! [ par Milou ] Salut à tous,voila mon pb : un formulaire comporte un champ date jj:mm:aaaa (text area). Lorsque j'execute la requete INSERT INTO le résultat apparait DATE - URGENT!!! - HELP !!!!!! [ par Milou ] Salut à tous,voila mon pb : un formulaire comporte un champ date jj/mm/aaaa (text area). Lorsque j'execute la requete INSERT INTO le résultat apparait Formater une date [ par zoumzoum ] j'ai une date qui est format ddmmyy ( ex : 10/05/01 ) et je voudrais la formater en ddmmyyyy ( ex : 10/05/2001 ).en vb, il existe la fonction format m Dates et variables.... [ par Patrix ] Je récupére dans une base access une date que le response.write lis correctement. Seulement voilà, cette date je la récupère pour lire des fichiers au le format des dates [ par Tems ] Salut.Je suis en train de translater un script vb en vbscript. Cependant, petit soucis avec le format date. J'ai dim val1 as date pour le vb, mais app Format Date en chiffre [ par theval ] Bonjour,J'ai une variable qui contient le chiffre suivant: 1017777327. Il parait que ce chiffre peut nous dire une date.Je crois que la le nombre de s Récuperer la partie DATE d'un champ DATETIME dans un SELECT [ par ypothier ] Bonjour J'espère qu'un d'entre vous peut m'aider. Je fais un select de ma BD(SQL SERVER) et à l'intérieur j'ai un champ DATETIME. Mais quand j'arrive Format d'une date sous SQL Serveur [ par Hesky ] Comment definir le format d'une date sous SQL Serveur 7 ?Mercic'est assez urgent !Cordialement


Nos sponsors


Sondage...

Comparez les prix


Samsung Galaxy S
Entre 529€ et 529€

Visiter le guide achat

CalendriCode

Mai 2012
LMMJVSD
 123456
78910111213
14151617181920
21222324252627
28293031   

Consulter la suite du CalendriCode

A découvrir
 
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 : 1,279 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)