Commit f63f975b authored by Henk Kouwen's avatar Henk Kouwen
Browse files

Fix UTC offset (zomertijd)

parent 750c533c
Pipeline #19 failed with stages
No preview for this file type
...@@ -39,9 +39,9 @@ ...@@ -39,9 +39,9 @@
<IsVisibleTab Value="True"/> <IsVisibleTab Value="True"/>
<EditorIndex Value="0"/> <EditorIndex Value="0"/>
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="129"/> <TopLine Value="178"/>
<CursorPos X="27" Y="153"/> <CursorPos X="22" Y="178"/>
<UsageCount Value="175"/> <UsageCount Value="176"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit0> </Unit0>
<Unit1> <Unit1>
...@@ -52,7 +52,7 @@ ...@@ -52,7 +52,7 @@
<UnitName Value="Camras919Hoofdunit"/> <UnitName Value="Camras919Hoofdunit"/>
<EditorIndex Value="4"/> <EditorIndex Value="4"/>
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="226"/> <TopLine Value="254"/>
<CursorPos X="32" Y="301"/> <CursorPos X="32" Y="301"/>
<UsageCount Value="87"/> <UsageCount Value="87"/>
<Loaded Value="True"/> <Loaded Value="True"/>
...@@ -98,123 +98,123 @@ ...@@ -98,123 +98,123 @@
<JumpHistory Count="30" HistoryIndex="29"> <JumpHistory Count="30" HistoryIndex="29">
<Position1> <Position1>
<Filename Value="Sterretijdklok.lpr"/> <Filename Value="Sterretijdklok.lpr"/>
<Caret Line="324" Column="25" TopLine="314"/> <Caret Line="1" Column="19" TopLine="1"/>
</Position1> </Position1>
<Position2> <Position2>
<Filename Value="Sterretijdklok.lpr"/> <Filename Value="Sterretijdklok.lpr"/>
<Caret Line="330" Column="21" TopLine="311"/> <Caret Line="123" Column="9" TopLine="93"/>
</Position2> </Position2>
<Position3> <Position3>
<Filename Value="Sterretijdklok.lpr"/> <Filename Value="Sterretijdklok.lpr"/>
<Caret Line="314" Column="33" TopLine="301"/> <Caret Line="160" Column="9" TopLine="130"/>
</Position3> </Position3>
<Position4> <Position4>
<Filename Value="Sterretijdklok.lpr"/> <Filename Value="Sterretijdklok.lpr"/>
<Caret Line="1" Column="19" TopLine="1"/> <Caret Line="161" Column="9" TopLine="131"/>
</Position4> </Position4>
<Position5> <Position5>
<Filename Value="Sterretijdklok.lpr"/> <Filename Value="Sterretijdklok.lpr"/>
<Caret Line="123" Column="9" TopLine="93"/> <Caret Line="190" Column="7" TopLine="160"/>
</Position5> </Position5>
<Position6> <Position6>
<Filename Value="Sterretijdklok.lpr"/> <Filename Value="Sterretijdklok.lpr"/>
<Caret Line="160" Column="9" TopLine="130"/> <Caret Line="281" Column="11" TopLine="251"/>
</Position6> </Position6>
<Position7> <Position7>
<Filename Value="Sterretijdklok.lpr"/> <Filename Value="Sterretijdklok.lpr"/>
<Caret Line="161" Column="9" TopLine="131"/> <Caret Line="1" Column="16" TopLine="1"/>
</Position7> </Position7>
<Position8> <Position8>
<Filename Value="Sterretijdklok.lpr"/> <Filename Value="Sterretijdklok.lpr"/>
<Caret Line="190" Column="7" TopLine="160"/> <Caret Line="127" Column="21" TopLine="97"/>
</Position8> </Position8>
<Position9> <Position9>
<Filename Value="Sterretijdklok.lpr"/> <Filename Value="Sterretijdklok.lpr"/>
<Caret Line="281" Column="11" TopLine="251"/> <Caret Line="129" Column="51" TopLine="99"/>
</Position9> </Position9>
<Position10> <Position10>
<Filename Value="Sterretijdklok.lpr"/> <Filename Value="Sterretijdklok.lpr"/>
<Caret Line="1" Column="16" TopLine="1"/> <Caret Line="141" Column="14" TopLine="111"/>
</Position10> </Position10>
<Position11> <Position11>
<Filename Value="Sterretijdklok.lpr"/> <Filename Value="Sterretijdklok.lpr"/>
<Caret Line="127" Column="21" TopLine="97"/> <Caret Line="1" Column="12" TopLine="1"/>
</Position11> </Position11>
<Position12> <Position12>
<Filename Value="Sterretijdklok.lpr"/> <Filename Value="Sterretijdklok.lpr"/>
<Caret Line="129" Column="51" TopLine="99"/> <Caret Line="330" Column="15" TopLine="300"/>
</Position12> </Position12>
<Position13> <Position13>
<Filename Value="Sterretijdklok.lpr"/> <Filename Value="Sterretijdklok.lpr"/>
<Caret Line="141" Column="14" TopLine="111"/> <Caret Line="338" Column="10" TopLine="320"/>
</Position13> </Position13>
<Position14> <Position14>
<Filename Value="Sterretijdklok.lpr"/> <Filename Value="Sterretijdklok.lpr"/>
<Caret Line="1" Column="12" TopLine="1"/> <Caret Line="339" Column="27" TopLine="315"/>
</Position14> </Position14>
<Position15> <Position15>
<Filename Value="Sterretijdklok.lpr"/> <Filename Value="Sterretijdklok.lpr"/>
<Caret Line="330" Column="15" TopLine="300"/> <Caret Line="351" Column="22" TopLine="319"/>
</Position15> </Position15>
<Position16> <Position16>
<Filename Value="Sterretijdklok.lpr"/> <Filename Value="Sterretijdklok.lpr"/>
<Caret Line="338" Column="10" TopLine="320"/> <Caret Line="1" Column="14" TopLine="1"/>
</Position16> </Position16>
<Position17> <Position17>
<Filename Value="Sterretijdklok.lpr"/> <Filename Value="Sterretijdklok.lpr"/>
<Caret Line="339" Column="27" TopLine="315"/> <Caret Line="189" Column="7" TopLine="159"/>
</Position17> </Position17>
<Position18> <Position18>
<Filename Value="Sterretijdklok.lpr"/> <Filename Value="Sterretijdklok.lpr"/>
<Caret Line="351" Column="22" TopLine="319"/> <Caret Line="240" Column="9" TopLine="210"/>
</Position18> </Position18>
<Position19> <Position19>
<Filename Value="Sterretijdklok.lpr"/> <Filename Value="Sterretijdklok.lpr"/>
<Caret Line="1" Column="14" TopLine="1"/> <Caret Line="261" Column="27" TopLine="231"/>
</Position19> </Position19>
<Position20> <Position20>
<Filename Value="Sterretijdklok.lpr"/> <Filename Value="Sterretijdklok.lpr"/>
<Caret Line="189" Column="7" TopLine="159"/> <Caret Line="262" Column="27" TopLine="232"/>
</Position20> </Position20>
<Position21> <Position21>
<Filename Value="Sterretijdklok.lpr"/> <Filename Value="Sterretijdklok.lpr"/>
<Caret Line="240" Column="9" TopLine="210"/> <Caret Line="335" Column="27" TopLine="326"/>
</Position21> </Position21>
<Position22> <Position22>
<Filename Value="Sterretijdklok.lpr"/> <Filename Value="Sterretijdklok.lpr"/>
<Caret Line="261" Column="27" TopLine="231"/> <Caret Line="254" Column="106" TopLine="236"/>
</Position22> </Position22>
<Position23> <Position23>
<Filename Value="Sterretijdklok.lpr"/> <Filename Value="Sterretijdklok.lpr"/>
<Caret Line="262" Column="27" TopLine="232"/> <Caret Line="182" Column="52" TopLine="160"/>
</Position23> </Position23>
<Position24> <Position24>
<Filename Value="Sterretijdklok.lpr"/> <Filename Value="Sterretijdklok.lpr"/>
<Caret Line="335" Column="27" TopLine="326"/> <Caret Line="172" Column="91" TopLine="162"/>
</Position24> </Position24>
<Position25> <Position25>
<Filename Value="Sterretijdklok.lpr"/> <Filename Value="Sterretijdklok.lpr"/>
<Caret Line="254" Column="106" TopLine="236"/> <Caret Line="98" Column="29" TopLine="85"/>
</Position25> </Position25>
<Position26> <Position26>
<Filename Value="Sterretijdklok.lpr"/> <Filename Value="Sterretijdklok.lpr"/>
<Caret Line="182" Column="52" TopLine="160"/> <Caret Line="174" Column="30" TopLine="150"/>
</Position26> </Position26>
<Position27> <Position27>
<Filename Value="Sterretijdklok.lpr"/> <Filename Value="Sterretijdklok.lpr"/>
<Caret Line="172" Column="91" TopLine="162"/> <Caret Line="189" Column="90" TopLine="189"/>
</Position27> </Position27>
<Position28> <Position28>
<Filename Value="Sterretijdklok.lpr"/> <Filename Value="Sterretijdklok.lpr"/>
<Caret Line="98" Column="29" TopLine="85"/> <Caret Line="153" Column="25" TopLine="138"/>
</Position28> </Position28>
<Position29> <Position29>
<Filename Value="Sterretijdklok.lpr"/> <Filename Value="Sterretijdklok.lpr"/>
<Caret Line="174" Column="30" TopLine="150"/> <Caret Line="151" Column="2" TopLine="151"/>
</Position29> </Position29>
<Position30> <Position30>
<Filename Value="Sterretijdklok.lpr"/> <Filename Value="Sterretijdklok.lpr"/>
<Caret Line="189" Column="90" TopLine="189"/> <Caret Line="200" Column="85" TopLine="200"/>
</Position30> </Position30>
</JumpHistory> </JumpHistory>
</ProjectOptions> </ProjectOptions>
......
...@@ -9,8 +9,8 @@ uses ...@@ -9,8 +9,8 @@ uses
cthreads, cthreads,
{$ENDIF}{$ENDIF} {$ENDIF}{$ENDIF}
Classes, SysUtils, CustApp, Classes, SysUtils, CustApp,
{ you can add units after this }
DateUtils, ConstantenTypenVariabelen, poorten, IC_Drivers; DateUtils, ConstantenTypenVariabelen, poorten, IC_Drivers;
{ you can add units after this }
type type
...@@ -36,8 +36,8 @@ procedure Sterretijdklok.DoRun; ...@@ -36,8 +36,8 @@ procedure Sterretijdklok.DoRun;
Function NowUtc : TDateTime; Function NowUtc : TDateTime;
Begin Begin
NowUtc := Now -0.041666666 { -0.041666666 }; NowUtc := Now - 2/24.0; { Hack for UTC offset }
NowUtc := NowUtc - Trunc(NowUtc); NowUtc := NowUtc - Trunc(NowUtc);
end; end;
Type Type
......
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