8 Einträge, 1 Seite |
1 2 3 4
use Date::Calc qw (Week_of_Year); ($week,$year) = Week_of_Year($year,$month,$day); # RECOMMENDED $week = Week_of_Year($year,$month,$day); # DANGEROUS
1 2 3 4 5 6 7 8 9
use DateTime; my $dt = DateTime->new( day => 10, month => 10, year => 2007, ); print $dt->week_number;
sid burn+2007-10-10 17:39:00--Ich empfehle mitlerweile für Datumssachen am beste das DateTime Modul.
8 Einträge, 1 Seite |