Retrancher une année à une date donnée

Le
Jacques \(BE\)
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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Argyronet
Le #6321221
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]
Le #6321151
bpnjour
Cdate(Year(Cdate("2007-01-20") -1 & "/12/31")

--
Pierre
MVP Access
***************************************
Conseils MPFA: http://www.mpfa.info/
*********************************************************
"Jacques (BE)"
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\)
Le #6321141
Merci à vous deux

Jacques

"Jacques (BE)" 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




Publicité
Poster une réponse
Anonyme