Retrancher une année à une date donnée

Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

Entraide Applications Microsoft Office Access Retrancher une année à une date donnée

3 réponses

Jacques \(BE\)

27/08/2007 à 17:16

Bonjour,

Je cherche a retrancher une année à une date donnée :

test4 = CDate((Mid("2007-01-20", 1, 4) - 1) + "-12-31")

J'essaie d'obtenir "2006-12-31".

2007-01-20 c'est une string ! Donc difficile de récupérer 2007 et de lui
enlever 1 pour obtenir 2006 !

Donc je transforme mon 2007 en Int
test4 = CDate(CInt(Mid("2007-01-20", 1, 4) - 1) + "-12-31")

Mais là j,ai un message "Incompatibilité de type"

Donc je tourne en rond :-(

Si quelque'un a une idée, elle sera la bienvenue :-)

Merci de vos réponses

Jacques

3 réponses

Argyronet

27/08/2007 à 17:30

Bonjour,

Il y a plusieurs solutions, en voici une:
Dim dtmUneDate As Date
Dim intMonAnnee As Integer
Dim strMaDate As String

dtmUneDate = CDate("2007-01-20")
intMonAnnee = Year(dtmUneDate) - 1

strMaDate = DateSerial(intMonAnnee, 12, 31)

P.S. Evitez le + pour concaténer des chaînes... (le & à la place)
--
Argy
http://argyronet.developpez.com/
Créez des programmes avec Microsoft Access 2007 (ISBN-2742982442 )

Bonjour,

Je cherche a retrancher une année à une date donnée :

test4 = CDate((Mid("2007-01-20", 1, 4) - 1) + "-12-31")

J'essaie d'obtenir "2006-12-31".

2007-01-20 c'est une string ! Donc difficile de récupérer 2007 et de lui
enlever 1 pour obtenir 2006 !

Donc je transforme mon 2007 en Int
test4 = CDate(CInt(Mid("2007-01-20", 1, 4) - 1) + "-12-31")

Mais là j,ai un message "Incompatibilité de type"

Donc je tourne en rond :-(

Si quelque'un a une idée, elle sera la bienvenue :-)

Merci de vos réponses

Jacques

Pierre CFI [mvp]

27/08/2007 à 19:10

bpnjour
Cdate(Year(Cdate("2007-01-20") -1 & "/12/31")

--
Pierre
MVP Access
***************************************
Conseils MPFA: http://www.mpfa.info/
*********************************************************
"Jacques (BE)" a écrit dans le message de news:

Bonjour,

Je cherche a retrancher une année à une date donnée :

test4 = CDate((Mid("2007-01-20", 1, 4) - 1) + "-12-31")

J'essaie d'obtenir "2006-12-31".

2007-01-20 c'est une string ! Donc difficile de récupérer 2007 et de lui
enlever 1 pour obtenir 2006 !

Donc je transforme mon 2007 en Int
test4 = CDate(CInt(Mid("2007-01-20", 1, 4) - 1) + "-12-31")

Mais là j,ai un message "Incompatibilité de type"

Donc je tourne en rond :-(

Si quelque'un a une idée, elle sera la bienvenue :-)

Merci de vos réponses

Jacques

Jacques \(BE\)

27/08/2007 à 20:47

Merci à vous deux

Jacques

"Jacques (BE)" a écrit dans le message de
news:

Bonjour,

Je cherche a retrancher une année à une date donnée :

test4 = CDate((Mid("2007-01-20", 1, 4) - 1) + "-12-31")

J'essaie d'obtenir "2006-12-31".

2007-01-20 c'est une string ! Donc difficile de récupérer 2007 et de lui
enlever 1 pour obtenir 2006 !

Donc je transforme mon 2007 en Int
test4 = CDate(CInt(Mid("2007-01-20", 1, 4) - 1) + "-12-31")

Mais là j,ai un message "Incompatibilité de type"

Donc je tourne en rond :-(

Si quelque'un a une idée, elle sera la bienvenue :-)

Merci de vos réponses

Jacques

Retrancher une année à une date donnée

3 réponses

Veuillez sélectionner un problème