Kalenderwoche in FHEM

[fiedel]

Dass Google irgendwann seinen Kalenderdienst einstellt, glaube ich eher nicht.

Gerade google hat schon vieles eingestellt, von dem die Nutzer es nie erwartet hätten. Oder sie schaffen die API ab. Ich nutze so wenig google wie möglich...

[betateilchen]

Bei den APIs gebe ich Dir recht.
Aber der Google Kalender ist integraler Bestandteil der Google Office Suite, da habe ich wenig Bedenken.

Der Link zum Google-Wochenkalender ist ja auch nur ein Beispiel für die Vorgehensweise, solche ics Dateien gibt es von unzähligen Anbietern, nicht nur von google.

[Loetkolben]

Hallo,

Dass Google irgendwann seinen Kalenderdienst einstellt, glaube ich eher nicht.

Warum also den ganzen Mist selbst ausrechnen?

Code Auswählen Erweitern


define wochen Calendar ical url
...
...


...
...
Zum Testen in der fhem-Kommandozeile:

Code Auswählen Erweitern

{ (split(/ /,CommandGet(undef,'wochen text all')))[3] }

bis hierhin funktioniert das bestens, es wird die aktuelle Woche angezeigt.
Aber - wie bekomme ich jetzt die Woche, bzw. die Zahl z.B. in einen Dummy geschrieben um sie hinterher auszuwerten?
Hintergrund: Ich möchte in Abhängigkeit einer geraden oder ungeraden Kalenderwoche, unterschiedliche Stundenpläne in Tablet UI anzeigen.


   Andreas

[Prof. Dr. Peter Henning]

Tipp: Perl lernen.

LG

pah

[Loetkolben]

... hat geholfen.

[accessburn]

Code Auswählen Erweitern


define wochen Calendar ical url https://calendar.google.com/calendar/ical/e_2_de%23weeknum%40group.v.calendar.google.com/public/basic.ics 86400
attr wochen hideLaterThan 0
attr wochen hideOlderThan 7d


Liebes betateilchen,
woooooo haste denn das ics her? 

[fiedel]

Hallo,

habe jetzt noch mal nach einer "perfekten" Lösung für die Berechnung der KW mit Perl gesucht und diese hier gefunden. Ich habe sie noch "FHEM- kompatibel" gemacht und aktuell zeigt sie die richtige Woche an. Wichtig für diesen Codeschnipsel ist die Definition von

Code Auswählen Erweitern

use Time::Local; oben in der MyUtils, bei den anderen "uses". Die Woche bekommt man testweise per

Code Auswählen Erweitern

{getWeekNumber()} in der Befehlszeile. Und nun noch der Code (kommt in die MyUtils):

Code Auswählen Erweitern

sub getWeekNumber
{
my ($sec,$min,$hour,$dayn,$month,$year,$wday,$yday,$isdst) = localtime(time);
my $weekNumber = checkWeekNumber($year, $month, $dayn);
# wenn Wochennummer gleich 0, dann ist das aktuelle Datum
# in der Woche vor dem 4. Januar
# also in der letzten Woche des letzten Jahres
if ($weekNumber == 0)
{
   # Wochennummer des letzten Woche des letzten Jahres suchen
   $weekNumber = checkWeekNumber(($year - 1), 12, 31);
   # wenn die Wochennummer größer als 52 ist
   # dann prüfen ob diese Wochennummer korrekt ist oder
   # sie bereits die erste Woche des aktuellen Jahres ist
   if ($weekNumber > 52)
   {
     $weekNumber = checkWeekNumber($year, 1, 1);
     # wenn der 1. Januar des aktuellen Jahres in der Woche 0 liegt
     # dann ist es die Woche 53
     if ($weekNumber == 0)
     {
       $weekNumber = 53;
     }
   }
}
# wenn die Wochennummer größer als 52 ist
# dann prüfen ob diese Wochennummer korrekt ist oder
# sie bereits die erste Woche des nächsten Jahres ist
elsif ($weekNumber > 52)
{
   $weekNumber = checkWeekNumber(($year + 1), 1, 1);
   # wenn der 1. Januar des nächsten Jahres in der Woche 0 liegt
   # dann ist es die Woche 53
   if ($weekNumber == 0)
   {
     $weekNumber = 53;
   }
}
return ($weekNumber);
}

