![]() |
AW: Wie Umstellung Sommver/Winterzeit testen?
Kleiner Test
Delphi-Quellcode:
Ergebnis
program Project2;
{$APPTYPE CONSOLE} {$R *.res} uses System.DateUtils, System.SysUtils; procedure Test; var utc, lt: TDateTime; begin Writeln('Winter- auf Sommerzeit'); Writeln('----------------------'); utc := EncodeDateTime(2019, 03, 30, 23, 00, 00, 00); while utc <= EncodeDateTime(2019, 3, 31, 02, 00, 00, 00) do begin lt := TTimeZone.Local.ToLocalTime(utc); Writeln('UTC ', FormatDateTime('dd.mm.yyyy hh:nn', utc), ' Local ', FormatDateTime('dd.mm.yyyy hh:nn', lt)); utc := IncMinute(utc, 15); end; Writeln; Writeln('Sommer- auf Winterzeit'); Writeln('----------------------'); utc := EncodeDateTime(2019, 10, 26, 23, 00, 00, 00); while utc <= EncodeDateTime(2019, 10, 27, 02, 00, 00, 00) do begin lt := TTimeZone.Local.ToLocalTime(utc); Writeln('UTC ', FormatDateTime('dd.mm.yyyy hh:nn', utc), ' Local ', FormatDateTime('dd.mm.yyyy hh:nn', lt)); utc := IncMinute(utc, 15); end; end; begin try Test; except on E: Exception do Writeln(E.ClassName, ': ', E.Message); end; Readln; end.
Code:
Der Test ist also ganz einfach
Winter- auf Sommerzeit
---------------------- UTC 30.03.2019 23:00 Local 31.03.2019 00:00 UTC 30.03.2019 23:15 Local 31.03.2019 00:15 UTC 30.03.2019 23:30 Local 31.03.2019 00:30 UTC 30.03.2019 23:45 Local 31.03.2019 00:45 UTC 31.03.2019 00:00 Local 31.03.2019 01:00 UTC 31.03.2019 00:15 Local 31.03.2019 01:15 UTC 31.03.2019 00:30 Local 31.03.2019 01:30 UTC 31.03.2019 00:45 Local 31.03.2019 01:45 UTC 31.03.2019 01:00 Local 31.03.2019 03:00 UTC 31.03.2019 01:15 Local 31.03.2019 03:15 UTC 31.03.2019 01:30 Local 31.03.2019 03:30 UTC 31.03.2019 01:45 Local 31.03.2019 03:45 UTC 31.03.2019 02:00 Local 31.03.2019 04:00 Sommer- auf Winterzeit ---------------------- UTC 26.10.2019 23:00 Local 27.10.2019 01:00 UTC 26.10.2019 23:15 Local 27.10.2019 01:15 UTC 26.10.2019 23:30 Local 27.10.2019 01:30 UTC 26.10.2019 23:45 Local 27.10.2019 01:45 UTC 27.10.2019 00:00 Local 27.10.2019 02:00 UTC 27.10.2019 00:15 Local 27.10.2019 02:15 UTC 27.10.2019 00:30 Local 27.10.2019 02:30 UTC 27.10.2019 00:45 Local 27.10.2019 02:45 UTC 27.10.2019 01:00 Local 27.10.2019 02:00 UTC 27.10.2019 01:15 Local 27.10.2019 02:15 UTC 27.10.2019 01:30 Local 27.10.2019 02:30 UTC 27.10.2019 01:45 Local 27.10.2019 02:45 UTC 27.10.2019 02:00 Local 27.10.2019 03:00 |
Alle Zeitangaben in WEZ +1. Es ist jetzt 05:05 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz