Débogage sur affichage date d'aujourd'hui

Bonsoir jack
merci de votre information je repose la question
quand je fais exécuter pour afficher la date d'aujourd'hui il y a débogage sur la ligne n = Month(date)un message est apparu pour dire
nombre d'arguments incorrects ou affectation de propriété incorrecte


Private Sub Timer1_Timer()
Dim pi, i, n, X
pi = 3.141592
n = Month(date)


If n = 1 Then X = "Janvier"
If n = 2 Then X = "Février"
If n = 3 Then X = "Mars"
If n = 4 Then X = "Avril"
If n = 5 Then X = "Mai"
If n = 6 Then X = "Juin"
If n = 7 Then X = "Juillet"
If n = 8 Then X = "Août"
If n = 9 Then X = "Septembre"
If n = 10 Then X = "Octobre"
If n = 11 Then X = "Novembre"
If n = 12 Then X = "Decembre"

Text1.Text = Day(date) & " " & X & " " & Year(date)

end sub

Bonjour,

Bien curieuse manière d'afficher une date sous la forme que Format permettrait d'obtenir fort simplement !
Et mieux (sans faute d'ortographe car les mois ne prennent pas de majuscule ...)

Encore plus curieux d'utiliser un timer pour afficher ce qui est invariable pendant 24 heures !
Quoi qu'il en soit : ton code ne comporte pas d'erreur  (étant entendu que Date est en VB la date du jour)...

Text1.Text = Format(Date, "dd mmmm yyyy")

voir egalement MonthName, FormatDateTime, ...

Renfield
Admin CodeS-SourceS- MVP Visual Basic

salut,

n n'est pas typé
pi ne sert à rien
cependant pas d'erreur de VB pour autant normalement...

et de doute façon comme jmf (salut) l'a indiqué :
Private Sub Timer1_Timer()
    Text1.Text = StrConv(Format$(Date, "DD MMMM YYYY"), vbProperCase)
End Sub

(StrConv pour la majuscule sur le mois)

---

Prenez un instant pour répondre à ce sondage svp  

Salut,

et j'ajouterai que si tu avais voulu extraire le nom du moi en fonction de sont numero, comme tu as essayer de le faire avec ta multitude de condition if.
La fonction format le permet aussi :

Text1.Text = Format$("01/" & n & "/1900", "mmmm")

MAIS ce n'est quand meme pas la methode la plus simple car il existe une fonction qui sait le faire directement


Text1.Text = MonthName$(n )

A+

gaffe, bigfish_le_vrai...

on ne fait pas :

"01/" & n & "/1900" pour composer une date !
voir DateSerial (rapport avec les regionnal settings)