Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Access prolongation d'année

prolongation d'année

8 réponses
Avatar
damien
Bonjour,
dans mon programme je fais intervenir une boucle for ou la variable
FreqCourante (qui est celle qui est incrementéé de 1) est de la forme 200402
avec 2004 qui represente l'année est 02 le mois correspondant mais le
probleme est que il me donne
200410
200411
200412
200413
200414

moi a partir de 200412 je voudrais aprés 200501 et non 200413

Que faire?

Merci de votre aide
Signaler un problème avec ce contenu

8 réponses

Supprimer
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
Avatar
Raymond [mvp]
Bonjour.

tu peux faire une boucle de ce type:

Dim A As Integer
Dim M As Integer
For A = Year(Date) To Year(Date) + 10
For M = 1 To 12
Debug.Print A & Format(M, "00")
Next M
Next A


--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"damien" a écrit dans le message de news:

Bonjour,
dans mon programme je fais intervenir une boucle for ou la variable
FreqCourante (qui est celle qui est incrementéé de 1) est de la forme
200402
avec 2004 qui represente l'année est 02 le mois correspondant mais le
probleme est que il me donne
200410
200411
200412
200413
200414

moi a partir de 200412 je voudrais aprés 200501 et non 200413

Que faire?

Merci de votre aide




Avatar
JD
Il se trouve que damien a formulé :
Bonjour,
dans mon programme je fais intervenir une boucle for ou la variable
FreqCourante (qui est celle qui est incrementéé de 1) est de la forme
200402 avec 2004 qui represente l'année est 02 le mois correspondant mais
le probleme est que il me donne
200410
200411
200412
200413
200414

moi a partir de 200412 je voudrais aprés 200501 et non 200413

Que faire?

Merci de votre aide


Je pense que je procéderais comme suit:
deux variables Freqan et freqmois

au départ

Freqan 04
Freqmois 

FreqCourante = Freq an *100 + Freqmois

Ensuite incrémentation :
if freqmois = 12 then freqmois = 01 : freqan= freqan+1 else freqmois =
freqmois +1
FreqCourante = Freq an *100 + Freqmois

Il doit exister des méthodes plus "élégantes" mais ça marche

à +

--
Ceci est une signature automatique de MesNews.
Site : http://www.mesnews.net

Avatar
SAlut Damien,

J'ai cree ce code dans une base qui marche tres bien:
En fait il retourne pour "maintenant",l'annee, le mois,
le jour et l'heure : 200412061320
Donc, si tu retire "this Day" et "this Time" du
logfileName tu obtiendras ce que tu veux.

Dim IdSpacer As String
Dim Counter As Integer
Dim LogFileName As String
Dim thislog As String
Dim thisyear, thismonth, thisday As String

thistime = Right(Now, 8)
thistime = Replace(thistime, ":", "")

Today = Left(Now, 10)
Today = Replace(Today, "/", "")

thisyear = Right(Today, 4)
Today = Left(Today, 4)

thismonth = Right(Today, 2)
Today = Left(Today, 2)

thistime = Right(Now, 8)
thistime = Replace(thistime, ":", "")

LogFileName = thisyear & thismonth & thisday &
thistime




-----Message d'origine-----
Bonjour,
dans mon programme je fais intervenir une boucle for ou
la variable

FreqCourante (qui est celle qui est incrementéé de 1)
est de la forme 200402

avec 2004 qui represente l'année est 02 le mois
correspondant mais le

probleme est que il me donne
200410
200411
200412
200413
200414

moi a partir de 200412 je voudrais aprés 200501 et non
200413


Que faire?

Merci de votre aide


.



Avatar
3stone
Salut l'anonymous ;-)

J'ai cree ce code dans une base qui marche tres bien:
En fait il retourne pour "maintenant",l'annee, le mois,
le jour et l'heure : 200412061320
Donc, si tu retire "this Day" et "this Time" du
logfileName tu obtiendras ce que tu veux.

Dim IdSpacer As String
Dim Counter As Integer
Dim LogFileName As String
Dim thislog As String
Dim thisyear, thismonth, thisday As String