sub checkWeekNumber {
my ($year, $month, $day) = @_;
# 4. Januar als erste Woche erstellen
my $firstDateTime = timelocal(0, 0, 12, 4, 0, $year);
# Wochentag des 4. Januar ermitteln
my $dayOfWeek = (localtime($firstDateTime))[6];
$dayOfWeek = abs((($dayOfWeek + 6) % 7));
# geh zu Wochenanfang (Montag) zurück
$firstDateTime -= ($dayOfWeek * 3600 * 24);
# aktuelles Datum erstellen
my $currentDateTime = timelocal(0, 0, 14, $day, $month, $year);
# Differenz in Tagen berechnen
my $diffInDay = ($currentDateTime - $firstDateTime) / 3600 / 24;
# Anzahl der Wochen zwischen aktuellem Datum und 4. Januar berechnen
my $weekNumber = floor($diffInDay / 7) + 1;
return ($weekNumber);
}


Gruß
Frank

[papa]

Das sieht aber kompliziert aus. Schau mal hier gibt es eine Implementierung in Javascript. Die braucht nur ein paar Zeilen. Das sollte doch auch mit perl gehen.

Code Auswählen Erweitern


Datum=new Date(j,m-1,t); // Anm. 1
DoDat=donnerstag(Datum);
kwjahr=DoDat.getFullYear();
DoKW1=donnerstag(new Date(kwjahr,0,4)); // Anm. 2
kw=Math.floor(1.5+(DoDat.getTime()-DoKW1.getTime())/86400000/7) // Anm. 3, 4

function donnerstag(datum) { // Anm. 5
  var Do=new Date();
  Do.setTime(datum.getTime() + (3-((datum.getDay()+6) % 7)) * 86400000); // Anm. 3
  return Do;
}


[fiedel]

Das Problem mit diesen "einfachen" Versionen ist, dass sie nicht die Verschiebungen beim Jahreswechsel berücksichtigen und deshalb nicht in jedem Jahr die richtige Woche zurückliefern.
Die Ermittlung der KW ist leider sehr komplex.

[papa]

Doch wird gemacht. Schau Dir doch mal die Webseite an. Dort steht alles erklärt.

[Wzut]

Die Ermittlung der KW ist leider sehr komplex.

Stimmt, darum hat mein Vorschlag auf Seite 1 Antwort #2 auch nur drei Zeilen

[fiedel]

Stimmt, darum hat mein Vorschlag auf Seite 1 Antwort #2 auch nur drei Zeilen

Naja, das war mir zu einfach und ich wollte den Wasserkopf von DateCalc nicht haben. 

[papa]

In Antwort 9 hatte das Pah sogar schon als Perl gepostet. Was ist daran so schlecht ?

[doman75]

der code aus antwort 9 liefert aber eine falsche KW, nämlich die KW35 , der neue Code liefert die korrekte KW nämlich 36

Grüße
Swen

[Wuppi68]

um mal ein wenig über den Tellerrand zu schauen

Excel rechnet auch falsch

nach diversen Recherchen bin ich auf folgende Formel gestossen die auch nach ISO Norm korrekt sein soll:

Code Auswählen Erweitern

=WENN(WOCHENTAG(Datum;2)=1;KÜRZEN((TestDatum-DATUM(JAHR(TestDatum+3-REST(TestDatum-2;7));1;REST(TestDatum-2;7)-9))/7);"")

Vielleicht kann man Funktion DOW zentral zur Verfügung stellen?

Grüße

Ralf

DOW = Day Of Week