Date, nom du jour avec une majuscule

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

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.