Fix UTC offset (zomertijd)

Sterretijdklok.lpi

@@ -39,9 +39,9 @@
         <IsVisibleTab Value="True"/>
         <EditorIndex Value="0"/>
         <WindowIndex Value="0"/>
-        <TopLine Value="129"/>
-        <CursorPos X="27" Y="153"/>
-        <UsageCount Value="175"/>
+        <TopLine Value="178"/>
+        <CursorPos X="22" Y="178"/>
+        <UsageCount Value="176"/>
         <Loaded Value="True"/>
       </Unit0>
       <Unit1>
@@ -52,7 +52,7 @@
         <UnitName Value="Camras919Hoofdunit"/>
         <EditorIndex Value="4"/>
         <WindowIndex Value="0"/>
-        <TopLine Value="226"/>
+        <TopLine Value="254"/>
         <CursorPos X="32" Y="301"/>
         <UsageCount Value="87"/>
         <Loaded Value="True"/>
@@ -98,123 +98,123 @@
     <JumpHistory Count="30" HistoryIndex="29">
       <Position1>
         <Filename Value="Sterretijdklok.lpr"/>
-        <Caret Line="324" Column="25" TopLine="314"/>
+        <Caret Line="1" Column="19" TopLine="1"/>
       </Position1>
       <Position2>
         <Filename Value="Sterretijdklok.lpr"/>
-        <Caret Line="330" Column="21" TopLine="311"/>
+        <Caret Line="123" Column="9" TopLine="93"/>
       </Position2>
       <Position3>
         <Filename Value="Sterretijdklok.lpr"/>
-        <Caret Line="314" Column="33" TopLine="301"/>
+        <Caret Line="160" Column="9" TopLine="130"/>
       </Position3>
       <Position4>
         <Filename Value="Sterretijdklok.lpr"/>
-        <Caret Line="1" Column="19" TopLine="1"/>
+        <Caret Line="161" Column="9" TopLine="131"/>
       </Position4>
       <Position5>
         <Filename Value="Sterretijdklok.lpr"/>
-        <Caret Line="123" Column="9" TopLine="93"/>
+        <Caret Line="190" Column="7" TopLine="160"/>
       </Position5>
       <Position6>
         <Filename Value="Sterretijdklok.lpr"/>
-        <Caret Line="160" Column="9" TopLine="130"/>
+        <Caret Line="281" Column="11" TopLine="251"/>
       </Position6>
       <Position7>
         <Filename Value="Sterretijdklok.lpr"/>
-        <Caret Line="161" Column="9" TopLine="131"/>
+        <Caret Line="1" Column="16" TopLine="1"/>
       </Position7>
       <Position8>
         <Filename Value="Sterretijdklok.lpr"/>
-        <Caret Line="190" Column="7" TopLine="160"/>
+        <Caret Line="127" Column="21" TopLine="97"/>
       </Position8>
       <Position9>
         <Filename Value="Sterretijdklok.lpr"/>
-        <Caret Line="281" Column="11" TopLine="251"/>
+        <Caret Line="129" Column="51" TopLine="99"/>
       </Position9>
       <Position10>
         <Filename Value="Sterretijdklok.lpr"/>
-        <Caret Line="1" Column="16" TopLine="1"/>
+        <Caret Line="141" Column="14" TopLine="111"/>
       </Position10>
       <Position11>
         <Filename Value="Sterretijdklok.lpr"/>
-        <Caret Line="127" Column="21" TopLine="97"/>
+        <Caret Line="1" Column="12" TopLine="1"/>
       </Position11>
       <Position12>
         <Filename Value="Sterretijdklok.lpr"/>
-        <Caret Line="129" Column="51" TopLine="99"/>
+        <Caret Line="330" Column="15" TopLine="300"/>
       </Position12>
       <Position13>
         <Filename Value="Sterretijdklok.lpr"/>
-        <Caret Line="141" Column="14" TopLine="111"/>
+        <Caret Line="338" Column="10" TopLine="320"/>
       </Position13>
       <Position14>
         <Filename Value="Sterretijdklok.lpr"/>
-        <Caret Line="1" Column="12" TopLine="1"/>
+        <Caret Line="339" Column="27" TopLine="315"/>
       </Position14>
       <Position15>
         <Filename Value="Sterretijdklok.lpr"/>
