Fonction FractionAnnee VBA

[sylrehl]

Bonjour,

Nouveau dans ce type de discusion, je cherche pour raison professionnelle, la raison pour laquelle ma fonction FractionAnnee et plus precisement la fonction IF...ELSE IF ne marche pas.

Merci de votre aide.


Case Else
'La convention par defaut est 30/360
If Day(dDebutPeriode) = 31 Then dblDate_a = dDebutPeriode - 1 Else _
dblDate_a = dDebutPeriode

If Day(dFinPeriode) = 31 And Day(dDebutPeriode) >= 30 Then dblDate_b = dFinPeriode - 1
ElseIf Day(dFinPeriode) = 31 And Day(dDebutPeriode) < 30 Then dblDate_b = dFinPeriode + 1
Else
blDate_b = dFinPeriode
End If

 

[matthieu33]

Re : Fonction FractionAnnee VBA

Bonjour sylrehl,

Voici 2 solutions :

    If Day(dDebutPeriode) = 31 Then dblDate_a = dDebutPeriode - 1 Else dblDate_a = dDebutPeriode
    
    If Day(dFinPeriode) = 31 And Day(dDebutPeriode) >= 30 Then
        dblDate_b = dFinPeriode - 1
    ElseIf Day(dFinPeriode) = 31 And Day(dDebutPeriode) < 30 Then
        dblDate_b = dFinPeriode + 1
    Else
        blDate_b = dFinPeriode
    End If

ou

    If Day(dDebutPeriode) = 31 Then dblDate_a = dDebutPeriode - 1 Else dblDate_a = dDebutPeriode
    
    If Day(dFinPeriode) = 31 And Day(dDebutPeriode) >= 30 Then
        dblDate_b = dFinPeriode - 1
    ElseIf Day(dFinPeriode) = 31 And Day(dDebutPeriode) < 30 Then dblDate_b = dFinPeriode + 1
    Else: blDate_b = dFinPeriode
    End If

@+