Discussion :

[Myogtha]

Bonjour,

Je cherche a faire une fonction qui me permettrais de faire un filtre dans une requete affichant les commandes à facturer

Sachant que j'ai une champ date de livraison et que j'ai un champ ou il y a marqué "30 jrs le 10 "ou "60 jrs le 15", comment mis prendre sous vba ?

Merci d'avance

Jim

[marot_r]

J'Imagine que c'est un filtre sur la date de facturation que tu veux faire.

Il n'y a pas à ma connaissance de fonction traduisant "30j le 10" en une date précise mais tu pourrais procéder ainsi avec la fonction similaire à celle ci-dessous (à mettre dans un module).

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
 
public function CalculerDateEcheancePaiement(prmDateFacturation as date, prmDelaisFacturation as string) as date
 
   dim result as date
 
   select case prmDelaisFacturation 
      case "30 jrs le 10"
         'ici l'algo de calcul pour trouver la date d'écheance
         'Cela impliquera surement la fonction DateAdd() et la fonction Day()
         result= ....
 
      case "60 jrs le 15"
         'ici l'algo de calcul pour trouver la date d'écheance
         'Cela impliquera surement la fonction DateAdd() et la fonction Day()
         result= ....
 
      case autre délais de paiement
         result= ....
 
      case else
         error(5):'Au cas où tu as oublié un choix
 
   end select
 
   CalculerDateEcheancePaiement=result
end function

Une solution plus efficace plutôt que le faire dans une requète à chaque fois que tu veux faire une sélection serait de stocker cette date dans la table des factures lors de la création de la facture.

A+

[Myogtha]

Merci tardif pour ta réponse dsl

Quelqu'un a une idée d'a quoi pourrait ressembler ce fameux algo de previsionnel de facturation ?

Merci d'avance

[marot_r]

Fais toi expliquer cela par ton caomptable préféré.

De mémoire, et cela remonte TRÈS loin 30j FDM c'est tu ajoutes 30j à la date de la facture et tu trouves la fin du mois correpondant.

Ça ce coderai ainsi :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
dim dateEcheanceIntermediaire as date
dateEcheanceIntermediaire =dateadd("j",30,dateFacture)
dim dateFinDeMois as date
 
if month(dateEcheanceIntermediaire)<12 then
    dateFinDeMois=dateadd(-1,j,dateserial(year(dateEcheanceIntermediaire), month(dateEcheanceIntermediaire)+1,1))'Calcul le début du mois suivant et retranche 1j
  else
    dateFinDeMois=dateserial(year(dateEcheanceIntermediaire),12,31)
end if

Prend garde à février et aux années bisextiles.

En espérant que cet exemple t'aidera.

A+