Page 1 of 1

vérifier que le jour dans 30 jours n'est pas un samedi ou dimanche

Posted: 02 Feb 2017, 09:59
by damiena
Bonjour,
Je récupère la date du jour, j'ajoute 30 jours et je dois vérifier que le jour trouvé n'est ni un samedi, ni un dimanche. J'ai essayé ce code :
vardatej$=Date$(0) '......Date du jour
msgbox (vardatej$)
vardateplus$=DatetoDate$("d",30,date$()) '......Date plus 30 jours
msgbox(vardateplus$)

vard=WeekDay(vardatej$) ' cette instruction ne fonctionne pas

Merci de votre aide

Re: vérifier que le jour dans 30 jours n'est pas un samedi ou dimanche

Posted: 03 Feb 2017, 13:41
by Support
Bonjour,

Voici une Function qui répond à votre demande :

'Cette fonction renvoie le jour de la semaine sous forme d'entier comme Weekday.
function GetWeekDayOffset(daysOffset)
GetWeekDayOffset = (((weekday()-1) + (daysOffset mod 7)) mod 7) + 1
endfunction

'Quel est le jour de la semaine 30 jours après la date du jour
msgbox(GetWeekDayOffset(30))
'Cela renvoie 7, un samedi

Cordialement,
Support WinTask