-        <Caret Line="330" Column="15" TopLine="300"/>
+        <Caret Line="351" Column="22" TopLine="319"/>
       </Position15>
       <Position16>
         <Filename Value="Sterretijdklok.lpr"/>
-        <Caret Line="338" Column="10" TopLine="320"/>
+        <Caret Line="1" Column="14" TopLine="1"/>
       </Position16>
       <Position17>
         <Filename Value="Sterretijdklok.lpr"/>
-        <Caret Line="339" Column="27" TopLine="315"/>
+        <Caret Line="189" Column="7" TopLine="159"/>
       </Position17>
       <Position18>
         <Filename Value="Sterretijdklok.lpr"/>
-        <Caret Line="351" Column="22" TopLine="319"/>
+        <Caret Line="240" Column="9" TopLine="210"/>
       </Position18>
       <Position19>
         <Filename Value="Sterretijdklok.lpr"/>
-        <Caret Line="1" Column="14" TopLine="1"/>
+        <Caret Line="261" Column="27" TopLine="231"/>
       </Position19>
       <Position20>
         <Filename Value="Sterretijdklok.lpr"/>
-        <Caret Line="189" Column="7" TopLine="159"/>
+        <Caret Line="262" Column="27" TopLine="232"/>
       </Position20>
       <Position21>
         <Filename Value="Sterretijdklok.lpr"/>
-        <Caret Line="240" Column="9" TopLine="210"/>
+        <Caret Line="335" Column="27" TopLine="326"/>
       </Position21>
       <Position22>
         <Filename Value="Sterretijdklok.lpr"/>
-        <Caret Line="261" Column="27" TopLine="231"/>
+        <Caret Line="254" Column="106" TopLine="236"/>
       </Position22>
       <Position23>
         <Filename Value="Sterretijdklok.lpr"/>
-        <Caret Line="262" Column="27" TopLine="232"/>
+        <Caret Line="182" Column="52" TopLine="160"/>
       </Position23>
       <Position24>
         <Filename Value="Sterretijdklok.lpr"/>
-        <Caret Line="335" Column="27" TopLine="326"/>
+        <Caret Line="172" Column="91" TopLine="162"/>
       </Position24>
       <Position25>
         <Filename Value="Sterretijdklok.lpr"/>
-        <Caret Line="254" Column="106" TopLine="236"/>
+        <Caret Line="98" Column="29" TopLine="85"/>
       </Position25>
       <Position26>
         <Filename Value="Sterretijdklok.lpr"/>
-        <Caret Line="182" Column="52" TopLine="160"/>
+        <Caret Line="174" Column="30" TopLine="150"/>
       </Position26>
       <Position27>
         <Filename Value="Sterretijdklok.lpr"/>
-        <Caret Line="172" Column="91" TopLine="162"/>
+        <Caret Line="189" Column="90" TopLine="189"/>
       </Position27>
       <Position28>
         <Filename Value="Sterretijdklok.lpr"/>
-        <Caret Line="98" Column="29" TopLine="85"/>
+        <Caret Line="153" Column="25" TopLine="138"/>
       </Position28>
       <Position29>
         <Filename Value="Sterretijdklok.lpr"/>
-        <Caret Line="174" Column="30" TopLine="150"/>
+        <Caret Line="151" Column="2" TopLine="151"/>
       </Position29>
       <Position30>
         <Filename Value="Sterretijdklok.lpr"/>
-        <Caret Line="189" Column="90" TopLine="189"/>
+        <Caret Line="200" Column="85" TopLine="200"/>
       </Position30>
     </JumpHistory>
   </ProjectOptions>

Sterretijdklok.lpr

@@ -9,8 +9,8 @@ uses
   cthreads,
   {$ENDIF}{$ENDIF}
   Classes, SysUtils, CustApp,
-  { you can add units after this }
   DateUtils, ConstantenTypenVariabelen, poorten, IC_Drivers;
+  { you can add units after this }
 
 type
 
@@ -36,7 +36,7 @@ procedure Sterretijdklok.DoRun;
 
 Function NowUtc : TDateTime;
 Begin
-   NowUtc := Now -0.041666666  { -0.041666666 };
+   NowUtc := Now - 2/24.0; { Hack for UTC offset }
    NowUtc := NowUtc - Trunc(NowUtc); 
 end;