Discussion :

[Phils67]

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

[tee_grandbois]

bonjour,
ci-joint un exemple d'utilisation de ta fonction:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Function UseXLfunctionFloor(parm1, parm2)
' comment utiliser Floor de WorksheetFunction de Excel dans Access:
Dim oApp As Object:    Set oApp = CreateObject("excel.application")
 
UseXLfunctionFloor = oApp.WorksheetFunction.Floor(parm1, parm2)
 
oApp.Quit: Set oApp = Nothing
End Function

? UseXLfunctionfloor(1.58,0.1)
1,5

[Phils67]

Merci de cette réponse.

J'avais aussi envisagé de passer par un objet Excel mais il doit bien y avoir une correspondance VBA de cette satanée fonction non?

[tee_grandbois]

il doit bien y avoir une correspondance VBA de cette satanée fonction non?

je ne vois pas en quoi ce serait gênant d'utiliser une fonction d'une autre application ...
mais la question que je me pose est: que renvoie la fonction calcJD et à quoi correspond le résultat ?
voilà ce que j'obtiens quand je la lance avec la date du jour:

?calcjd(2024,1,3)
2460312,5

[tee_grandbois]

en déboguant la fonction calcJD, je pense que ce qui se rapprocherait le plus de la fonction Floor serait Int() ou Fix()

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
Function calcJDVBA(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 = Fix(year / 100)
B = 2 - A + Fix(A / 4)
 
JD = Fix(365.25 * (year + 4716)) + Fix(30.6001 * (month + 1)) + day + B - 1524.5
calcJDVBA = JD
 
' à quoi sert ce code  ?
If month = 13 Then
month = 1
year = year + 1
End If
If month = 14 Then
month = 2
year = year + 1
End If
 
End Function

en tout cas, cela donne le même résultat:

?calcjdvba(2024,1,3)
2460312,5
?calcjd(2024,1,3)
2460312,5

à tester

[Phils67]

en déboguant la fonction calcJD, je pense que ce qui se rapprocherait le plus de la fonction Floor serait Int() ou Fix()

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
Function calcJDVBA(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 = Fix(year / 100)
B = 2 - A + Fix(A / 4)

JD = Fix(365.25 * (year + 4716)) + Fix(30.6001 * (month + 1)) + day + B - 1524.5
calcJDVBA = JD

' à quoi sert ce code  ?
If month = 13 Then
month = 1
year = year + 1
End If
If month = 14 Then
month = 2
year = year + 1
End If

End Function

en tout cas, cela donne le même résultat: à tester

Pour répondre à ta question sur l'utilité de la fin du code, la réponse est: Il est trop tôt pour moi pour comprendre, et c'est passablement compliqué pour un néophyte comme moi en Astronomie et calculs associées.

Si je résume cette fonction fait partie d'un "lot" d'autres fonctions permettant, à partir d'une latitude, d'une longitude donnée et d'une date de déterminer l'heure de lever et de coucher de soleil !!!
La fonction CalcJD permet par exemple de calculer le jour Julien de la date Courante. Le Zéro étant si j'ai tout compris le 1er janvier -4712 à 12 heures. C'est très utilisé en Astronomie pour une raison qui m'échappe encore.

Je tenterai de comprendre les calcul un peu plus tard bien que je pense que ce soit en dehors de ma juridiction.

[deedolith]

je ne vois pas en quoi ce serait gênant d'utiliser une fonction d'une autre application

Instancier une application pour n'en utiliser qu'un nombre limité de fonctionnalités, c'est "un peu" overkill.

[Robert1957]

Bonjour Phils67,

Pour répondre à votre question :

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 !!!

Vous trouverez l'explication ICI

Bonne journée

[Phils67]

Instancier une application pour n'en utiliser qu'un nombre limité de fonctionnalités, c'est "un peu" overkill.

C'est mon avis également mais la liberté étant ce qu'elle est chacun fait comme il l'entend.

[tee_grandbois]

PAS bonjour,

Instancier une application pour n'en utiliser qu'un nombre limité de fonctionnalités, c'est "un peu" overkill.

oui, c'est vrai qu'avec les machines actuelles équipées de 8 malheureux bits ça risque de saturer la mémoire ...

[loufab]

Bonjour,

En effet au premier abord on pourrait se dire pourquoi instancier un application alors qu'on utilise qu'une fonction ? Mais quand on connait le modèle Office en général cette question/remarque ne devrait pas se poser.

Excel.WorksheetFunction n'étant pas exposé, la seule solution pour utiliser une fonction Excel c'est encore d'instancier l'application. Donc createobjet("Excel.Application") et tant pis pour notre propre processeur 8bits.

Cordialement,

[tee_grandbois]

bonsoir loufab,

Bonjour,

En effet au premier abord on pourrait se dire pourquoi instancier un application alors qu'on utilise qu'une fonction ? Mais quand on connait le modèle Office en général cette question/remarque ne devrait pas se poser.

Excel.WorksheetFunction n'étant pas exposé, la seule solution pour utiliser une fonction Excel c'est encore d'instancier l'application. Donc createobjet("Excel.Application") et tant pis pour notre propre processeur 8bits.

Cordialement,

j'adhère ....