examples/CBuilder/AstCalU.cpp

// ***** BEGIN LICENSE BLOCK *****
// * Version: MPL 1.1
// *
// * The contents of this file are subject to the Mozilla Public License Version
// * 1.1 (the "License"); you may not use this file except in compliance with
// * the License. You may obtain a copy of the License at
// * http://www.mozilla.org/MPL/
// *
// * Software distributed under the License is distributed on an "AS IS" basis,
// * WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License
// * for the specific language governing rights and limitations under the
// * License.
// *
// * The Original Code is TurboPower SysTools
// *
// * The Initial Developer of the Original Code is
// * TurboPower Software
// *
// * Portions created by the Initial Developer are Copyright (C) 1996-2002
// * the Initial Developer. All Rights Reserved.
// *
// * Contributor(s):
// *
// * ***** END LICENSE BLOCK *****
//---------------------------------------------------------------------------
#include <vcl\vcl.h>
#pragma hdrstop
#include "AstCalU.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "StDate"
#pragma link "StAstro"
#pragma link "StAstroP"

#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
  TheDT.D = CurrentDate();
  TheDT.T = CurrentTime();

  StDateToDMY(TheDT.D, D, M, Y);
  MonthEF->Text = IntToStr(M);
  DateEF->Text  = IntToStr(D);
  YearEF->Text  = IntToStr(Y);

  LongEF->Text = FloatToStr(-105.27);
  LatEF->Text  = FloatToStr(38.87);

  DoCalcTimes();
  Button1Click(this);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
  DoCalcTimes();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::DoCalcTimes()
{
  TStTime TT;

  LocalTimeEF->Text = CurrentTimeString("hh:mm:ss", false);
  TheDT.T = CurrentTime();
  TT = floor(SiderealTime(TheDT) * 240 + 0.5);
  SiderealTimeEF->Text = StTimeToTimeString("hh:mm:ss", TT, false);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::DoFixedCalcs() {
  int Y, M, D;
  TStDateTimeRec DTR;
  TStMoonPosRec MPR;
  TStPosRec SPR;
  String TS;
  TStLunarRecord LR;
  TStPlanetsArray PA;

  //Calculate Positions

  SPR = SunPos(TheDT);
  PositionsLB->Items->Add("Sun        " + HoursMin(SPR.RA) + "    " + DegsMin(SPR.DC));

  MPR = MoonPos(TheDT);
  PositionsLB->Items->Add("Moon       " + HoursMin(MPR.RA) + "    " + DegsMin(MPR.DC));
  PlanetsPos(AstJulianDate(TheDT.D) + TheDT.T/86400, PA);
  PositionsLB->Items->Add("Mercury    " + HoursMin(PA[1].RA) + "    " + DegsMin(PA[1].DC));
  PositionsLB->Items->Add("Venus      " + HoursMin(PA[2].RA) + "    " + DegsMin(PA[2].DC));
  PositionsLB->Items->Add("Mars       " + HoursMin(PA[3].RA) + "    " + DegsMin(PA[3].DC));
  PositionsLB->Items->Add("Jupiter    " + HoursMin(PA[4].RA) + "    " + DegsMin(PA[4].DC));
  PositionsLB->Items->Add("Saturn     " + HoursMin(PA[5].RA) + "    " + DegsMin(PA[5].DC));
  PositionsLB->Items->Add("Uranus     " + HoursMin(PA[6].RA) + "    " + DegsMin(PA[6].DC));
  PositionsLB->Items->Add("Neptune    " + HoursMin(PA[7].RA) + "    " + DegsMin(PA[7].DC));
  PositionsLB->Items->Add("Pluto      " + HoursMin(PA[8].RA) + "    " + DegsMin(PA[8].DC));

  //Calculate lunar phases

  if (LunarPhase(TheDT) >= 0)
    PhaseLabel->Caption = "Waxing";
  else
    PhaseLabel->Caption = "Waning";

  LR = NewMoon(TheDT.D);
  NMFirstDate->Text = StDateToDateString("mm/dd", LR.T[0].D, false);
  NMFirstTime->Text = StTimeToTimeString("hh:mm", LR.T[0].T, false);
  if (LR.T[1].D != BadDate) {
    NMSecondDate->Text = StDateToDateString("mm/dd", LR.T[1].D, false);
    NMSecondTime->Text = StTimeToTimeString("hh:mm", LR.T[1].T, false);
  }
  else {
    NMSecondDate->Text = "";
    NMSecondTime->Text = "";
  };

  LR = FirstQuarter(TheDT.D);
  FQFirstDate->Text = StDateToDateString("mm/dd", LR.T[0].D, false);
  FQFirstTime->Text = StTimeToTimeString("hh:mm", LR.T[0].T, false);
  if (LR.T[1].D != BadDate) {
    FQSecondDate->Text = StDateToDateString("mm/dd", LR.T[1].D, false);
    FQSecondTime->Text = StTimeToTimeString("hh:mm", LR.T[1].T, false);
  }
  else {
    FQSecondDate->Text = "";
    FQSecondTime->Text = "";
  };

  LR = FullMoon(TheDT.D);
  FMFirstDate->Text = StDateToDateString("mm/dd", LR.T[0].D, false);
  FMFirstTime->Text = StTimeToTimeString("hh:mm", LR.T[0].T, false);
  if (LR.T[1].D != BadDate) {
    FMSecondDate->Text = StDateToDateString("mm/dd", LR.T[1].D, false);
    FMSecondTime->Text = StTimeToTimeString("hh:mm", LR.T[1].T, false);
  }
  else {
    FMSecondDate->Text = "";
    FMSecondTime->Text = "";
  };

  LR = LastQuarter(TheDT.D);
  LQFirstDate->Text = StDateToDateString("mm/dd", LR.T[0].D, false);
  LQFirstTime->Text = StTimeToTimeString("hh:mm", LR.T[0].T, false);
  if (LR.T[1].D != BadDate) {
    LQSecondDate->Text = StDateToDateString("mm/dd", LR.T[1].D, false);
    LQSecondTime->Text = StTimeToTimeString("hh:mm", LR.T[1].T, false);
  }
  else {
    LQSecondDate->Text = "";
    LQSecondTime->Text = "";
  };


  //Calculate Next/Previous

  DTR = PrevNewMoon(TheDT.D);
  if (DTR.D != BadDate) {
    NMPrevDate->Text = StDateToDateString("mm/dd", DTR.D, false);
    NMPrevTime->Text = StTimeToTimeString("hh:mm", DTR.T, false);
  }
  else {
    NMPrevDate->Text = "";
    NMPrevTime->Text = "";
  };

  DTR = NextNewMoon(TheDT.D);
  if (DTR.D != BadDate) {
    NMNextDate->Text = StDateToDateString("mm/dd", DTR.D, false);
    NMNextTime->Text = StTimeToTimeString("hh:mm", DTR.T, false);
  }
  else {
    NMNextDate->Text = "";
    NMNextTime->Text = "";
  };

  DTR = PrevFirstQuarter(TheDT.D);
  if (DTR.D != BadDate) {
    FQPrevDate->Text = StDateToDateString("mm/dd", DTR.D, false);
    FQPrevTime->Text = StTimeToTimeString("hh:mm", DTR.T, false);
  }
  else {
    FQPrevDate->Text = "";
    FQPrevTime->Text = "";
  };

  DTR = NextFirstQuarter(TheDT.D);
  if (DTR.D != BadDate) {
    FQNextDate->Text = StDateToDateString("mm/dd", DTR.D, false);
    FQNextTime->Text = StTimeToTimeString("hh:mm", DTR.T, false);
  }
  else {
    FQNextDate->Text = "";
    FQNextTime->Text = "";
  };


  DTR = PrevFullMoon(TheDT.D);
  if (DTR.D != BadDate) {
    FMPrevDate->Text = StDateToDateString("mm/dd", DTR.D, false);
    FMPrevTime->Text = StTimeToTimeString("hh:mm", DTR.T, false);
  }
  else {
    FMPrevDate->Text = "";
    FMPrevTime->Text = "";
  };

  DTR = NextFullMoon(TheDT.D);
  if (DTR.D != BadDate) {
    FMNextDate->Text = StDateToDateString("mm/dd", DTR.D, false);
    FMNextTime->Text = StTimeToTimeString("hh:mm", DTR.T, false);
  }
  else {
    FMNextDate->Text = "";
    FMNextTime->Text = "";
  };


  DTR = PrevLastQuarter(TheDT.D);
  if (DTR.D != BadDate) {
    LQPrevDate->Text = StDateToDateString("mm/dd", DTR.D, false);
    LQPrevTime->Text = StTimeToTimeString("hh:mm", DTR.T, false);
  }
  else {
    LQPrevDate->Text = "";
    LQPrevTime->Text = "";
  };

  DTR = NextLastQuarter(TheDT.D);
  if (DTR.D != BadDate) {
    LQNextDate->Text = StDateToDateString("mm/dd", DTR.D, false);
    LQNextTime->Text = StTimeToTimeString("hh:mm", DTR.T, false);
  }
  else {
    LQNextDate->Text = "";
    LQNextTime->Text = "";
  };

  //Calculate Other Events

  StDateToDMY(TheDT.D, D, M, Y);
  EasterEF->Text = StDateToDateString("mm/dd", Easter(Y, 0), false);


  DTR = Equinox(Y, 0, True);
  SpringDate->Text = StDateToDateString("mm/dd", DTR.D, false);
  SpringTime->Text = StTimeToTimeString("hh:mm", DTR.T, false);


  DTR = Equinox(Y, 0, false);
  FallDate->Text = StDateToDateString("mm/dd", DTR.D, false);
  FallTime->Text = StTimeToTimeString("hh:mm", DTR.T, false);


  DTR = Solstice(Y, 0, True);
  SummerDate->Text = StDateToDateString("mm/dd", DTR.D, false);
  SummerTime->Text = StTimeToTimeString("hh:mm", DTR.T, false);


  DTR = Solstice(Y, 0, false);
  WinterDate->Text = StDateToDateString("mm/dd", DTR.D, false);
  WinterTime->Text = StTimeToTimeString("hh:mm", DTR.T, false);
};
//---------------------------------------------------------------------------
void __fastcall TForm1::DoCalcs(double ObsLong, double ObsLat) {
  SunlightEF->Text = StTimeToTimeString("hh:mm",
                     AmountOfSunlight(TheDT.D, ObsLong, ObsLat), false);

  RS = SunRiseSet(TheDT.D, ObsLong, ObsLat);
  SunRiseEF->Text = StTimeToTimeString("hh:mm", RS.ORise, false);
  SunSetEF->Text  = StTimeToTimeString("hh:mm", RS.OSet, false);

  RS = MoonRiseSet(TheDT.D, ObsLong, ObsLat);
  MoonRiseEF->Text = StTimeToTimeString("hh:mm", RS.ORise, false);
  MoonSetEF->Text  = StTimeToTimeString("hh:mm", RS.OSet, false);

  RS = Twilight(TheDT.D, ObsLong, ObsLat, ttAstronomical);
  TwiStartEF->Text = StTimeToTimeString("hh:mm", RS.ORise, false);
  TwiEndEF->Text = StTimeToTimeString("hh:mm", RS.OSet, false);
};
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  try {
    M = StrToInt(MonthEF->Text);
    if ((M < 1) || (M > 12)) {
      ShowMessage("Month value out of range (1..12)");
      return;
    };

    D = StrToInt(DateEF->Text);
    if ((D < 1) || (D > 31)) {
      ShowMessage("Date value out of range (1..31)");
      return;
    };

    Y = StrToInt(YearEF->Text);
    if ((Y < 1800) || (Y > 2200)) {
      ShowMessage("Year value out of range (1800..2200)");
      return;
    };

    TheDT.D = DMYtoStDate(D, M, Y, 0);
    if (TheDT.D == BadDate) {
      ShowMessage("Invalid date");
      return;
    };
    TheDT.T = CurrentTime();

    ObsLong = StrToFloat(LongEF->Text);
    if ((ObsLong < -180) || (ObsLong > 180)) {
      ShowMessage("Longitude out of range (-180..180)");
      return;
    };

    ObsLat = StrToFloat(LatEF->Text);
    if ((ObsLat < -90) || (ObsLat > 90)) {
      ShowMessage("Latitude out of range (-90..90)");
      return;
    };

    PositionsLB->Clear();
    DoFixedCalcs();
    DoCalcs(ObsLong, ObsLat);
  }
  catch(...) {
    ShowMessage("One or more entry fields has illegal data");
  };
};
//---------------------------------------------------------------------------
1	// *** BEGIN LICENSE BLOCK ***
2	// * Version: MPL 1.1
3	// *
4	// * The contents of this file are subject to the Mozilla Public License Version
5	// * 1.1 (the "License"); you may not use this file except in compliance with
6	// * the License. You may obtain a copy of the License at
7	// * http://www.mozilla.org/MPL/
8	// *
9	// * Software distributed under the License is distributed on an "AS IS" basis,
10	// * WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License
11	// * for the specific language governing rights and limitations under the
12	// * License.
13	// *
14	// * The Original Code is TurboPower SysTools
15	// *
16	// * The Initial Developer of the Original Code is
17	// * TurboPower Software
18	// *
19	// * Portions created by the Initial Developer are Copyright (C) 1996-2002
20	// * the Initial Developer. All Rights Reserved.
21	// *
22	// * Contributor(s):
23	// *
24	// * *** END LICENSE BLOCK ***
25	//---------------------------------------------------------------------------
26	#include <vcl\vcl.h>
27	#pragma hdrstop
28	#include "AstCalU.h"
29	//---------------------------------------------------------------------------
30	#pragma package(smart_init)
31	#pragma link "StDate"
32	#pragma link "StAstro"
33	#pragma link "StAstroP"
34
35	#pragma resource "*.dfm"
36	TForm1 *Form1;
37	//---------------------------------------------------------------------------
38	__fastcall TForm1::TForm1(TComponent* Owner)
39	: TForm(Owner)
40	{
41	}
42	//---------------------------------------------------------------------------
43	void __fastcall TForm1::FormCreate(TObject *Sender)
44	{
45	TheDT.D = CurrentDate();
46	TheDT.T = CurrentTime();
47
48	StDateToDMY(TheDT.D, D, M, Y);
49	MonthEF->Text = IntToStr(M);
50	DateEF->Text = IntToStr(D);
51	YearEF->Text = IntToStr(Y);
52
53	LongEF->Text = FloatToStr(-105.27);
54	LatEF->Text = FloatToStr(38.87);
55
56	DoCalcTimes();
57	Button1Click(this);
58	}
59	//---------------------------------------------------------------------------
60	void __fastcall TForm1::Timer1Timer(TObject *Sender)
61	{
62	DoCalcTimes();
63	}
64	//---------------------------------------------------------------------------
65	void __fastcall TForm1::DoCalcTimes()
66	{
67	TStTime TT;
68
69	LocalTimeEF->Text = CurrentTimeString("hh:mm:ss", false);
70	TheDT.T = CurrentTime();
71	TT = floor(SiderealTime(TheDT) * 240 + 0.5);
72	SiderealTimeEF->Text = StTimeToTimeString("hh:mm:ss", TT, false);
73	}
74	//---------------------------------------------------------------------------
75	void __fastcall TForm1::DoFixedCalcs() {
76	int Y, M, D;
77	TStDateTimeRec DTR;
78	TStMoonPosRec MPR;
79	TStPosRec SPR;
80	String TS;
81	TStLunarRecord LR;
82	TStPlanetsArray PA;
83
84	//Calculate Positions
85
86	SPR = SunPos(TheDT);
87	PositionsLB->Items->Add("Sun " + HoursMin(SPR.RA) + " " + DegsMin(SPR.DC));
88
89	MPR = MoonPos(TheDT);
90	PositionsLB->Items->Add("Moon " + HoursMin(MPR.RA) + " " + DegsMin(MPR.DC));
91	PlanetsPos(AstJulianDate(TheDT.D) + TheDT.T/86400, PA);
92	PositionsLB->Items->Add("Mercury " + HoursMin(PA[1].RA) + " " + DegsMin(PA[1].DC));
93	PositionsLB->Items->Add("Venus " + HoursMin(PA[2].RA) + " " + DegsMin(PA[2].DC));
94	PositionsLB->Items->Add("Mars " + HoursMin(PA[3].RA) + " " + DegsMin(PA[3].DC));
95	PositionsLB->Items->Add("Jupiter " + HoursMin(PA[4].RA) + " " + DegsMin(PA[4].DC));
96	PositionsLB->Items->Add("Saturn " + HoursMin(PA[5].RA) + " " + DegsMin(PA[5].DC));
97	PositionsLB->Items->Add("Uranus " + HoursMin(PA[6].RA) + " " + DegsMin(PA[6].DC));
98	PositionsLB->Items->Add("Neptune " + HoursMin(PA[7].RA) + " " + DegsMin(PA[7].DC));
99	PositionsLB->Items->Add("Pluto " + HoursMin(PA[8].RA) + " " + DegsMin(PA[8].DC));
100
101	//Calculate lunar phases
102
103	if (LunarPhase(TheDT) >= 0)
104	PhaseLabel->Caption = "Waxing";
105	else
106	PhaseLabel->Caption = "Waning";
107
108	LR = NewMoon(TheDT.D);
109	NMFirstDate->Text = StDateToDateString("mm/dd", LR.T[0].D, false);
110	NMFirstTime->Text = StTimeToTimeString("hh:mm", LR.T[0].T, false);
111	if (LR.T[1].D != BadDate) {
112	NMSecondDate->Text = StDateToDateString("mm/dd", LR.T[1].D, false);
113	NMSecondTime->Text = StTimeToTimeString("hh:mm", LR.T[1].T, false);
114	}
115	else {
116	NMSecondDate->Text = "";
117	NMSecondTime->Text = "";
118	};
119
120	LR = FirstQuarter(TheDT.D);
121	FQFirstDate->Text = StDateToDateString("mm/dd", LR.T[0].D, false);
122	FQFirstTime->Text = StTimeToTimeString("hh:mm", LR.T[0].T, false);
123	if (LR.T[1].D != BadDate) {
124	FQSecondDate->Text = StDateToDateString("mm/dd", LR.T[1].D, false);
125	FQSecondTime->Text = StTimeToTimeString("hh:mm", LR.T[1].T, false);
126	}
127	else {
128	FQSecondDate->Text = "";
129	FQSecondTime->Text = "";
130	};
131
132	LR = FullMoon(TheDT.D);
133	FMFirstDate->Text = StDateToDateString("mm/dd", LR.T[0].D, false);
134	FMFirstTime->Text = StTimeToTimeString("hh:mm", LR.T[0].T, false);
135	if (LR.T[1].D != BadDate) {
136	FMSecondDate->Text = StDateToDateString("mm/dd", LR.T[1].D, false);
137	FMSecondTime->Text = StTimeToTimeString("hh:mm", LR.T[1].T, false);
138	}
139	else {
140	FMSecondDate->Text = "";
141	FMSecondTime->Text = "";
142	};
143
144	LR = LastQuarter(TheDT.D);
145	LQFirstDate->Text = StDateToDateString("mm/dd", LR.T[0].D, false);
146	LQFirstTime->Text = StTimeToTimeString("hh:mm", LR.T[0].T, false);
147	if (LR.T[1].D != BadDate) {
148	LQSecondDate->Text = StDateToDateString("mm/dd", LR.T[1].D, false);
149	LQSecondTime->Text = StTimeToTimeString("hh:mm", LR.T[1].T, false);
150	}
151	else {
152	LQSecondDate->Text = "";
153	LQSecondTime->Text = "";
154	};
155
156
157	//Calculate Next/Previous
158
159	DTR = PrevNewMoon(TheDT.D);
160	if (DTR.D != BadDate) {
161	NMPrevDate->Text = StDateToDateString("mm/dd", DTR.D, false);
162	NMPrevTime->Text = StTimeToTimeString("hh:mm", DTR.T, false);
163	}
164	else {
165	NMPrevDate->Text = "";
166	NMPrevTime->Text = "";
167	};
168
169	DTR = NextNewMoon(TheDT.D);
170	if (DTR.D != BadDate) {
171	NMNextDate->Text = StDateToDateString("mm/dd", DTR.D, false);
172	NMNextTime->Text = StTimeToTimeString("hh:mm", DTR.T, false);
173	}
174	else {
175	NMNextDate->Text = "";
176	NMNextTime->Text = "";
177	};
178
179	DTR = PrevFirstQuarter(TheDT.D);
180	if (DTR.D != BadDate) {
181	FQPrevDate->Text = StDateToDateString("mm/dd", DTR.D, false);
182	FQPrevTime->Text = StTimeToTimeString("hh:mm", DTR.T, false);
183	}
184	else {
185	FQPrevDate->Text = "";
186	FQPrevTime->Text = "";
187	};
188
189	DTR = NextFirstQuarter(TheDT.D);
190	if (DTR.D != BadDate) {
191	FQNextDate->Text = StDateToDateString("mm/dd", DTR.D, false);
192	FQNextTime->Text = StTimeToTimeString("hh:mm", DTR.T, false);
193	}
194	else {
195	FQNextDate->Text = "";
196	FQNextTime->Text = "";
197	};
198
199
200	DTR = PrevFullMoon(TheDT.D);
201	if (DTR.D != BadDate) {
202	FMPrevDate->Text = StDateToDateString("mm/dd", DTR.D, false);
203	FMPrevTime->Text = StTimeToTimeString("hh:mm", DTR.T, false);
204	}
205	else {
206	FMPrevDate->Text = "";
207	FMPrevTime->Text = "";
208	};
209
210	DTR = NextFullMoon(TheDT.D);
211	if (DTR.D != BadDate) {
212	FMNextDate->Text = StDateToDateString("mm/dd", DTR.D, false);
213	FMNextTime->Text = StTimeToTimeString("hh:mm", DTR.T, false);
214	}
215	else {
216	FMNextDate->Text = "";
217	FMNextTime->Text = "";
218	};
219
220
221	DTR = PrevLastQuarter(TheDT.D);
222	if (DTR.D != BadDate) {
223	LQPrevDate->Text = StDateToDateString("mm/dd", DTR.D, false);
224	LQPrevTime->Text = StTimeToTimeString("hh:mm", DTR.T, false);
225	}
226	else {
227	LQPrevDate->Text = "";
228	LQPrevTime->Text = "";
229	};
230
231	DTR = NextLastQuarter(TheDT.D);
232	if (DTR.D != BadDate) {
233	LQNextDate->Text = StDateToDateString("mm/dd", DTR.D, false);
234	LQNextTime->Text = StTimeToTimeString("hh:mm", DTR.T, false);
235	}
236	else {
237	LQNextDate->Text = "";
238	LQNextTime->Text = "";
239	};
240
241	//Calculate Other Events
242
243	StDateToDMY(TheDT.D, D, M, Y);
244	EasterEF->Text = StDateToDateString("mm/dd", Easter(Y, 0), false);
245
246
247	DTR = Equinox(Y, 0, True);
248	SpringDate->Text = StDateToDateString("mm/dd", DTR.D, false);
249	SpringTime->Text = StTimeToTimeString("hh:mm", DTR.T, false);
250
251
252	DTR = Equinox(Y, 0, false);
253	FallDate->Text = StDateToDateString("mm/dd", DTR.D, false);
254	FallTime->Text = StTimeToTimeString("hh:mm", DTR.T, false);
255
256
257	DTR = Solstice(Y, 0, True);
258	SummerDate->Text = StDateToDateString("mm/dd", DTR.D, false);
259	SummerTime->Text = StTimeToTimeString("hh:mm", DTR.T, false);
260
261
262	DTR = Solstice(Y, 0, false);
263	WinterDate->Text = StDateToDateString("mm/dd", DTR.D, false);
264	WinterTime->Text = StTimeToTimeString("hh:mm", DTR.T, false);
265	};
266	//---------------------------------------------------------------------------
267	void __fastcall TForm1::DoCalcs(double ObsLong, double ObsLat) {
268	SunlightEF->Text = StTimeToTimeString("hh:mm",
269	AmountOfSunlight(TheDT.D, ObsLong, ObsLat), false);
270
271	RS = SunRiseSet(TheDT.D, ObsLong, ObsLat);
272	SunRiseEF->Text = StTimeToTimeString("hh:mm", RS.ORise, false);
273	SunSetEF->Text = StTimeToTimeString("hh:mm", RS.OSet, false);
274
275	RS = MoonRiseSet(TheDT.D, ObsLong, ObsLat);
276	MoonRiseEF->Text = StTimeToTimeString("hh:mm", RS.ORise, false);
277	MoonSetEF->Text = StTimeToTimeString("hh:mm", RS.OSet, false);
278
279	RS = Twilight(TheDT.D, ObsLong, ObsLat, ttAstronomical);
280	TwiStartEF->Text = StTimeToTimeString("hh:mm", RS.ORise, false);
281	TwiEndEF->Text = StTimeToTimeString("hh:mm", RS.OSet, false);
282	};
283	//---------------------------------------------------------------------------
284	void __fastcall TForm1::Button1Click(TObject *Sender)
285	{
286	try {
287	M = StrToInt(MonthEF->Text);
288	if ((M < 1) \|\| (M > 12)) {
289	ShowMessage("Month value out of range (1..12)");
290	return;
291	};
292
293	D = StrToInt(DateEF->Text);
294	if ((D < 1) \|\| (D > 31)) {
295	ShowMessage("Date value out of range (1..31)");
296	return;
297	};
298
299	Y = StrToInt(YearEF->Text);
300	if ((Y < 1800) \|\| (Y > 2200)) {
301	ShowMessage("Year value out of range (1800..2200)");
302	return;
303	};
304
305	TheDT.D = DMYtoStDate(D, M, Y, 0);
306	if (TheDT.D == BadDate) {
307	ShowMessage("Invalid date");
308	return;
309	};
310	TheDT.T = CurrentTime();
311
312	ObsLong = StrToFloat(LongEF->Text);
313	if ((ObsLong < -180) \|\| (ObsLong > 180)) {
314	ShowMessage("Longitude out of range (-180..180)");
315	return;
316	};
317
318	ObsLat = StrToFloat(LatEF->Text);
319	if ((ObsLat < -90) \|\| (ObsLat > 90)) {
320	ShowMessage("Latitude out of range (-90..90)");
321	return;
322	};
323
324	PositionsLB->Clear();
325	DoFixedCalcs();
326	DoCalcs(ObsLong, ObsLat);
327	}
328	catch(...) {
329	ShowMessage("One or more entry fields has illegal data");
330	};
331	};
332	//---------------------------------------------------------------------------