Törölt nick Creative Commons License 2011.07.22 0 0 15532

    Dim a As Long
    a = Evaluate("WEEKNUM(TODAY(),1)")

Előzmény: wawabagus (15530)