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

Questions sur de la programmation avancée avec WinTask
damiena
Posts: 1
Joined: 02 Feb 2017, 09:51

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

Postby damiena » 02 Feb 2017, 09:59

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

Support
Posts: 55
Joined: 11 Feb 2016, 09:26

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

Postby Support » 03 Feb 2017, 13:41

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


Return to “Scripts complexes avec WinTask”

Who is online

Users browsing this forum: No registered users and 1 guest