Déterminer un dimanche

Question

Salut

le problème est dans le sujet. Je vais essayer d'être clair.

Je voudrais connaître à partir d'un jour en semaine la date du prochain dimanche. Mais sans passer par un select case, où là, je rajoute un nombre x à ma date en cours pour obtenir la date du dimanche.
Ex. : jeudi. Je rajoute 3 pour avoir dimanche ou vendredi, je rajoute 2.

Si c'était possible de résoudre le problème en une ou 2 lignes.

Donc, voilà, mon problème. Si quelqu'un a une soluce qu'il me fasse signe.

Merci

Analgesix

Kerad · Answer

Bon, alors je pense que ça devrait fonctionner :

soit d une variable qui stocke ta date:

dim d as date
dim s as long

    d = 12/10/2000 'par exemple
    s = Weekday(d, vbSunday)
    s = 8 - s
 et là ça te retourne combien de jours il reste jusqu'au prochain dimanche... 
De manière suivante : si on est un dimanche il reste 7 jours , si lundi 6 jours etc...

Voilà, j'espère avoir aidé

Kerad

Déterminer un dimanche

1 réponse

Discussions similaires