Paramètres : Vous y croyez ? Ce module peut être écrit des dizaines de fois plus rapidement que n’importe quelle autre méthode ! Les paramètres sont les suivants :
1 : Quel est le jour de référence ?
2 : (Facultatif) Quel jour de la semaine recherchez-vous ? Si non spécifié, la valeur par défaut est samedi
3 : (Facultatif) Devez-vous rechercher en avant (passé) ou en arrière (futur) ?
Si non spécifié, la valeur par défaut est de rechercher dans le futur (futur)
Code du programme
PublicFunctionSpecificWeekday(ByValDAsDate,OptionalByValWhatDayAsVbDayOfWeek=vbSaturday,OptionalGetNextAsBoolean=True)AsDate
SpecificWeekday=(((D-WhatDay GetNext)/7)-GetNext)*7 WhatDay
FinFonction
Peut-être voulez-vous savoir pourquoi le programme est écrit ainsi ?
Saviez-vous? En VB, le jour de base (0ème jour) de toutes les fonctions de date est le 30 décembre 1899 (samedi) et le premier jour est le 31 décembre 1899 (dimanche), donc l'algorithme de la fonction WeekDay de VB est en fait ( Date-1) Mod7 1.
valeur de retour
date
Exemple:
Je voudrais savoir lesquels des jours suivants sont-ils ?
Lundi dernier : SpecificWeekday(Now,vbMonday,False)
Samedi prochain : jour de la semaine spécifique (maintenant)
Vendredi prochain, le 9 septembre 2000 : SpecificWeekday("09/09/2000",vbFriday)->