perlunity.de - PERL | JAVASCRIPT | PHP | MySQL | APACHE



#!/COMMUNITY

Members: 5374
davon online: 1
weitere User: 21
 Click for quality!



04.02.2012 / 14:44
Community-Member werden   |   Paßwort vergessen   |   OnlineMonitor (1) Wer ist online ... OnlineMonitor starten !
     

 

Home

PERLscripts

PHPscripts

JAVAscripts

Hilfreiches

Links2www

Newscenter

Community

Interna



Community  »  Perl: Allgemeines Forum zur Themenübersicht Themensuche Themenansicht in Thread-Modus


BeitragPerl/CGI: Aktuelle Kalenderwoche ermitteln
 Seitenanfang
Hi, Habe es so gelöst

#/////////////////////////////////////////////////
use Date::Calc qw(:all);

($sek, $min, $hour, $day, $month, $year) = localtime ();
$year = $year + 1900;
$month = $month +1;

($xweek,$xyear) = Week_of_Year($year,$month,$day);

print "KW$xweek\n";
#/////////////////////////////////////////////////

Datum: 02.07.2008-07:49
-






-
 -