Roland Chastain

Je vous propose un programme en Pascal qui fournit la date et l'heure des éclipses solaires jusqu'en 2099. Le programme utilise l'unité Moon d'Andreas Hörstemeier.

Code Pascal :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
 
program Eclipses;
 
{ Date of solar eclipses }
 
uses
  SysUtils, Classes,
  Moon; { https://github.com/wp-xyz/delphimoon }
 
const
  CSolarEclipse = TRUE; { Uniquement les éclipses solaires }
 
{$DEFINE FRENCH}
{$IFDEF FRENCH}
const
  CFrench: array[TEclipse] of string = (
    { none          } '',
    { partial       } 'partielle',
    { noncentral    } 'non centrale',
    { circular      } 'annulaire',
    { circulartotal } 'hybride',
    { total         } 'totale',
    { halfshadow    } 'pénombrale'
  );
{$ENDIF}
 
var
  fromDate, toDate, dt: TDateTime;
  ecl: TEclipse;
 
begin
  fromDate := EncodeDate(CurrentYear, 1, 1);
  toDate   := EncodeDate(2099, 12, 31);
 
  dt := fromDate;
  repeat
    ecl := NextEclipse(dt, CSolarEclipse);
    if dt <= toDate then
      WriteLn(
        {$IFDEF FRENCH}
        FormatDateTime('dd"/"mm"/"yyyy hh:nn', dt), ' ', CFrench[ecl]
        {$ELSE}
        FormatDateTime('dd-mm-yyyy hh:nn', dt), ' ', ecl
        {$ENDIF}
      );
    dt := dt + 24;
  until dt >= toDate;
end.

J'attache ci-dessous le programme avec un Makefile. Pour compiler le programme, vous devez télécharger la bibliothèque et éditer le chemin vers les unités dans le Makefile. Le programme devrait pouvoir se compiler avec Delphi. Pour ma part je l'ai seulement compilé avec Free Pascal.