Vba-date-modifier le moisRésolu

Question

Bonjour à tous, Merci de lire ce post :) En fait, je récupère une date de ma table via une requête : variable dateuh De même, je récupère un numéro entre 0 et 10 de cette même table : variable numero Je dois remplacer le mois de dateuh par numero. (par du vba) Je sais comment rajouter des jours, des mois, des années (DateAdd) mais pas comment REMPLACER le mois sans faire de calcul. Aucun calcul ne doit être fait, c'est juste du remplaçage :s

Code: dim dateuh as date dim datefinale as date dim numero as integer dim intervaltype as string 'dateuh et numero sont remplis par mes requetes sql intervaltype = "m" datefinale = DateAdd(intervaltype, numero, dateuh)

Ce code, fonctionnel, rajoute numero à dateuh mais ne le REMPLACE pas :'( En ésperant avoir été clair et avoir posté au bon endroit ! Si vous avez une idée, dîtes là ^^ Mici d'avance :)

us_30 · Accepted Answer

Ou encore utiliser la fonction "Format$"...
voir à ce sujet le snippets : http://www.codyx.org/snippet_afficher-date-jour_92.aspx#827

Amicalement,
Us.

us_30 · Answer

Bonjour,

Sous quelle forme Dateuh est renvoyée ?

Est-ce écrit de la sorte : "3 Juin 2008" ?
Si oui, on peut penser à utiliser la fonction Split, d'identifier le mois pour le remplacer (Select case) puis concaténer le tout...

Amicalement,
Us

jmfmarques · Answer

Bonjour,

ou encore :

Private Sub Command4_Click()
  ladate = "21/02/2009"
  MsgBox DateSerial(Year(ladate), 10, Day(ladate))
End Sub

cs_mincealors · Answer

Je vous remercie pour ces réponses. Je vais les étudier et je vous tiens au courant!


Sinon,  us_30, la date est renvoyée de cette manière : jj/mm/aaaa

cs_mincealors · Answer

Super cela fonctionne! 

numero étant une variable de type integer.
dateuh étant une variable de type date.
dim datefinale as date

datefinale = DateSerial(Year(dateuh), numero, Day(dateuh))

J'vous remercie, j'avais pas trouvé "DateSerial"

Vba-date-modifier le mois

5 réponses

Votre réponse