Fonction WorksheetFunction.Floor d'Excel vers Access

Version imprimable

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:

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

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

Code:

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

Citation:

? UseXLfunctionfloor(1.58,0.1)
1,5

03/01/2024, 14h59
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?
03/01/2024, 18h40
tee_grandbois

Citation:

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:

Citation:

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

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

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:

Citation:

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

à tester

04/01/2024, 00h31
deedolith

Citation:

Envoyé par tee_grandbois

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.
04/01/2024, 01h07
Robert1957

Bonjour Phils67,

Pour répondre à votre question :

Citation:

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
04/01/2024, 08h05
Phils67

Citation:

Envoyé par Robert1957

Bonjour Phils67,

Pour répondre à votre question :

Vous trouverez l'explication ICI

Bonne journée

Ah ben la je saisi enfin la nuance grâce aux exemples notamment celui ou veut arrondir à la vingtaine la plus proche ou la "Cinquaine":oops: la plus proche . Il n'y a d'ailleurs que dans ce cas que cette fonction est intéressante à mon sens autrement un calcul simple fait le job.

Merci Robert ;)
04/01/2024, 08h07
Phils67

Citation:

Envoyé par deedolith

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.

Citation:
Envoyé par 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:

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.

04/01/2024, 12h39
tee_grandbois

bonjour,

Citation:

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.

merci phil67, ça m'éclaire mieux
04/01/2024, 12h42
tee_grandbois

PAS bonjour,

Citation:

Envoyé par deedolith

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 ... :weird:
08/01/2024, 09h25
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. :roll:

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. :ptdr::ptdr::ptdr:

Cordialement,
08/01/2024, 19h12
tee_grandbois

bonsoir loufab,

Citation:

Envoyé par 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. :roll:

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. :ptdr::ptdr::ptdr:

Cordialement,

j'adhère .... :ccool: