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 :

Calendrier 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, inspiré du code d'Alan Graff, à l'aide du code source Delphi suivant :

  1. Program MoonPhaseExample;
  2.  
  3. {$APPTYPE CONSOLE}
  4.  
  5. Uses SysUtils;
  6.      
  7. Function MoonPhase(Year,Month,Day:Integer):Real;
  8. Var
  9.  M:Real;
  10.  XYear,Century:LongInt;
  11. Begin
  12.  If Month <= 2 Then Begin
  13.   Year := Year - 1;
  14.   Month := Month + 12;
  15.  End;
  16.  Month := Month - 3;
  17.  XYear := Year MOD 100;
  18.  Century := (((Year DIV 100) * 146097)) shr 2;
  19.  XYear := (XYear * 1461) shr 2;
  20.  M := (Trunc(((((Month * 153) + 2) / 5) + Day) + 1721119 + XYear + Century) + 4.867) / 29.53058;
  21.  MoonPhase:=Abs(2 * (M - Trunc(M)) - 1);
  22. End;
  23.      
  24. Var
  25.  I:Integer;
  26.  CircleType:Real;
  27. BEGIN
  28.  For I := 1 to 31 do Begin
  29.   CircleType := MoonPhase(1999, 11, I);
  30.   If CircleType > 0.97 Then
  31.    WriteLn(I,' novembre 1999, Phase de la lune:Pleine lune')
  32.   Else Begin
  33.    If CircleType < 0.03 Then
  34.     WriteLn(I,' novembre 1999, Phase de la lune:Pas de lune')
  35.    Else Begin
  36.     If (CircleType > 0.46) and (CircleType < 0.53) Then Begin
  37.      WriteLn(I,' novembre 1999, Phase de la lune: Quart de lune');
  38.     End;
  39.    End;
  40.   End;
  41.  End;
  42.  For I := 1 to 31 do Begin
  43.   CircleType := MoonPhase(2007, 8, I);
  44.   If CircleType > 0.97 Then
  45.    WriteLn(I,' août 2007, Phase de la lune:Pleine lune')
  46.   Else Begin
  47.    If CircleType < 0.03 Then
  48.     WriteLn(I,' août 2007, Phase de la lune:Pas de lune')
  49.    Else Begin
  50.     If (CircleType > 0.46) and (CircleType < 0.53) Then Begin
  51.      WriteLn(I,' août 2007, Phase de la lune: Quart de lune');
  52.     End;
  53.    End;
  54.   End;
  55.  End;
  56. END.

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 : Dimanche, le 17 août 2014