Mois : Periode

Le
Ouille
Salut le foru

Es-t'il possible dans un label de récuperer la periode d'un mois suivant ce mois

Si Mois de Janvier la periode serait inscrite dans ce label -> Periode du 01/01/2004 au: 31/01/200

Merci d'avance Ouille
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
GD
Le #1279098
Bonsoir,
1- si le mois peut etre deduit d'une date alors :
'----------------
Private Sub UserForm_Click()
ladate = Now()
datedeb = DateSerial(Year(ladate), Month(ladate), 1)
datefin = DateSerial(Year(ladate), Month(ladate) + 1, 0)
Label1.Caption = "Periode du " & Format(datedeb, "dd/mm/yyyy") & " au " &
Format(datefin, "dd/mm/yyyy")
End Sub
'-----------------
2- si le mois est un nombre , il convient également de définir l'année
ci-dessus alors remplacer Year(ladate) par l'année
et Month(ladate) par le mois

3-si le mois est sous forme texte :
alors remplacer month(ladate) par le mois
quelque chose du genre :
'--------------
select case lcase(lemoisentexte)
case "janvier" : mois=1
case "février" : mois=2
../..
case "août" : mois=8
../..
case "décembre":mois
case else
msgbox "mois inconnu, vérifier orthographe et accents"
end select
'------------

@+
"Ouille" news:
Salut le forum

Es-t'il possible dans un label de récuperer la periode d'un mois suivant
ce mois :


Si Mois de Janvier la periode serait inscrite dans ce label -> Periode du
01/01/2004 au: 31/01/2004


Merci d'avance Ouille


Publicité
Poster une réponse
Anonyme