begin process at 2012 05 27 19:49:30
  Trouver un code source :
 
dans
 
Accueil > 

Code

 > 

Date & Heure

 > DATE, NOM DU JOUR AVEC UNE MAJUSCULE

DATE, NOM DU JOUR AVEC UNE MAJUSCULE


 Information sur la source

Note :
10 / 10 - par 3 personnes
10,00 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :Date & Heure Niveau :Débutant Date de création :08/05/2002 Date de mise à jour :08/05/2002 17:06:25 Vu :8 135

Auteur : Magidev

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

 Description

'Le problème avec l'affichage des dates par timer dans VB, c'est que le jour de la semaine
'n'est pas en majuscule:

'Exemple: "mercredi 8 mai 2002"

'Il suffit d'une astuce pour que cela devienne "Mercredi 8 mai 2002"

'Moi, j'ai mis ce code dans un timer pour que ce soit actualisé, mais on peut
'le mettre n'importe où.

'Today.Caption, ca peut être votre Label ou votre TextBox

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

Today.Caption = Format$(Date, "dddd dd mmmm yyyy")
Today.Caption = UCase(Left(Today.Caption, 1)) & Right(Today.Caption, Len(Today.Caption) - 1)

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

'Ca donne une date comme cela: "Mercredi 8 mai 2002"

'Si vous voulez ajouter l'heure à la suite, ajoutez ceci

Today.Caption = Today.Caption & Format$(Time, " - hh:mm:ss") ' ajoute l'heure

'Ca donne une date comme cela: "Mercredi 8 mai 2002 - 08:03:22"

Source

  • 'Le problème avec l'affichage des dates par timer dans VB, c'est que le jour de la semaine
  • 'n'est pas en majuscule:
  • 'Exemple: "mercredi 8 mai 2002"
  • 'Il suffit d'une astuce pour que cela devienne "Mercredi 8 mai 2002"
  • 'Moi, j'ai mis ce code dans un timer pour que ce soit actualisé, mais on peut
  • 'le mettre n'importe où.
  • 'Today.Caption, ca peut être votre Label ou votre TextBox
  • '---------------
  • Today.Caption = Format$(Date, "dddd dd mmmm yyyy")
  • Today.Caption = UCase(Left(Today.Caption, 1)) & Right(Today.Caption, Len(Today.Caption) - 1)
  • '---------------
  • 'Ca donne une date comme cela: "Mercredi 8 mai 2002"
  • 'Si vous voulez ajouter l'heure à la suite, ajoutez ceci
  • Today.Caption = Today.Caption & Format$(Time, " - hh:mm:ss") ' ajoute l'heure
  • 'Ca donne une date comme cela: "Mercredi 8 mai 2002 - 08:03:22"
'Le problème avec l'affichage des dates par timer dans VB, c'est que le jour de la semaine
'n'est pas en majuscule:

'Exemple: "mercredi 8 mai 2002"

'Il suffit d'une astuce pour que cela devienne "Mercredi 8 mai 2002"

'Moi, j'ai mis ce code dans un timer pour que ce soit actualisé, mais on peut
'le mettre n'importe où.

'Today.Caption, ca peut être votre Label ou votre TextBox

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

Today.Caption = Format$(Date, "dddd dd mmmm yyyy")
Today.Caption = UCase(Left(Today.Caption, 1)) & Right(Today.Caption, Len(Today.Caption) - 1)

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

'Ca donne une date comme cela: "Mercredi 8 mai 2002"

'Si vous voulez ajouter l'heure à la suite, ajoutez ceci

Today.Caption = Today.Caption & Format$(Time, " - hh:mm:ss") ' ajoute l'heure

'Ca donne une date comme cela: "Mercredi 8 mai 2002 - 08:03:22" 

 Conclusion

Et voilà


 Sources du même auteur

Source avec Zip UTILISER VB ET LES BASES DE DONNEES GRACE AU SQL
EMPECHER LA SAISIE DE CERTAINS CARACTERES LE PLUS SIMPLEMENT...
MANIPULER LES DATES ET HEURES (ADDITION ET SOUSTRACTION)
DATE, AFFICAGE RAPIDE
Source avec Zip CALLER ID, OU COMMENT SAVOIR QUI APPELLE

 Sources de la même categorie

Source avec Zip Source avec une capture LES PHASES LUNAIRES SELON J. MEEUS par pasquet78
Source avec Zip Source avec une capture LES FONCTIONS DATE PAR L'EXEMPLE. par pasquet78
Source avec Zip Source avec une capture CALENDRIER, MODE D'EMPLOI par pasquet78
Source avec Zip Source avec une capture Source .NET (Dotnet) HORLOGE DIODE AVEC 3 ALARMES ET REMISE À L'HEURE par EhJoe
Source avec Zip Source avec une capture POINTEUSE HORAIRES PAR SEMAINE par VBNoob13

Commentaires et avis

Commentaire de Tilois le 09/05/2002 09:21:45

tu dois pas faire e vb depuis longtemps, toi !

Commentaire de Magidev le 10/05/2002 15:26:13

Oh que si, mais je sais aider les débutants MOI, MOSSIEUR
Ca fait plus de 5 ans que je fais du VB et toi ?

Commentaire de neojoce le 10/05/2002 15:53:10

WOUCHE !!

Commentaire de neojoce le 10/05/2002 15:54:20

... Mais c nice quand meme ta source Tilois

Commentaire de neojoce le 10/05/2002 15:56:21

fuck, je suis carrementr fourree, ---> plutot magidev lol
pis moi  a la place j'aurais fait ca different, mais toi t'a reussi a le faire sur deux lignes ! alors que moi en 5 ou 6 lignes

Commentaire de FirSteph le 20/01/2003 14:42:24

Franchement merci enormement pour cette source, g jamais su comment faire pour afficher le jour actuel, et pis en + grace a cette source je viens d'apprendre comment faire pour mieux utiliser la commande Format (avant je croyais que ca fonctionnait que pour mettre par exemple plusieurs 0 avant un nombre). C'est vrai que c'est pas une source de haut lvl en programmation, mais ca sert bcp, thxxxxx encore

@ bientot :)
FirSteph

Commentaire de marae le 02/06/2004 03:01:58

super taff ! ça ma beaucoup aidé !

Commentaire de Teknokiki le 13/12/2004 15:12:43

merci ca vient de me rendre service
bravo

Commentaire de marcflores le 18/03/2006 19:04:10

Salut,

Ce ne serait pas mieux d'utiliser
Today.Caption = StrConv(Today.Caption, vbProperCase) ?

 Ajouter un commentaire




Nos sponsors


Sondage...

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 : 0,437 sec (4)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales