PureBasic

Forums PureBasic
Nous sommes le Sam 24/Aoû/2019 19:21

Heures au format UTC + 1 heure




Poster un nouveau sujet Répondre au sujet  [ 1 message ] 
Auteur Message
 Sujet du message: Semaine du mois
MessagePosté: Ven 21/Juil/2017 8:34 
Hors ligne
Avatar de l’utilisateur

Inscription: Mer 29/Juin/2011 14:11
Messages: 1648
Localisation: Belgique
Pour un de mes projet j'ai besoins de connaître les semaines du mois, voici une procédure qui retourne dans un tableau les dites semaines

Code:
Procedure DateOfWeek(pYear,pMonth,pDay,Array week(1))
  ; pYear   --> année ex: 2017
  ; pMonth  --> mois 1 à 12
  ; pDay    --> jour
  ;                0 : Dimanche
  ;                1 : Lundi
  ;                2 : Mardi
  ;                3 : Mercredi
  ;                4 : Jeudi
  ;                5 : Vendredi
  ;                6 : Samedi
  ; week()  --> Tableau d'entier à 5 dimensions ou seront
  ;             stockées les semaines Note: week(4) sera égal à -1 si
  ;             pas de 5ème semaine
 
  Protected FirstDayOfMonth
  FirstDayOfMonth=Date(pYear,pMonth,1,0,0,0)
  While DayOfWeek(FirstDayOfMonth)<>pDay
    FirstDayOfMonth=AddDate(FirstDayOfMonth,#PB_Date_Day,1)
  Wend
  week(0)=FirstDayOfMonth
  FirstDayOfMonth=AddDate(FirstDayOfMonth,#PB_Date_Day,7)
  week(1)=FirstDayOfMonth
  FirstDayOfMonth=AddDate(FirstDayOfMonth,#PB_Date_Day,7)
  week(2)=FirstDayOfMonth
  FirstDayOfMonth=AddDate(FirstDayOfMonth,#PB_Date_Day,7)
  week(3)=FirstDayOfMonth
  FirstDayOfMonth=AddDate(FirstDayOfMonth,#PB_Date_Day,7)
  If Month(FirstDayOfMonth)=pMonth
    week(4)=FirstDayOfMonth
  Else
    week(4)=-1
  EndIf
EndProcedure
Define Dim  myWeek(5),i
DateOfWeek(2017,7,5,myWeek())
For i=0 To 4
  If myWeek(i)<>-1
    Debug FormatDate("%dd-%mm-%yyyy",myWeek(i))
  EndIf
Next

_________________
Windows 10 64 bits PB: 5.70 ; 5.71 beta 2


Haut
 Profil  
Répondre en citant le message  
Afficher les messages postés depuis:  Trier par  
Poster un nouveau sujet Répondre au sujet  [ 1 message ] 

Heures au format UTC + 1 heure


Qui est en ligne

Utilisateurs parcourant ce forum: Aucun utilisateur enregistré et 1 invité


Vous ne pouvez pas poster de nouveaux sujets
Vous ne pouvez pas répondre aux sujets
Vous ne pouvez pas éditer vos messages
Vous ne pouvez pas supprimer vos messages

Rechercher:
Aller à:  

 


Powered by phpBB © 2008 phpBB Group | Traduction par: phpBB-fr.com
subSilver+ theme by Canver Software, sponsor Sanal Modifiye