Commit 750c533c authored by Henk Kouwen's avatar Henk Kouwen
Browse files

Fix compile errors Hans

parent 51f4fc2b
No preview for this file type
......@@ -39,8 +39,8 @@
<IsVisibleTab Value="True"/>
<EditorIndex Value="0"/>
<WindowIndex Value="0"/>
<TopLine Value="156"/>
<CursorPos X="57" Y="170"/>
<TopLine Value="129"/>
<CursorPos X="27" Y="153"/>
<UsageCount Value="175"/>
<Loaded Value="True"/>
</Unit0>
......@@ -98,123 +98,123 @@
<JumpHistory Count="30" HistoryIndex="29">
<Position1>
<Filename Value="Sterretijdklok.lpr"/>
<Caret Line="317" Column="39" TopLine="305"/>
<Caret Line="324" Column="25" TopLine="314"/>
</Position1>
<Position2>
<Filename Value="Sterretijdklok.lpr"/>
<Caret Line="324" Column="25" TopLine="314"/>
<Caret Line="330" Column="21" TopLine="311"/>
</Position2>
<Position3>
<Filename Value="Sterretijdklok.lpr"/>
<Caret Line="330" Column="21" TopLine="311"/>
<Caret Line="314" Column="33" TopLine="301"/>
</Position3>
<Position4>
<Filename Value="Sterretijdklok.lpr"/>
<Caret Line="314" Column="33" TopLine="301"/>
<Caret Line="1" Column="19" TopLine="1"/>
</Position4>
<Position5>
<Filename Value="Sterretijdklok.lpr"/>
<Caret Line="1" Column="19" TopLine="1"/>
<Caret Line="123" Column="9" TopLine="93"/>
</Position5>
<Position6>
<Filename Value="Sterretijdklok.lpr"/>
<Caret Line="123" Column="9" TopLine="93"/>
<Caret Line="160" Column="9" TopLine="130"/>
</Position6>
<Position7>
<Filename Value="Sterretijdklok.lpr"/>
<Caret Line="160" Column="9" TopLine="130"/>
<Caret Line="161" Column="9" TopLine="131"/>
</Position7>
<Position8>
<Filename Value="Sterretijdklok.lpr"/>
<Caret Line="161" Column="9" TopLine="131"/>
<Caret Line="190" Column="7" TopLine="160"/>
</Position8>
<Position9>
<Filename Value="Sterretijdklok.lpr"/>
<Caret Line="190" Column="7" TopLine="160"/>
<Caret Line="281" Column="11" TopLine="251"/>
</Position9>
<Position10>
<Filename Value="Sterretijdklok.lpr"/>
<Caret Line="281" Column="11" TopLine="251"/>
<Caret Line="1" Column="16" TopLine="1"/>
</Position10>
<Position11>
<Filename Value="Sterretijdklok.lpr"/>
<Caret Line="1" Column="16" TopLine="1"/>
<Caret Line="127" Column="21" TopLine="97"/>
</Position11>
<Position12>
<Filename Value="Sterretijdklok.lpr"/>
<Caret Line="127" Column="21" TopLine="97"/>
<Caret Line="129" Column="51" TopLine="99"/>
</Position12>
<Position13>
<Filename Value="Sterretijdklok.lpr"/>
<Caret Line="129" Column="51" TopLine="99"/>
<Caret Line="141" Column="14" TopLine="111"/>
</Position13>
<Position14>
<Filename Value="Sterretijdklok.lpr"/>
<Caret Line="141" Column="14" TopLine="111"/>
<Caret Line="1" Column="12" TopLine="1"/>
</Position14>
<Position15>
<Filename Value="Sterretijdklok.lpr"/>
<Caret Line="1" Column="12" TopLine="1"/>
<Caret Line="330" Column="15" TopLine="300"/>
</Position15>
<Position16>
<Filename Value="Sterretijdklok.lpr"/>
<Caret Line="330" Column="15" TopLine="300"/>
<Caret Line="338" Column="10" TopLine="320"/>
</Position16>
<Position17>
<Filename Value="Sterretijdklok.lpr"/>
<Caret Line="338" Column="10" TopLine="320"/>
<Caret Line="339" Column="27" TopLine="315"/>
</Position17>
<Position18>
<Filename Value="Sterretijdklok.lpr"/>
<Caret Line="339" Column="27" TopLine="315"/>
<Caret Line="351" Column="22" TopLine="319"/>
</Position18>
<Position19>
<Filename Value="Sterretijdklok.lpr"/>
<Caret Line="351" Column="22" TopLine="319"/>
<Caret Line="1" Column="14" TopLine="1"/>
</Position19>
<Position20>
<Filename Value="Sterretijdklok.lpr"/>
<Caret Line="1" Column="14" TopLine="1"/>
<Caret Line="189" Column="7" TopLine="159"/>
</Position20>
<Position21>
<Filename Value="Sterretijdklok.lpr"/>
<Caret Line="189" Column="7" TopLine="159"/>
<Caret Line="240" Column="9" TopLine="210"/>
</Position21>
<Position22>
<Filename Value="Sterretijdklok.lpr"/>
<Caret Line="240" Column="9" TopLine="210"/>
<Caret Line="261" Column="27" TopLine="231"/>
</Position22>
<Position23>
<Filename Value="Sterretijdklok.lpr"/>
<Caret Line="261" Column="27" TopLine="231"/>
<Caret Line="262" Column="27" TopLine="232"/>
</Position23>
<Position24>
<Filename Value="Sterretijdklok.lpr"/>
<Caret Line="262" Column="27" TopLine="232"/>
<Caret Line="335" Column="27" TopLine="326"/>
</Position24>
<Position25>
<Filename Value="Sterretijdklok.lpr"/>
<Caret Line="335" Column="27" TopLine="326"/>
<Caret Line="254" Column="106" TopLine="236"/>
</Position25>
<Position26>
<Filename Value="Sterretijdklok.lpr"/>
<Caret Line="254" Column="106" TopLine="236"/>
<Caret Line="182" Column="52" TopLine="160"/>
</Position26>
<Position27>
<Filename Value="Sterretijdklok.lpr"/>
<Caret Line="182" Column="52" TopLine="160"/>
<Caret Line="172" Column="91" TopLine="162"/>
</Position27>
<Position28>
<Filename Value="Sterretijdklok.lpr"/>
<Caret Line="172" Column="91" TopLine="162"/>
<Caret Line="98" Column="29" TopLine="85"/>
</Position28>
<Position29>
<Filename Value="Sterretijdklok.lpr"/>
<Caret Line="98" Column="29" TopLine="85"/>
<Caret Line="174" Column="30" TopLine="150"/>
</Position29>
<Position30>
<Filename Value="Sterretijdklok.lpr"/>
<Caret Line="174" Column="30" TopLine="150"/>
<Caret Line="189" Column="90" TopLine="189"/>
</Position30>
</JumpHistory>
</ProjectOptions>
......
......@@ -150,8 +150,6 @@ Const
StartJaar = 2005;
Periode = 365.24238;
Sterdag_Factor = Period / (Periode +1); { relatieve lengte van een sterredag t.o.v. zonnedag }
Begin
{ startjaar = 2005 20 maart 12:33:19 MET periode = 365,24238 Dagen }
......@@ -163,6 +161,9 @@ Function AstronomischeDatum : Integer;
Var
Jaar,Maand,Dag : Word;
Ljaar,Lmaand,Ldag : Word;
Sterdag_Factor : Real;
Const
Periode = 365.24238;
Begin
DecodeDate(Date,Jaar,Maand,Dag);
DecodeDate(Lentepunt(Jaar),Ljaar,LMaand,Ldag);
......@@ -172,7 +173,8 @@ Begin
IF Lentepunt(Jaar) > Date Then Astronomischedatum := DaysBetween (Date,Lentepunt(Jaar-1))
Else AstronomischeDatum := DaysBetween (Date,Lentepunt(Jaar));
AstronomischeDatum := TRUNC(AstronomischeDatum / Sterdag_Factor);
Sterdag_Factor := Periode / (Periode +1); { relatieve lengte van een sterredag t.o.v. zonnedag }
AstronomischeDatum := TRUNC(AstronomischeDatum / Sterdag_Factor);
{ IF Astronomischedatum > 365 Then Astronomischedatum := Astronomischedatum - 365; }
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment