Fonction FractionAnnee VBA

sylrehl · 28 Novembre 2007

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 · 28 Novembre 2007

Re : Fonction FractionAnnee VBA

Bonjour sylrehl,

Voici 2 solutions :

Code:

    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

Code:

    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

@+

Fonction FractionAnnee VBA

sylrehl

Guest

matthieu33

XLDnaute Occasionnel

Discussions similaires

Fonction FractionAnnee VBA

sylrehl

Guest

matthieu33

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency