1. Bonjour tout le monde ! Veillez consulter la Politique de forum pour comprendre nos règles, Merci a vous !
    Rejeter la notice

WD Convertir une Date Heure en Jour julien

Discussion dans 'Windev' créé par mma77, Mar 9, 2021.

Tags:
  1. mma77

    mma77 New Member

    Inscrit:
    Mar 5, 2021
    Messages:
    10
    J'aime reçus:
    24
    Bonjour,

    Si ça peut aider quelqu'un d'autre, vous trouverez ci-dessous le code qui permet de convertir une variable de type DateHeure en Jour julien.

    Code (Text):
    PROCEDURE JulianDay(LOCAL dhDateTime est une DateHeure)

    LOCAL
        nYear, nMonth sont des entiers
        rk1, rk2 sont des réels
        rJulian est un réel sur 8 octets = 0
       
    nYear = dhDateTime..Année
    nMonth = dhDateTime..Mois

    SI (nMonth <= 2) ALORS
        nYear -= 1
        nMonth += 12
    FIN
    rk1 = ArrondiInférieur(nYear/100)
    rk2 = 2 - rk1 + ArrondiInférieur(rk1/4)
    rJulian = ArrondiInférieur(365.25 * (nYear + 4716)) + ArrondiInférieur(30.6001 * (nMonth + 1)) + dhDateTime..Jour + rk2 - 1524.5
    rJulian += (HeureVersEntier(dhDateTime..PartieHeure) / 8640000)

    RENVOYER(rJulian)
    Wiki Jour julien :

    Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!


    Calculatrice en ligne :

    Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!



    Si vous avez des commentaires, je suis preneur.

    Cordialement,
    mma77
     
    Tags:

Partager cette page

Chargement...