Bonjour à tous

J'ai une fonction VBA récupérée d'Excel que je souhaiterai intégrer dans un programme ACCESS.
Mon seul soucis est que je ne saisi pas le principe de la fonction Excel qui, à priori, est une ancienne fonction d'Excel.

Cette fonction est WorksheetFunction.Floor(arg1, Arg2) et elle est intégrée dans une fonction de calcul suivante

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Function calcJD(year, month, day)
 
 
Dim A As Double, B As Double, JD As Double
 
        If (month <= 2) Then
         year = year - 1
         month = month + 12
        End If
 
        A = Application.WorksheetFunction.Floor(year / 100, 1)
        B = 2 - A + Application.WorksheetFunction.Floor(A / 4, 1)
 
        JD = Application.WorksheetFunction.Floor(365.25 * (year + 4716), 1) + Application.WorksheetFunction.Floor(30.6001 * (month + 1), 1) + day + B - 1524.5
        calcJD = JD
 
 
        If month = 13 Then
         month = 1
         year = year + 1
        End If
        If month = 14 Then
         month = 2
         year = year + 1
        End If
 
End Function
Je suppose qu'on peut remplacer ça par une ou imbrication de fonctions VBA mais vu que je ne saisi pas ce que fait exactement cette fonction Excel I Am Lost !!!

Alors HELP
Merci