Discussion :

[aurabarth]

Bonjour à tous,
J'aimerais savoir s'il existe une fonction me permettant de récupérer le nombre de jours d'un mois quelconque (Exemple Janvier 2012 ou Février 2013.....).
En fait je souhaite répartir un nombre de jours quelconque sur autant de mois que cela représente avec la date exacte d'échéance.

[b_reda31]

Bonsoir,
La fonction DernierJourDuMois disponible dans la version 17 peut faire l'affaire...
Sinon, à part pour le mois de Fevrier le nombre de jours d'un mois est indépendant de l'année :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
NombreJours est un tableau associatif d'entiers;
NombreJours["JANVIER"]=31;
NombreJours["MARS"]=31;
...
NombreJours["DECEMBRE"]=31;

Ensuite pour le mois de fevrier, il suffit de déterminer si l'année est oui on non bissextile :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
an est une chaine;
Si DateValide(an+"0229") Alors
NombreJours["FEVRIER"]=29;
SINON
NombreJours["FEVRIER"]=28;
FIN

[aurabarth]

Bonjour,
Merci pour l'astuce mais je sens que la programmation sera fastidieuse. Alors je me lance immédiatement.
N'hésitez pas à me faire d'autres suggestions s'il y a en a.
Merci

[lazariel]

Fastidieuse? Il y a 16 lignes de code à faire...

J'ai créé ma propre fonction dernierJourMois(mois est un entier, annee est un entier). Le tout m'a pris moins de 5 minutes à faire (avec la subtilité du bissextile cf. Wikipédia)

[Hemgé]

Bonjour

Si je lis bien votre question, vous voulez essentiellement calculer une date d'échéance.

Il vous suffit alors de travailler avec des variables date et d'utiliser les opérations sur les dates (addition, soustraction, ...).
Avec une simple addition, vous devriez trouver votre bonheur.
voir l'index de l'aide : "opérations disponibles sur les dates..."



Quant à la fonction / procédure "dernier jour du mois" dont vous n'avez pas besoin, sauf si vous voulez calculer une échéance "fin de mois", il y a moyen de faire simple en vous reposant sur Windev pour gérer toutes les subtilités et calculer les mois de 28,29, 30 et 31 jours.
Pas mal, non ?
(voir le type de variable Date et les opérations)

1. Prendre la date concernée (résultant dans le cas d'une date d’échéance, de l'addition du nombre de jours de délai à une date de départ)
2. Incrémenter le mois d'une unité (voir propriété Mois et addition) ce qui donne le nouveau mois ci-dessous
3. Note : si le mois était 12, Windev gèrera le changement d'année.
4. Changer le jour de la date en 1er du mois, ce qui vous donne une date de travail intermédiaire, soit le 1er jour du mois qui suit celui dont vous voulez connaître le dernier jour.
5. Pour retourner au dernier jour du mois précédent (celui qui vous intéresse), soustraire un jour de cette date de travail.
6. Renvoyer le nombre de jour (propriété Jour)

Donc, date de début + 786 jours = 17/03/2017
03 +1 = 04
nouvelle date intermédiaire = 17/04/2017
changement du jour, qui est ramené au 1er : 01/04/2017
soustraction de 1 jour = 31/03/2017
Donc le dernier jour du mois vaut 31.

Bon travail et bonne année !

Hemgé

[Hibernatus34]

Bonjour,

Ces réponses me semblent un peu compliquées.

Nombre de jours dans un mois :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
PROCEDURE NbJoursMois(nMois, nAnnée)
dDate est une Date
dDate..Année = nAnnée
dDate..Mois = nMois
dDate..Jour = 31	// cf. doc, 31 est automatiquement corrigé
RENVOYER dDate..Jour

Pour une échéance "fin de mois" :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
// 60 jours / fin de mois
dDate..Jour += 60
dDate..Jour = 31

Si vous ne connaissez pas le type Date, des opérations sont possibles aussi sur le mois et l'année :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
dDate..Mois += 1
dDate..Année += 1

[mnw.william]

Pourquoi ne pas utiliser tout simplement la fonction

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

DateVersEntier()

et effectuer des soustractions pour avoir le nombre de jours ?

[aurabarth]

Salut,
Merci pour vos suggestions. Mais la fonction DateVersEntier n'est pas vraiment adaptée puisque je connais le nombre de jours et c'est la date d'échéance qu'il faut déterminer à partir du nombre de jours.

Bonne et Heureuse année 2012

[xoorus]

Hey,
en gros, tu veux ajouter un nombre de jours à un mois ?

Exemple, ajouter 10 jours a partir du 25 janvier => 4 fevrier ?

si c'est le cas, récupère la date et transforme la en nombre de jours ( 25 pour le 25 janvier), ajoute 10 jours (jour 35), et par un petit algo, tu tombe sur la date voulue (35 = 31 + 4 => mois X + 4 jours = 4 jours du mois X+1)

Bonne année a toi aussi =)

[hpascal]

si c'est le cas, récupère la date et transforme la en nombre de jours ( 25 pour le 25 janvier), ajoute 10 jours (jour 35), et par un petit algo, tu tombe sur la date voulue (35 = 31 + 4 => mois X + 4 jours = 4 jours du mois X+1)

Pourquoi partir sur des choses de ce type alors que la méthode la plus simple a été donnée plus haut par Hibernatus34 ?

Concernant le message de mnw.william il existe la fonction DateDifférence qui retourne le nombre de jours entre deux dates