[AC-2003] Nombre de jours affectés par mois [Résolu]

[Wisefool]

Bonjour,

J'ai une table Emprunt qui recense pour chaque DVD la date d'emprunt et la date de retour.
Je cherche à savoir combien de jours pour chaque mois sont empruntés ces DVDs.
Est-ce possible une telle requête ?
Le problème est que je n'ai que deux champs date "Date_Emprunt" et "Date_Retour" et que ces deux dates peuvent être sur 2 mois différents

Merci pour vos lumières !

[jpcheck]

salut,

tu consideres bien qu'un dvd emprunte le 20 du mois (mois de 30 jour) aura une periode de location de 10 jours sur le mois ?

Aussi tu peux facilement extraire ta date de debut et de fin de mois pour chacune de tes dates.

Au niveau algorithmique tu aurais
- si mois(Date de debut) = Mois(Date de fin) alors
- Periode sur le mois= Date de fin - date de debut
- sinon
- Periode sur le mois = Date du dernier jour du mois - date de debut

[Wisefool]

donc en gros j'aurais un

select month(Date_Emprunt), titre, iif(algorithme) ?

et il va me splitter tout seul les 2 mois si c'est à cheval sur 2 mois ?

Bon, je teste.
Me reste plus qu'à trouver comment avoir le dernier jour du mois

Merci de ton aide en tout cas !

[jpcheck]

Une bonne base serait d'utiliser les contributrions de ce defi :
http://www.developpez.net/forums/d70...registrements/

[Wisefool]

wow
c'est autrement plus complexe là
merci pour le lien, ça me fera de la lecture éducative !

[Wisefool]

En fait, l'algorithme serait un peu plus compliqué, là on part du principe que c'est à cheval sur 2 mois, mais il est possible d'avoir ça sur plusieurs mois...

Par exemple, si un DVD est emprunté le 08/03/2010 et rendu le 06/05/2010, on est censé avoir
03/2010 23
04/2010 30
05/2010 7

...
j'ai mal au cerveau
...

[User]

Salut JP et Wisefool,

Voici une fonction parmi d'autres, tiré d'un tuto sur la représentation de données statistiques par mois (Il s'agit de nuitées, j'ai enlevé le nbre de personnes):

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Public Function NbJours(Mois As String, DateA As Date, DateF As Date) As Integer
Dim DD As Date, DF As Date
 
DD = DateSerial(Year(Mois), Month(Mois), 1) '1er jour du mois
DF = DateSerial(Year(Mois), Month(Mois) + 1, 0) ' Dernier jour du mois.
 
   If (DD <= DateA) And (DF >= DateF) Then ' Si la réservation est contenue entièrement dans le mois.
      NbJours = (DateF - DateA + 1)
   ElseIf (DD >= DateA) And (DF <= DateF) Then ' Si elle commence avant et fini après le mois.
      NbJours = (DF - DD + 1)
   ElseIf (DD >= DateA) And (DD <= DateF) Then ' Si elle commence avant et fini durant le mois.
      NbJours = (DateF - DD + 1)
   ElseIf (DF >= DateA) And (DF <= DateF) Then ' Si elle commence durant et fini aprèsb le mois.
      NbJours = (DF - DateA + 1)
   Else
      NbJours = 0
   End If
 
End Function

L'argument Mois est du style "12/2010"

Ou, DateA : "Date_Emprunt" et
DateF : "Date_Retour"

Peut-être : DateF = Date_Retour - 1 à verifier

A+

[Wisefool]

Je regarde ça de près
Merci à vous deux !

[User]

Salut,

Voici un exemple basé sur mon tuto :

bdStatsDVD1.zip

J'ai inversé les mois et année ("aaaa/mm") pour trier les mois...

A+

[Wisefool]

en l'absence d'un smiley de prosternation, tu as droit à un big up


Merci beaucoup !

[User]