// JavaScript Document
// Tools
// Marcel Bucher
// 13.11.2004

//******************* Berechnung der Kalenderwoche *********************************
function kalenderwoche(datum) {
  var jh=datum.getYear(); if(jh<1900) jh+=1900; // Anm. 1
  jh++; // Anm. 2
  var kalwo=kaldiff(datum,jh);
  while(kalwo<1) { jh--; kalwo=kaldiff(datum,jh); }
  var witzseite="witz_" + kalwo + ".htm";
  window.location.href="witze/" + witzseite;
}
function kaldiff(datum,jahr) {
  var d4j=new Date(jahr,0,4);
  var wt4j=(d4j.getDay()+6)%7; // Anm. 3
  return Math.floor(1.05+(datum.getTime()-d4j.getTime())/6048e5+wt4j/7); // Anm. 4
}
//******************* ENDE Berechnung der Kalenderwoche *********************************