Lazarus východ a zapad slunce

Zdravím vás.

Jsem si vším, že je tu ještě par lidi, co používá tento jazyk, tak dotaz.

Potřebují jednou za den spustit utilitku přes crona, která mi uloží do souboru východ a západ slunce.

Jsem našel řešeni tady.

https://github.com/wp-xyz/sunrise

Toto ale neřeší letní a zimní čas.

Nejde ten východ a západ slunce nějak stáhnout z netu?

Klidně kdyby někdo uměl i přes bash.

Děkují.

Odpovědi

Proč by to nemělo řešit letní/zimní čas?
Zdar Max

Měl jsem sen ... :(

23.7.2023 07:33 Leo.xxl
Rozbalit Rozbalit vše Re: Lazarus východ a zapad slunce

Aby to ukazovalo spravně, tak musím nastavit local time na UTC+2.

Až přejdeme na zimní čas, tak to budu muset změni, ne?

23.7.2023 09:09 Peter Golis | skóre: 64 | blog: Bežné záležitosti | Bratislava
Rozbalit Rozbalit vše Re: Lazarus východ a zapad slunce

Obvykle stačí nastaviť časové pásmo na (v tvojom prípade) Prahu.

23.7.2023 09:38 Leo.xxl
Rozbalit Rozbalit vše Re: Lazarus východ a zapad slunce

Jako UPC a vybrat city?

Nejbliže tam je Berlin a to mi ukazuje zapad v 19:12:07

https://i.postimg.cc/q7KhYRFW/city.png

23.7.2023 10:09 Peter Golis | skóre: 64 | blog: Bežné záležitosti | Bratislava
Rozbalit Rozbalit vše Re: Lazarus východ a zapad slunce

$ ls -l /etc/localtime 
lrwxrwxrwx 1 root root 37 Jun  2 09:58 /etc/localtime -> /usr/share/zoneinfo/Europe/Bratislava

Ak je tá aplikácia rozumne napísaná, tak si zoberie dané nastavenie, a predvolí ho do sekcie časového pásma aby človek nemusel vyberať o koľko je posunutý čas ku nultému poludníku.

Ak to má byť spúšťané cez cron, tak by som sa radšej odporučil pozrieť po niečom inom. Ono tých súmrakov je viacero typov:

Twilight types, either:
    daylight      Top of sun just below the horizon. Default.
    civil         Civil Twilight.         -6 degrees below horizon.
    nautical      Nautical twilight.     -12 degrees below horizon.
    astronomical  Astronomical twilight. -18 degrees below horizon.
    angle [X.XX]  User-specified twilight-angle (degrees). Default: 0.

sunwait I keď mi nie je jasné, prečo by mal nejaký skript každý deň zisťovať tabuľkovú hodnotu známu na viac ako tisíc rokov dopredu.

25.7.2023 11:23 D
Rozbalit Rozbalit vše Re: Lazarus východ a zapad slunce

Dle kodu programu musite nastavit mesto a Time zone UTC+1 - zimni cas, UTC+2 letni cas.

Pokud by jste chtel pridat dalsi mesto, tak musite upravit kod a zkompilovat program:


procedure TMainForm.BuildCityList;
begin
                                // longitude  // latitude   // UTC offset
  AddLocation('Munich',          11.575899,   48.136959,    +1.0);
  AddLocation('Graz',            15.439504,   47.070714,    +1.0);
  AddLocation('Berlin',          13.377914,   52.515526,    +1.0);
  AddLocation('Dresden',         13.737262,   51.050409,    +1.0);
  AddLocation('San Francisco', -122.419416,   37.774929,    -8.0);
  AddLocation('Tokio',          139.691706,   35.689487,    +9.0);
  AddLocation('Frankfurt',        8.682127,   50.110922,    +1.0);
  AddLocation('Prague ',        14.418540,   50.073658,    +1.0); 
end;

Tak pokud by stačil výpočet pro časové pásmo z nastavení timedatectl (Time zone: Europe/Prague (CEST, +0200))
je možné použít funkci TimeZoneBias ze synautil.pas, knihovny Ararat Synapse, autor L. Gebauer,
a upravit proceduru BuildDeltaUTC.

{:Return your timezone bias from UTC time in minutes.}
function TimeZoneBias: integer;

V případě použití jiného časového pásma je nutno použít přepočet pomocí fce PascalTZ.GMTToLocalTime z balíku PascalTZ

// Convert current time to Paris time
DateTime := PascalTZ.GMTToLocalTime(DateTime, 'Europe/Paris');
WriteLn('Time in Paris: ', DateTimeToStr(DateTime));

25.7.2023 15:47 Host
Rozbalit Rozbalit vše Re: Lazarus východ a zapad slunce

Oprava: Procedura je správně BuildCityList a položka pro ČR (Praha) je taková

AddLocation('Praha', 14.42076,   50.08804, TimeZoneBias/60 );

Dotaz: Lazarus východ a zapad slunce

Odpovědi