[AC-2003] Date Max de deux champs [Résolu]

[Mounamidou]

Bonsoir,
je cherche à calculer la date prévue pour la signature du Conseil de gestion, or cette date ne sera requise que si le montant dépasse USD 800K et cette date et fonction de la date de signature du Dir FIN et de celle du DG (la date Max des deux). si l'une de ces deux dates n'est pas saisie, le champ calculé Target Date CG restera vide.
en effet, j'ai préparé une fonction, mais je n'arrive pas à la finaliser:

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Function TargDateCG(Amount As Long, Approval_Date_FIN As Date, Approval_Date_DG  As Date)
 
    Select Case Amount
        Case Is >= 800000
            Select Case Approval_Date_FIN 
                Case Is <> 0
                    Select Case Approval_Date_DG 
                        Case Is <> 0
 
                                DateSigCG = DMax(Approval_Date_FIN, 
Approval_Date_DG) + 30
 
 
                    End Select
            End Select
    End Select
 
TargDateCG = DateSigCG
 
End Function

Merci d'avance pour votre aide

[Mycose]

Tu as un bug ou quelque chose ? Car j'ai pas compris ce que tu voulais ^^

Mais sinon pour tes SELECT t'aurai d'autre "posibilité" car un SELECT avec un seul CASE c'est bourrain, fait plutot des IF et comme ca tu peux supprimer des lignes genre

Code :

1
2
3
4
5
6
 
If (Amount >= 800000) Then
  If(Approval_Date_Fin <> 0 AND Approval_Date_DG <> 0) Then
    DateSigCG = DMax(Approval_Date_FIN, Approval_Date_DG) + 30
  End if
End If

[Mounamidou]

Envoyé par Mycose

Tu as un bug ou quelque chose ?

effectivement, j'ai un bug et l'erreur d'exécution '3078' a été signalé.

[Mounamidou]

Bon, cette fois j'ai utilisé la fonction if, sauf que si j'ai l'une des deux dates ou les deux nulles, le resultat est: #Erreur

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Function TargDateCG(Amount As Long, Approval_Date_FIN As Date, Approval_Date_DG As Date)
 
 
 
        If (Approval_Date_FIN = Null Or Approval_Date_DG = Null) Then Exit Function
 
            If (Amount >= 800000) Then
               If (Approval_Date_FIN > Approval_Date_DG) Then
                DateSigCG = Approval_Date_FIN + 21
 
               Else
               DateSigCG = Approval_Date_DG + 21
 
               End If
 
            End If
 
TargDateCG = DateSigCG
 
End Function

je souhaite que si les deux dates ou l'une des deux est Nulle ce champ calculé (utilisant la fonction: TargDateCG) restera vide (Null).

[Renardo]

Bonjour
Essai comme cela

Code :

If isnull(Approval_Date_FIN)  Or isnull (Approval_Date_DG) Then Exit Function

[Mounamidou]

Envoyé par Renardo

Bonjour
Essai comme cela

Code :

If isnull(Approval_Date_FIN)  Or isnull (Approval_Date_DG) Then Exit Function

je l'ai déjà essayé mais c'est toujours le même problème!

[Mounamidou]

Code :

c'est bon je crois avoir trouvé la solution, j'ai remplacé tous les types de variables par Variant est l'erreur à disparue

Code :

Function TargDateCG(Amount As Variant, Approval_Date_FIN As Variant, Approval_Date_DG As Variant)

est-ce qu'il y a quelqu'un qui peut donner plus d'informations pour plus de compréhension?

[Mycose]

tu dois avoir un problème dans tes types, je viens de voir que tu n'as pas marqué que t'a fonction retournait quelque chose
De quel type est DateSigCG ?

Car le problème vient peut être de là tente :

Code :

Function TargDateCG(Amount As Long, Approval_Date_FIN As Date, Approval_Date_DG As Date) As TYPEDEDATESIGCG

Et bien sur tu remplaces TYPEDATESIGCG par le type de ta variable