Comment trouvez-vous Leapyear en VBA?

Public Function isLeapYear(Yr As Integer) As Boolean  

    ' returns FALSE if not Leap Year, TRUE if Leap Year  

    isLeapYear = (Month(DateSerial(Yr, 2, 29)) = 2)  

End Function  

J'ai d'abord eu cette fonction à partir de la Puce de Pearson Excel grande site.

Pearson site

OriginalL'auteur Lance Roberts

Si l'efficacité est la contrepartie, et les attendus de l'année est aléatoire, alors il pourrait être un peu mieux à faire, le cas le plus fréquent d'abord:

public function isLeapYear (yr as integer) as boolean
    if (mod(yr,4)) <> 0 then isLeapYear  = false
    elseif (mod(yr,400)) = 0 then isLeapYear  = true
    elseif (mod(yr,100)) = 0 then isLeapYear  = false
    else isLeapYear = true
end function

OriginalL'auteur Brent.Longborough

J'ai trouvé ce drôle de un sur CodeToad :

Public Function IsLeapYear(Year As Varient) As Boolean
  IsLeapYear = IsDate("29-Feb-" & Year)
End Function 

Bien que je suis assez sûr que l'utilisation de IsDate dans une fonction est probablement plus lent qu'un couple de si, elseifs.

OriginalL'auteur Pascal Paradis

Public Function isLeapYear(Optional intYear As Variant) As Boolean

    If IsMissing(intYear) Then
        intYear = Year(Date)
    End If

    If intYear Mod 400 = 0 Then
        isLeapYear = True
    ElseIf intYear Mod 4 = 0 And intYear Mod 100 <> 0 Then
        isLeapYear = True
    End If

End Function

OriginalL'auteur Dan

En retard pour répondre à la question de la performance.

TL/DR: la Mathématiques versions sont sur le 5x plus rapide

---

Je vois deux groupes de réponses ici

1. Interprétation mathématique de l'Année Bissextile définition
2. Utiliser Excel Date/Heure de fonctions permettant de détecter 29 Février (celles-ci se divisent en deux camps: ceux qui construisent une date comme une chaîne de caractères, et ceux qui n'en ont pas)

J'ai couru des tests de temps sur toutes les réponses, un découvert la Mathématiques méthodes sont sur 5x plus rapide que la Date/Heure de méthodes.

---

J'ai ensuite fait un peu de l'optimisation des méthodes et est venu avec (croyez-le ou pas Integer est légèrement plus rapide que Long dans ce cas, je ne sais pas pourquoi.)

Function IsLeapYear1(Y As Integer) As Boolean
    If Y Mod 4 Then Exit Function
    If Y Mod 100 Then
    ElseIf Y Mod 400 Then Exit Function
    End If
    IsLeapYear1 = True
End Function

Pour la comparaison, je me suis (très peu de différence avec la version diffusée)

Public Function IsLeapYear2(yr As Integer) As Boolean
    IsLeapYear2 = Month(DateSerial(yr, 2, 29)) = 2
End Function

La Date/Heure de versions que de construire une date comme une chaîne de caractères ont été réduits comme ils sont beaucoup plus lents à nouveau.

Le test était d'obtenir IsLeapYear pour les années 100 à 9999, répété 1000 fois

Résultats

• Mathématiques version: 640ms
• Date/version: 3360ms

---

Le code de test a été

Sub Test()
    Dim n As Long, i As Integer, j As Long
    Dim d As Long
    Dim t1 As Single, t2 As Single
    Dim b As Boolean

    n = 1000

    Debug.Print "============================="
    t1 = Timer()
    For j = 1 To n
    For i = 100 To 9999
        b = IsYLeapYear1(i)
    Next i, j
    t2 = Timer()
    Debug.Print 1, (t2 - t1) * 1000

    t1 = Timer()
    For j = 1 To n
    For i = 100 To 9999
        b = IsLeapYear2(i)
    Next i, j
    t2 = Timer()
    Debug.Print 2, (t2 - t1) * 1000
End Sub

OriginalL'auteur chris neilsen