convertir, verifier date, année

**regis94** · 17/08/2006, 18h48

Bonjour,

dans une table ou je gere l'énergie, j'inscris des périodes de consommation.

Energie (Debutperiode, finperiode, compteur, conso)

Dans une requete formulaire je veux rentrer une année pour qu'il m'extrait la consommation de l'année demandée. (cela demande à ce que celui qui rempli la consommation ne chevauche pas une année)

Ex: 1/1/2003 _ 1/10/2003 compteur N°1 conso = 10000
1/10/2003 _ 31/12/2003 compteur N°1 conso = 14000
1/1/2004 _ 31/12/2004 compteur N°1 conso = 25000

Je veux en tapant l'année 2003 extraire : conso compteur n°1 = 24000

D'abord est ce possible sans que ce soit trop complexe ?

Si oui quelque indication pour avancer
Si non, avez vous mieux à proposer : comme par exemple au lieu de mettre une periode indiquer l'année dans la gestion des conso (Ex : 2003 compteur N°1 conso = 24000, l'utilisateur fait lui meme l'etat de l'annee.

Merci pour vos precieux renseignements.

**Heureux-oli** · 17/08/2006, 19h02

Une requête devrait faire l'affaire mais il faut que les dates début et fin de périodes soient chacunes dans des champs distincs.
Une addition.

**Moha25fr** · 17/08/2006, 19h16

salut dans une requête tu mets tes champs et tu ajoutes un champs calculé

= Année(date de fin)

tu fais un regroupement et sur la consoN une somme

et voilà jle résultat

A+

**random** · 18/08/2006, 09h15

en fait je suis assez surpris sur ta facon de procéder

si le relevé n'a lieu que tous les 6 mois par exemple du 1er juillet au
1 janvier
avec ta méthode on aurait rattachement du 2ème semestre à l'année suivante

en cas de branchement le 2 juillet on a quasiment 6 mois gratuit la première année

normalement on prorate en nombre de jours

**Moha25fr** · 18/08/2006, 11h04

bonjour

je pense qu'il vaut mieux utiliser une fonction et que tu vas la mettre dans ta requête

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
Option Compare Database
Option Explicit
Public ChoixAnnée As Long
Function F_ClaculConso(DD As Date, DF As Date, Consommation As Double) As Double
On Error GoTo suite_err
Dim NB As Integer, NBpart As Integer
Dim DFPart As Date
'mon test
'ChoixAnnée = 2003
If ChoixAnnée < Year(DD) Or ChoixAnnée > Year(DF) Or Consommation = 0 Then
   F_ClaculConso = 0
   Exit Function
End If
If ChoixAnnée = Year(DD) And ChoixAnnée = Year(DF) Then
   F_ClaculConso = Consommation
   Exit Function
End If
'on calcule le nombre de jour entre DD et DF
NB = DateDiff("d", DD, DF)
 
'on cherche le dernier jour de l'année
DFPart = DateSerial(ChoixAnnée, 12, 31)
'on calcule le nombre de jour entre DD et DFPart
NBpart = DateDiff("d", DD, DFPart)
'on calcule la consommation de DD jusqu'à DFPart
F_ClaculConso = (Consommation * NBpart) / NB
 
suite_exit:
   Exit Function
suite_err:
MsgBox Err.Description & "  >>>  N° Err=" & Err.Number
Resume suite_exit
 
End Function