Date, nom du jour avec une majuscule

Soyez le premier à donner votre avis sur cette source.

Snippet vu 10 074 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

marcflores
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) ?
Teknokiki
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
marae
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é !
FirSteph
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
neojoce
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

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.