DESCRIPTION.

La fonction FN_mjd() retourne le nombre de jours entre une date donnée et le Jour Julien Modifié.

SYNTAXE.

kvaleur = FN_mjd( jour , mois , annee )

REMARQUES.

jour doit être un nombre entier compris entre 1 et 31.

mois doit être un nombre entier compris entre 1 et 12.

annee doit être un nombre entier compris entre 1 et 9999.

Si jour est supérieur au nombre de jour dans mois, BBC BASIC va alors réévaluer la valeur de la façon suivante : 

- jour = jour - ( nombre de jours dans mois ) ;

- mois = mois + 1;

- par exemple : le 31 2 2001 (31 février 2001) deviendra le 3 3 2001  (3 mars 2001).

Si mois est supérieur 12, BBC BASIC va alors réévaluer la valeur de la façon suivante : 

- mois = mois - 12 ;

- mois = mois + 1.

- par exemple : le 31 14 2001 (31 ???? 2001) deviendra le 3 3 2001  (3 mars 2002).

La fonction FN_mjd() retourne le nombre de jours entre la date jour/mois/annee et le 17/11/1858. Les dates antérieurs retourneront une valeur négative.

Rappel : les fonction du module datelib.bbc prennent comme la date origine, ou le moment 0, le Jour Julien Modifié, ou MJD 0, qui est une variante du Jour Julien Astronomique, ou AJD, qui a été définie pour simplifier les calculs. La formule reliant les jours juliens modifiés et les jours juliens astronomiques est la simple translation : MJD = AJD - 2 400 000,5.  Cette formule a pour effet de déplacer la date origine au 17 novembre 1858 à 0 heure (17/11/1858 00:00:00).

Voir la fonction FN_dim() qui retourne le nombre de jour d'un mois, selon l'année.

Voir la fonction FN_today qui retourne la valeur du Jour julien Modifié du jour actuel pour le système de la machine hote.

La fonction FN_mjd() est importée depuis le module datelib.bbc. 

EXEMPLE.

INSTALL @lib$ + "datelib.bbc"

INPUT "Entrez le numero du jour entre 1 et 31 ... " , kjour&

INPUT "Entrez le numero du mois entre 1 et 12 ... " , kmois&

INPUT "Entrez le numero de l'annee entre 1 et 9999 ... " , kannee%

kmjd = FN_mjd( kjour& , kmois& , kannee% )

PRINT "Le numero du Jour Julien Modifie est : " ; kmjd

END