Opened by dominicn at 2003-09-11 14:28
User since
2003-08-04
5246 Artikel
ModeratorIn
![[Homepage]](/battie/theme/default/homepage.gif)
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2003-08-04
5246 Artikel
ModeratorIn
@dominicn: danke fuer den Algorithmus vom Buss- und Bettag; ich hab's gerade korrigiert, und zwar folgende aenderungen:
zeile 174: $year in GetLocalHolidays als Übergabeparameter hinzugefügt:
Zeile 201: $year aus @_ ausgelesen:
Und dann ab Zeile 237 sieht der Block fuer Sachsen jetzt folgendermassen aus:
Das liefert bei mir den 19.11.2003 als Buss/Bettag. Koenntest Du bitte mal checken, ob das jetzt korrekt ist?
Der Algorithmus ist bei mir: 26 November - Wochentag von Weihnachten (1..7; 7 wird zu 0) = totensonntag - 4 (Sonntag bis Mittwoch) = buss/bettag\n\n
<!--EDIT|Strat|1063316121-->
zeile 174: $year in GetLocalHolidays als Übergabeparameter hinzugefügt:
Code: (dl
)
(%holidays) = (%holidays, &GetLocalHolidays($country, $year));
Zeile 201: $year aus @_ ausgelesen:
Code: (dl
)
my ($country, $year) = @_; # changed
Und dann ab Zeile 237 sieht der Block fuer Sachsen jetzt folgendermassen aus:
Code: (dl
)
1
2
3
4
5
6
7
8
# Buss- und Bettag
if (grep { lc($country) eq lc($_) } qw(Sachsen)) {
# $holidays{'20.11'} = "Buss- und Bettag";
# changed to
my $weekdayXmas = &Date::Manip::Date_DayOfWeek(12, 24, $year) % 7;
$holidays{(22-$weekdayXmas) . ".11"} = "Buss- und Bettag";
} # if
Das liefert bei mir den 19.11.2003 als Buss/Bettag. Koenntest Du bitte mal checken, ob das jetzt korrekt ist?
Der Algorithmus ist bei mir: 26 November - Wochentag von Weihnachten (1..7; 7 wird zu 0) = totensonntag - 4 (Sonntag bis Mittwoch) = buss/bettag\n\n
<!--EDIT|Strat|1063316121-->
perl -le "s::*erlco'unaty.'.dk':e,y;*kn:ai;penmic;;print"
http://www.fabiani.net/
http://www.fabiani.net/