Bonjour à toutes et à tous,

Avec mon test j'arrive à dire l'écart entre deux dates (pour le mois de février) pour une application qui me permettrait de savoir mois par mois combien de jours il reste avant de percevoir ma pension.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
dim Madate, lecture
 
Madate =  DateSerial(2024,02,22) 
 
Set lecture=CreateObject("sapi.spvoice")
lecture.rate=1
 
Texte= "Plus que " & DateDiff("d",now,Madate) & " Jours"  & vbCrlf & " Avant le " & Madate
 
lecture.speak texte
Hors j'aurai aimé le faire pour les 12 mois de l'année puisque je connais les dates de payement :

ex : Quand nous serons au mois de mars le 18 il restera 3 jours avant de toucher.

Janvier 24/01/2024

Février 22/02/2024

Mars 21/03/2024

Avril 23/04/2024

Mai 23/05/2024

Juin 21/06/2024

Juillet 24/07/2024

Août 23/08/2024

Septembre 23/09/2024

Octobre 24/10/2024

Novembre 22/11/2024

Décembre 20/12/2024
Je n'aimerai pas recopier 12 x Madate.

Si quelqu'un avait une solution plus restreinte, merci d'avance.

@+,

cincap