mois +1

P

Pascal76

Guest

• 7 Mai 2004

• #2

SAlut Alex et le forum

MonMois=month(Date) + 1
if MonMois=13 then MonMois =1 'pour janvier

Bonne journée

Pascal

 

Vote positif 0 Vote négatif

A

Alex

Guest

• 7 Mai 2004

• #3

Merci mais comment je peux faire pour recuperer le mois en lettre ??
C'est surement avec :
monmois = Format(Date, "mmmm") mais je vois pas merci

 

Vote positif 0 Vote négatif

A

Alex

Guest

• 7 Mai 2004

• #4

c 'est encore mois j'aurais voulu savoir aussi comment faire pour qu'une certaine date augmente d'un mois
Le 12/03/04 =>12/04/04

Merci bcp

 

Vote positif 0 Vote négatif

P

Pascal76

Guest

• 7 Mai 2004

• #5

re

Il y peut-être plus joli mais bon

MonMois=month(Date) + 1
if MonMois=13 then MonMois =1 'pour janvier
MonMois= Format("01/" & MonMois, "mmmm")

Bon courage

Pascal

 

Vote positif 0 Vote négatif

C

chris

Guest

• 7 Mai 2004

• #6

Bonjour
manewdate=format(Date(year(madate);month(madate)+1;day(madate));"d mmmm yyyy")

(format à adapter selon que tu veux tout ou seulement le mois.)

Avantage de la fonction date : elle décale automatiquement l'année ou le mois quand on est en limite.

Chris

 

Vote positif 0 Vote négatif

M

myDearFriend

Guest

• 7 Mai 2004

• #7

Bonsoir tout le monde,

Chris, en VBA, ne s'agit-il pas de "DateSerial(Year, Month, Day)" au lieu de "Date(Year; Month; Day)" ?

Cordialement.
Didier

 

Vote positif 0 Vote négatif

C

chris

Guest

• 7 Mai 2004

• #8

Bonsoir
Exact.
Sorry j'ai confondu avec la fonction.
Heureusement que mydearfriend veille !!
CHris

 

Vote positif 0 Vote négatif