Da nr settimana a range dei giorni compresi

[sylver65]

Dal momento che conosco il numero della settimana, vorrei capire come trovare il range dei giorni cha la costituiscono. Soprattutto trovare il primo giorno di questa settimana.

mi date qualche info?

'Funzione numero della settimana
Private Function WeekNumber(dteValue)
   '--- Monday is set as first day of week
   Dim lngDate
   Dim intWeek
   '--- If january 1. is later then thursday, january 1. is not in week 1
   If Not Weekday("01/01/" & Year(dteValue), vbMonday) > 4 Then
      intWeek = 1
   Else
      intWeek = 0
   End If
   '--- Sets long-value for january 1.
   lngDate = CLng(CDate("01/01/" & Year(dteValue)))
   '--- Finds the first monday of year
   lngDate = lngDate + (8 - Weekday("01/01/" & Year(dteValue), vbMonday))
   '--- Increases week by week until set date is passed
   While Not lngDate > CLng(CDate(dteValue))
      intWeek = intWeek + 1
      lngDate = lngDate + 7
   Wend
   '--- If the date set is not in week 1, this finds latest week previous year
   If intWeek = 0 Then
      intWeek = Week("31/12/" & Year(dteValue) - 1)
   End If
   WeekNumber = intWeek
End Function 

con questa funzione (non mia) carpisco il numero della settimana

[optime]

se per avere il n. settimana devi fornire una data, non fai prima ad avere il lunedi e la domenica a partire da quella data?

[sylver65]

non ho capito, ma forse mi sono spiegato male.
tu come faresti?

[Grambo]

Originariamente inviato da sylver65
Dal momento che conosco il numero della settimana, vorrei capire come trovare il range dei giorni cha la costituiscono. Soprattutto trovare il primo giorno di questa settimana.
....

voi trovare la data del lunedì di un X settimana dell'anno?
es. ora siamo nella settimana n°11 dell'anno e vuoi avere come risultato 15/03 ?

se così fosse guarda qua

[sylver65]

ok, fin qui ci siamo.
Ora il problema è questo:
devo far visualizzare a partire dalla data della 12 settimana dentro un campo testo:
esempio:
12^ settimana = 27/03/2010
13^ settimana = 03/04/2010

e così via fino alla 32 settimana.

come faccio?

[Grambo]

for i=12 to 32
nuova_data=DateAdd("ww", i, "01/01/2010")
response.write nuova_data %></br><%
next

m sn appena svegliato ed è sabato (ovvero cervello spento)

prova magari funziona =)

[sylver65]

grazie.
Sono riuscito con il ciclo for più o meno coem hai detto tu.

Adesso il problema sarebbe inserirlo dentro un do while per prendere le variabili dal database MySql.

facendo do while,,,
mio rec = rs("miorecord")
etc,,,,

poi inserisco il for delle date
Next

rs.MoveNext
Loop

ma così facendo si crea un caos.

Secondo te, coem è meglio fare?

[sylver65]

risolto.
Appema ripulisco il codice lo posto qui.
grazie a tutti

[cindy82]

Thanks for post. It’s really informative stuff.I really like to read.Hope to learn a lot and have a nice experience here! my best regards guys!