thistime = Right(Now, 8)
<snip>
<snip>
<snip>


Toute cette "manoeuvre" ce fait par un simple:

Format(Now,"yyyymmddhhnnss")

inutile de tricoter toute une chaussette ;-)


--
A+
Pierre (3stone) Access MVP
~~~~~~~~~~~~~~~~~~~~~~~
http://users.skynet.be/mpfa
http://users.skynet.be/accesshome
Avatar
Pierre CFI [mvp]

inutile de tricoter toute une chaussette ;-)

:o) et il est content, et il rigole :o))


--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B

Site pour bien commencer
Access http://users.skynet.be/mpfa/
Excel http://www.excelabo.net
Site perso
http://access.cfi.free.fr
"3stone" a écrit dans le message de news:
Salut l'anonymous ;-)

J'ai cree ce code dans une base qui marche tres bien:
En fait il retourne pour "maintenant",l'annee, le mois,
le jour et l'heure : 200412061320
Donc, si tu retire "this Day" et "this Time" du
logfileName tu obtiendras ce que tu veux.

Dim IdSpacer As String
Dim Counter As Integer
Dim LogFileName As String
Dim thislog As String
Dim thisyear, thismonth, thisday As String

thistime = Right(Now, 8)
<snip>
<snip>
<snip>


Toute cette "manoeuvre" ce fait par un simple:

Format(Now,"yyyymmddhhnnss")

inutile de tricoter toute une chaussette ;-)


--
A+
Pierre (3stone) Access MVP
~~~~~~~~~~~~~~~~~~~~~~~
http://users.skynet.be/mpfa
http://users.skynet.be/accesshome





Avatar
Ghislain
Salut 3 Stone,

Pour une raison inconnu mon nom ne s'est pas affiche sur
mon precedent message...
Effectivement, (Format(Now,"yyyymmddhhnnss")est un moyen
plus rapide mais qui m'a pose des problemes pour ce que
je voulais en faire, une sauvegarde automatique d'un
snapshot dont le titre etait automatiquement
200412061451.snp bref je me suis du coup mis a tricoter...
a+
Ghislain




-----Message d'origine-----
Salut l'anonymous ;-)

J'ai cree ce code dans une base qui marche tres bien:
En fait il retourne pour "maintenant",l'annee, le mois,
le jour et l'heure : 200412061320
Donc, si tu retire "this Day" et "this Time" du
logfileName tu obtiendras ce que tu veux.

Dim IdSpacer As String
Dim Counter As Integer
Dim LogFileName As String
Dim thislog As String
Dim thisyear, thismonth, thisday As String

thistime = Right(Now, 8)
<snip>
<snip>
<snip>


Toute cette "manoeuvre" ce fait par un simple:

Format(Now,"yyyymmddhhnnss")

inutile de tricoter toute une chaussette ;-)


--
A+
Pierre (3stone) Access MVP
~~~~~~~~~~~~~~~~~~~~~~~
http://users.skynet.be/mpfa
http://users.skynet.be/accesshome



.



Avatar
3stone
re,

"Ghislain"

Effectivement, (Format(Now,"yyyymmddhhnnss")est un moyen
plus rapide mais qui m'a pose des problemes pour ce que
je voulais en faire, une sauvegarde automatique d'un
snapshot dont le titre etait automatiquement
200412061451.snp bref je me suis du coup mis a tricoter...


Ben...

FileName = Format(Now,"yyyymmddhhnnss") & ".snp"


--
A+
Pierre (3stone) Access MVP
~~~~~~~~~~~~~~~~~~~~~~~
http://users.skynet.be/mpfa
http://users.skynet.be/accesshome
Avatar
3stone
:o) et il est content, et il rigole :o))



Qui ? moi ?

Que neni, pince sans rire, moi m'sieur !



MDR !


--
A+
Pierre (3stone) Access MVP
~~~~~~~~~~~~~~~~~~~~~~~
http://users.skynet.be/mpfa
http://users.skynet.be/accesshome