data dal numero di settimana

[ragepunk]

Ciao a tutti, vorrei sapere se è possibile sapere la data di inizio e di fine dato dal numero di settimana ...

Esempio questa è la settimana N° 40
e io dovrei estrapolare 26/09/2004 - 03/10/2004

esiste una conversione (come per trovare il numero della settimana)
oppure bisogna inventarsi un sistema ???
oppure ... ??

[optime]

va inventata... adatta questa

Sub WeekOfYear(xWeek, xYear, BegDay, EndDay)

   Dim monday, offset
   
   offset = Format("01/01/" & xYear, "ww", vbMonday, vbFirstFourDays)
   monday = "01/01/" & xYear
   Do
      monday = DateAdd("d", 1, monday)
      If Weekday(monday, vbMonday) = vbMonday Then Exit Do
   Loop
   monday = DateAdd("d", -1, monday)
      
   BegDay = DateAdd("ww", xWeek - 1 - offset, monday)
   EndDay = DateAdd("d", 6, begDay)

End Sub

[ragepunk]

wooo ...

di preciso che fa sta sub ??
ma soprattutto come si richiama ??

Ho provato a provarla ma non riesco a capire come si richiama :\


thanx

[optime]

passi il numero della settimana (xWeek), l'anno (xYear) e ti riporta il primo (BegDate) e l'ultimo (EndDate) giorno della settimana

[SuperMariano81]

Ciao!
con che funzione trovate il numero della settimana?
qesuto potrebbe tornarmi utile...

grasie

[ragepunk]

si si quello l'avevo capito

però non ricordavo proprio il codice... ho guardato su mie robe vecchie e questo dovrebbe essere giusto

Settimana e anno sono delle variabili

 <% Call WeekOfYear(Settimana, anno, BegDay, EndDay) %>

peccato riporti il seguente errore

Microsoft VBScript runtime error '800a000d' 

Type mismatch: 'Format' 

/LiveShow/home.asp, line 10

[ragepunk]

Per Supermariano81

il numero della settimana lo trovi con questo codicillino

DatePart("ww",date())

[SuperMariano81]

Grazie!
L'ho provato e funziona ma mi dice che questa è la settimana 40, non dovrebbe essere la 39 (come dice il mio calendario)? :master:

[ragepunk]

mmm ... sinceramente non ho fatto nessun controllo :\

io mi fidavo :°D

ghghgh

[SuperMariano81]

Beh tranquillo, do' un occhiata con VB 6.0 che dice poi ti dico, li esiste un altra funzione che ad ASP non piace!