DATE, NOM DU JOUR AVEC UNE MAJUSCULE , Source N°3229

Information sur la source

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 : 5 538

Auteur : Magidev

Site perso

Ecrire un message privé

Note :

10,00 / 10

1
2
3
4
5
6
7
8
9
10

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

Toutes les sources de Magidev

Sources de la même categorie

Toutes les sources de la catégorie Date & Heure

Commentaires

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) ?