CMD/BAT fil - forskellige hændelse afhængig af lige/Ulige UGENUMM

CMD/BAT lyder ret håbløst til det.

Hvorfor ikke bruge VBS ? Jeg kan ikke forestille mig en Windows idag uden mulighed
for VBS.

Hvis vi snakker brand nyt (2008), så er der jo også PowerShell, men ...

Til 'nød' må *.VBS gerne bruges, men det skal på en eller anden måde 'kaldes' fra en *.CMD/BAT fil da jeg skal bygge noget mere på derfra...

PS: Skal helst også virke på Wintendo'98 *S*

Function WeekNumber(year, mon, day)
    Dim a, y, m, JD, d4, L, d1
    a = (14 - mon) \ 12
    y = year + 4800 - a
    m = mon + 12 * a - 3
    JD = day + (153 * m + 2) \ 5 + 365 * y + y \ 4 - y \ 100 + y \ 400 - 32045
    d4 = (((JD + 31741 - JD Mod 7) Mod 146097) Mod 36524) Mod 1461
    L = d4 \ 1460
    d1 = ((d4 - L) Mod 365) + L
    WeekNumber = d1 \ 7 + 1
End Function


today = Date()
d = Day(today)
m = Month(today)
y = Year(today)
w = WeekNumber(y,m,d)
If w Mod 2 = 0 Then
    WScript.Echo "Vi er i en lige uge"
Else
    WScript.Echo "Vi er i en ulige uge"
End If

er ihverfald en start !

Modificeret:

Function WeekNumber(year, mon, day)
    Dim a, y, m, JD, d4, L, d1
    a = (14 - mon) \ 12
    y = year + 4800 - a
    m = mon + 12 * a - 3
    JD = day + (153 * m + 2) \ 5 + 365 * y + y \ 4 - y \ 100 + y \ 400 - 32045
    d4 = (((JD + 31741 - JD Mod 7) Mod 146097) Mod 36524) Mod 1461
    L = d4 \ 1460
    d1 = ((d4 - L) Mod 365) + L
    WeekNumber = d1 \ 7 + 1
End Function


today = Date()
d = Day(today)
m = Month(today)
y = Year(today)
w = WeekNumber(y,m,d)
Set shell=CreateObject("WScript.Shell")
If w Mod 2 = 0 Then
    WScript.Echo "Vi er i en lige uge"
    shell.Run "week.bat lige"
Else
    WScript.Echo "Vi er i en ulige uge"
    shell.Run "week.bat ulige"
End If
Set shell = Nothing

DatePart("ww", Now)

burde gøre det samme som arne's WeekNumber

@ frand:
giver den ikke forkert uge ved uge 52/53/1 ligesom f.eks i excel

netop !

Ser lovende ud - checker i løbet af Weekenden ...

(Skal lige checke hvordan den gør i næste uge *S*)

<arne_v>: Under alle omstændigheder - læg [svar]...

svar

Det virker fin. Den bygger jeg videre på ...