DESCRIPTION.

La fonction FN_year() retourne l'année d'un Jour Julien Modifié donné.

SYNTAXE.

kvaleur = FN_year( mjd )

REMARQUES.

mjd doit être un nombre entier correspondant à un Jour Julien Modifié d'une date comprise entre le 01/01/0001 et le 31/12/9999.

La fonction FN_year() retourne le nombre compris entre 1 et 9999.

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_dow() qui retourne le numéro du jour de la semaine d'un Jour Julien Modifié donné.

Voir la fonction FN_day() qui retourne le numéro du jour du mois d'un Jour Julien Modifié donné.

Voir la fonction FN_month() qui retourne le numéro du mois d'un Jour Julien Modifié donné.

Voir la fonction FN_date$() qui retourne la date complète d'un Jour Julien Modifié donné.

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

EXEMPLE.

INSTALL @lib$ + "datelib.bbc"

INPUT "Entrez le numero du Jour Julien Modifie ... " , kmjd%

CASE FN_dow( kmjd% ) OF

WHEN 1 : kjour$ = "Lundi " 

WHEN 2 : kjour$ = "Mardi " 

WHEN 3 : kjour$ = "Mercredi " 

WHEN 4 : kjour$ = "Jeudi " 

WHEN 5 : kjour$ = "Vendredi " 

WHEN 6 : kjour$ = "Samedi " 

OTHERWISE : kjour$ = "Dimanche " 

ENDCASE

CASE FN_month( kmjd% ) OF

WHEN 1 : kmois$ = "Janvier " 

WHEN 2 : kmois$ = "Fevrier " 

WHEN 3 : kmois$ = "Mars " 

WHEN 4 : kmois$ = "Avril " 

WHEN 5 : kmois$ = "Mai " 

WHEN 6 : kmois$ = "Juin " 

WHEN 7 : kmois$ = "Juillet " 

WHEN 8 : kmois$ = "Aout " 

WHEN 9 : kmois$ = "Septembre " 

WHEN 10 : kmois$ = "Octobre " 

WHEN 11 : kmois$ = "Novembre " 

OTHERWISE : kmois$ = "Decembre " 

ENDCASE

PRINT "C'est le : " ; kjour$ ; STR$( FN_day( kmjd% ) ) ; " " ; kmois$ ; STR$( FN_year( kmjd% ) )

END