Ugenr udfra UNIX dato

det eneste det handler om er algoritmen....

selvfølgelig er det bedre hvis der findes en funktion hertil!!!!

unix dato? mener du epoc-tid? et stort tal...

oui - ja

#!/usr/bin/perl

@time=localtime(time);
$week=getweek($time[7]);
printf(\"week:%s\\n\",$week);

sub getweek
{
    shift() if ref($_[0]);
    my($sec)=shift;
    return int($sec/7)+1;
}

du bruger localtime funktionen til at finde hvilken dag i året man er nået til... den fodrer du så til getweek funktionen, der så returnerer værdien...

THANX

ups... nu tænkte jeg lige over en ting... Er denne ALTID sikker... Der er noget med at der nogen gange er flere uger i året osv....

det var så lidt... en smule hurtig tænkning, var alt der skulle bruges...(jeg ved, jeg brude opsøge en læge... sådant noget er unormalt.. men det kommer heldigvis ikke så tit...:)

der er altid 52 uger i året.... så vidt jeg ved... men ja... den burde være ret sikker... den tæller jo som sådan bare dage siden årets start og dividerer med 7... så ja... hvis perls localtime-funktion er sikker... så er min getweek-funktion også...

hmm, jeg kigger lige på det

ps nogel år fx 2004 har 53 uger :)

preclean>det er algoritmen ligeglad med...:) den er snotdum... den aner ikke, hvad den laver.. den tæller bare uger siden årets start... den tænker ikke over, hvor mange uger det drejer sig om...

jeg var her kun for at snuse lidt til perl og kan ikke helt gennemskue algoritmen. så det var bare en oplysning til dig nu da det var noget du var i tvil om......... *s*

jo tak...:)

kan du ikke gennemskue algoritmen? spørg løs!