Dans mon formulaire j'ai une zone de texte =AB txtMillesime, et je
voudrais que cette zone de texte garde la valeur de l'ann=E9e 2008
durant la p=E9riode de 01/09/2007 au 31/08/2008.
Et bien sur passera automatiquement =E0 2009 pour la prochaine p=E9riode.
Merci pour votre aide.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Fabien
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+
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
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
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
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
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
une autre solution : Year(DateAdd("m", -8, dMaDate))
pb
On 6 sep, 11:46, "3stone" wrote:
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)
bonjour,
une autre solution :
Year(DateAdd("m", -8, dMaDate))
pb
On 6 sep, 11:46, "3stone" <home@sweet_home.be> wrote:
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)
une autre solution : Year(DateAdd("m", -8, dMaDate))
pb
On 6 sep, 11:46, "3stone" wrote:
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)