Afficher une fonction dans un label

Résolu/Fermé
Co_nexion Messages postés 328 Date d'inscription lundi 5 mars 2012 Statut Membre Dernière intervention 15 juillet 2015 - Modifié par Co_nexion le 2/04/2012 à 12:17
Co_nexion Messages postés 328 Date d'inscription lundi 5 mars 2012 Statut Membre Dernière intervention 15 juillet 2015 - 2 avril 2012 à 12:45
Bonjour,

J'ai une petite question mais je n'arrive pas à trouver la réponse ce qui m'embête bien au vue du peu qu'il y a faire (me semble-t-il ?!)

Je souhaite afficher dans un label un nombre de jour grâce à une fonction (celle ci-dessous)

Public Function NbJourMoisCourant(UneDate As Date) 
  NbJourMoisCourant = Day(DateSerial(Year(UneDate), Month(UneDate) + 1, 0)) 
End Function 


Et je souhaite l'afficher dans un label (label3) alors j'ai fait ça

Private Sub UserForm_Initialize() 

Label1 = Format$(Now, "dd/mm/yy") 

Label2.Caption = Format(Now, "MMMM") 

Label3.Caption = NbJourMoisCourant(UneDate As Date) 
    
End Sub


Mais ca me dit que c'est pas possible... Merci de votre aide

Une autre question si je souhaite afficher dans le même label, le label 2 et 3 me suffit-il de mettre un "&" entre les deux fonctions ? Merci d'avance



A voir également:

1 réponse

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 702
2 avril 2012 à 12:37
Bonjour,

Private Sub UserForm_Initialize()

Label1 = Format$(Now, "dd/mm/yy")

Label2.Caption = Format(Now, "MMMM")

Label3.Caption = NbJourMoisCourant(Now)

End Sub

Si vous voulez le mois courant il faut au moins mettre une date du mois courant et a defaut Now

Pour la deuxieme question: oui

Bonne suite
0
Co_nexion Messages postés 328 Date d'inscription lundi 5 mars 2012 Statut Membre Dernière intervention 15 juillet 2015
2 avril 2012 à 12:45
Merci f894009, toujours là quand il le faut :)
0