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
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 !!!
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
Alors HELP
Merci
Partager