Date, nom du jour avec une majuscule

Soyez le premier à donner votre avis sur cette source.

Snippet vu 10 136 fois - Téléchargée 41 fois

Contenu du snippet

'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 / Exemple :


'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à

A voir également

Ajouter un commentaire

Commentaires

Messages postés
1
Date d'inscription
vendredi 11 novembre 2005
Statut
Membre
Dernière intervention
18 mars 2006

Salut,

Ce ne serait pas mieux d'utiliser
Today.Caption = StrConv(Today.Caption, vbProperCase) ?
Messages postés
2
Date d'inscription
mardi 25 février 2003
Statut
Membre
Dernière intervention
24 juin 2003

merci ca vient de me rendre service
bravo
Messages postés
1
Date d'inscription
jeudi 22 mai 2003
Statut
Membre
Dernière intervention
2 juin 2004

super taff ! ça ma beaucoup aidé !
Messages postés
60
Date d'inscription
lundi 21 octobre 2002
Statut
Membre
Dernière intervention
7 octobre 2007

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
Messages postés
134
Date d'inscription
jeudi 7 février 2002
Statut
Membre
Dernière intervention
16 juin 2002

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
Afficher les 9 commentaires

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.