Re: gabs sowas schon mal...?

Hi,

Am Di 28.03.2006 11:58 schrieb Simone Demmel <neko@greenie.muc.de>:

> 
> Wann ist denn KW14...?
> 
> Gabs da schon mal eine kleine schnuckelige Loesung?
> 
> $ kw 14
> 01.02.2006 - 09.02.2006
> 
> (also eigentlich haett ich da gerne kein Fantasiedatum, sondern das
> richtige, Montag-Sonntag, wie das hier in .de so ueblich ist)
> 
> usage:
> kw <Woche> [<Jahr>]
> 
> Hat da schon jemand was Nettes irgendwo gesehen oder muss ich es mir
> selbst schreiben?

Mit Date::Calc eigentlich ganz einfach (ohne Formatierung der
Ausgabe...):

  use Date::Calc qw(Monday_of_Week Add_delta_Days);
  
  print Monday_of_Week($woche, $jahr);
  print Add_Delta_Days(Monday_of_Week($woche, $jahr), 6);


Ciao,

Eike

-- 
Dr. Eike Grote
ConSol Software GmbH