Mantien d'une valeur dans une zone de texte

Le
Jacques
Bonsoir,

Dans mon formulaire j'ai une zone de texte txtMillesime, et je
voudrais que cette zone de texte garde la valeur de l'anne 2008
durant la priode de 01/09/2007 au 31/08/2008.
Et bien sur passera automatiquement 2009 pour la prochaine priode.
Merci pour votre aide.

Salutations
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Fabien
Le #6317951
Bonsoir,

Dans mon formulaire j'ai une zone de texte « txtMillesime, et je
voudrais que cette zone de texte garde la valeur de l'année 2008
durant la période de 01/09/2007 au 31/08/2008.
Et bien sur passera automatiquement à 2009 pour la prochaine période.
Merci pour votre aide.

Salutations

Bonjour Jaques

En adaptant ça
Public Function Calcul_Saison(Date_ As Variant) As String
Dim Date_d, Date_f As Date
Calcul_Saison = ""
If IsDate(Date_) Then
Date_d = CDate("01/09/" & Year(Date_))
Date_f = CDate("31/12/" & (Year(Date_)))
If Date_ >= Date_d And Date_ <= Date_f Then Calcul_Saison =
Year(Date_) & "/" & Year(Date_) + 1
Date_d = CDate("01/01/" & Year(Date_))
Date_f = CDate("31/08/" & (Year(Date_)))
If Date_ >= Date_d And Date_ <= Date_f Then Calcul_Saison =
Year(Date_) - 1 & "/" & Year(Date_)
End If
End Function

Tu devrais obtenir ce que tu veux.
A+

3stone
Le #6317791
Salut,

"Jacques"
Dans mon formulaire j'ai une zone de texte « txtMillesime, et je
voudrais que cette zone de texte garde la valeur de l'année 2008
durant la période de 01/09/2007 au 31/08/2008.
Et bien sur passera automatiquement à 2009 pour la prochaine période.



Tu ajoute un mois à la date courante et tu extrais le trimestre.
Si ce trimestre à le quatrième, tu ajoute 1 à l'année...

Pour cela, tu colles la fonction dans un module et dans ta
zone de texte tu écris :

= fnMillesime()

Function fnMillesime() As Interger
Dim t As Integer
t = DatePart("q", DateAdd("m", 1, Date), 2, 2)
fnMillesime = Year(Date) + Abs(t = 4)
End Function


--
A+
Pierre (3stone) Access MVP
Perso: http://www.3stone.be/
MPFA: http://www.mpfa.info/ (infos générales)

pbserv
Le #6317441
bonjour,

une autre solution :
Year(DateAdd("m", -8, dMaDate))

pb

On 6 sep, 11:46, "3stone"
Salut,

"Jacques"

Dans mon formulaire j'ai une zone de texte « txtMillesime, et je
voudrais que cette zone de texte garde la valeur de l'année 2008
durant la période de 01/09/2007 au 31/08/2008.
Et bien sur passera automatiquement à 2009 pour la prochaine périod e.


Tu ajoute un mois à la date courante et tu extrais le trimestre.
Si ce trimestre à le quatrième, tu ajoute 1 à l'année...

Pour cela, tu colles la fonction dans un module et dans ta
zone de texte tu écris :

= fnMillesime()

Function fnMillesime() As Interger
Dim t As Integer
t = DatePart("q", DateAdd("m", 1, Date), 2, 2)
fnMillesime = Year(Date) + Abs(t = 4)
End Function

--
A+
Pierre (3stone) Access MVP
Perso:http://www.3stone.be/
MPFA:http://www.mpfa.info/ (infos générales)



Publicité
Poster une réponse
Anonyme