1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
| Public Function NbreMois(datedeb As Date, datefin As Date, inputyear As Integer) As Integer
Dim nbmois As Integer
If Year(datedeb) < inputyear And Year(datefin) < inputyear Then
nbmois = 0
ElseIf Year(datedeb) = inputyear And Year(datefin) = inputyear Then
nbmois = DateDiff("m", datedeb, datefin) + 1
ElseIf inputyear > Year(datedeb) And inputyear < Year(datefin) Then
nbmois = DateDiff("m", DateSerial(inputyear, 1, 1), DateSerial(inputyear, 12, 31)) + 1
ElseIf inputyear > Year(datedeb) And inputyear = Year(datefin) Then
nbmois = DateDiff("m", DateSerial(inputyear, 1, 1), datefin) + 1
ElseIf inputyear = Year(datedeb) And inputyear < Year(datefin) Then
nbmois = DateDiff("m", datedeb, DateSerial(inputyear, 12, 31)) + 1
End If
NbreMois = nbmois
End Function |
Partager