XL 2021 calcul de l'heure quand le soleil est au Zénith

[Nicolas JACQUIN]

Bonjour à tous,

Avec chatGPT, j'ai fait une approche sur le calcul de l'heure quand le soleil est au Zénith, mais pas bon, mon format reçu n'est pas celui souhaité.

Le résultat est en cellule "B20"

Je ne sais pas si c'est juste une histoire de format ou de conversion, je devrais avoir 14h18m à une ou deux minutes prêt.

Function ZenithTime(ByVal Date_ As Date, ByVal Longitude As Double) As Double

            A = Year(Range("B1"))
            M = Month(Range("B1"))
            J = ActiveCell.Value
            vdate = DateSerial(A, M, J)

    ' Variables
    Dim n As Double ' Nombre de jours depuis le 1er janvier de l'année
    Dim B As Double ' Correction pour l'équation du temps
    Dim EoT As Double ' Équation du temps en minutes
    Dim SolarNoon As Double ' Midi solaire en heures

    ' Nombre de jours depuis le début de l'année
    n = DateSerial(Year(A), Month(M), Day(J)) - DateSerial(Year(A), 1, 1) + 1
  
    ' Calcul de l'équation du temps (EoT)
    B = (n - 81) * (360 / 365)
    EoT = 9.87 * Sin(2 * Application.WorksheetFunction.Radians(B)) - 7.53 * Cos(Application.WorksheetFunction.Radians(B)) - 1.5 * Sin(Application.WorksheetFunction.Radians(B))
  
    ' Calcul de l'heure du zénith solaire (en heures)
    SolarNoon = 12 + (4 * Longitude - EoT) / 60
  
    ' Retourner l'heure du zénith en heures décimales
    ZenithTime = SolarNoon
End Function

Sub testzenith()

Cells(20, 2) = ZenithTime(vdate, -3.36667)

End Sub

J'ai pris ma position sur Lorient.

Merci à tous
Nicolas

 

[Nicolas JACQUIN]

si je l'avais déjà posté, j'ai juste un dernier souci de format sur les heures, je demandais juste (heures : minutes)

 

[Nicolas JACQUIN]

Sur ce, à dieu camarade et bonne chance pour la suite.
🖖

re Jacky, juste si c'est la dernière fois 😕 , je sais pas si tu as compris mon problème,

c'est juste au niveau d'info soleil je demandais juste comment faire pour le sans ( :00 )

et c'est adieu 🤣 :

Définition: Formule dont on se sert en prenant congé de quelqu'un ou qu'on ne doit pas revoir de quelque temps ou qu'on ne doit plus revoir.

J'espère que ce ne sera pas le cas.

Nico

 

[vgendron]

je t'en fais un seul

Forme.Lbl_LeverSoleil = "Lever du soleil" & vbTab & vbTab & Format(LeverTU, "hh:mm")

 

[Nicolas JACQUIN]

je t'en fais un seul

Forme.Lbl_LeverSoleil = "Lever du soleil" & vbTab & vbTab & Format(LeverTU, "hh:mm")

Bonjour l'ami,
je le faisais pas au bonne endroit en faites, je te remercie beaucoup pour ta patience.

Merci encore
Nico

 

[dysorthographie]

Bonjour,
J'ai fait mumuse avec Chatgpt :

ChatGPT

A conversational AI system that listens, learns, and challenges

chatgpt.com

Personnellement je pense que les gens regardent leur montre.

C'est comme les marées,je suppose que ceux qui ramasse les coquillages non pas leur montre réglée sur le soleil 😂