Section courante

A propos

Section administrative du site

Depuis déjà fort longtemps, certaines applications DOS, fournissait la possibilité d'obtenir les phases lunaires lorsqu'on consultait leur calendrier comme en fait fois la capture du MonsterBook:

Pourtant, même s'il ne s'agit que de convertir une date Julienne en Grégorienne pour ensuite calculer à tous les 30 jours (plus exactement 29,53058) la lune revenant inlassablement, les systèmes d'exploitation ne l'indique pas! Vous trouverez la réponse que vous souhaitez, à l'aide du code source PowerBASIC suivant :

Essayer maintenant !
  1. DEF FNMoonPhase(Year,Month,Day) 
  2.  IF Month<=2 THEN DECR Year:INCR Month,12 
  3.  DECR Month,3 
  4.  XYear=Year MOD 100 
  5.  Century=INT((INT(Year / 100)*146097) / 4) 
  6.  XYear=INT((XYear*1461) / 4) 
  7.  M=(INT(((((Month*153)+2)/ 5)+Day)+1721119+XYear+Century)+4.867)/29.53058 
  8.  FNMoonPhase=ABS(2*(M-INT(M))-1) 
  9. END DEF 
  10.  
  11. FOR I=1 TO 31 
  12.  CircleType=FNMoonPhase(1999,11,I) 
  13.  IF CircleType>0.97 THEN 
  14.      STDOUT STR$(I)+" novembre 1999, Phase de la lune:Pleine lune" 
  15.  ELSEIF CircleType<0.03 THEN 
  16.      STDOUT STR$(I)+" novembre 1999, Phase de la lune:Pas de lune" 
  17.  ELSEIF(CircleType>0.46)AND(CircleType<0.53)THEN  
  18.      STDOUT STR$(I)+" novembre 1999, Phase de la lune: Quart de lune" 
  19.  END IF 
  20. NEXT 
  21. FOR I=1 TO 31 
  22.  CircleType=FNMoonPhase(2007,8,I) 
  23.  IF CircleType>0.97 THEN 
  24.      STDOUT STR$(I)+" août 2007, Phase de la lune:Pleine lune" 
  25.  ELSEIF CircleType<0.03 THEN 
  26.      STDOUT STR$(I)+" août 2007, Phase de la lune:Pas de lune" 
  27.  ELSEIF(CircleType>0.46)AND(CircleType<0.53)THEN 
  28.      STDOUT STR$(I)+" août 2007, Phase de la lune: Quart de lune" 
  29.  END IF 
  30. NEXT

on obtiendra le résultat suivant:

1 novembre 1999, Phase de la lune: Quart de lune
8 novembre 1999, Phase de la lune:Pas de lune
15 novembre 1999, Phase de la lune: Quart de lune
23 novembre 1999, Phase de la lune:Pleine lune
30 novembre 1999, Phase de la lune: Quart de lune
6 août 2007, Phase de la lune: Quart de lune
13 août 2007, Phase de la lune:Pas de lune
20 août 2007, Phase de la lune: Quart de lune
28 août 2007, Phase de la lune:Pleine lune

Dernière mise à jour : Samedi, le 23 janvier 2016