numero settimane mese

[mr_chiocco]

ciao a tutti, devo fare uno sxcript visualizzi l'elenco dei mesi e la durata di ogni mese in settimane partendo dal giorno corrente e indicando le settimane del mese che mancano.

dicembre - 2
gennaio - 5
febbraio - 4
marzo - 4
aprile - 4
maggio - 5
ecc...

come posso fare... ho provato a fare qualcosa:

			  <%
			  conta = 0
			  mese = Month(date)
			  anno = Year(date)
			  giorno = Day(date)
			  DataInizio = CDate(giorno &"/"& mese &"/"& anno)
			  do while conta < 24
  			  DataFine = DateAdd("m", 1, DataInizio)
			  DataFine = DateAdd("d",giorno-(giorno*2)+1,DataFine)
  			  settimane = DateDiff("ww", DataInizio, DataFine)
			  %>
				<td><%= settimane %></td>
			  <%
			  conta = conta + settimane
			  DataInizio = DataFine
			  giorno = "1"
			  loop
			  %>

[Santino83_02]

non ho mica capito cosa vuoi fare....ma tu vuoi sapere solo quante settimane ci sono per mese o, partendo da oggi, quante settimane mancano prima di arrivare ad un mese (tipo: quante settimane mancano da oggi a febbraio)? boh

[mr_chiocco]

no, voglio sapere quante settimane mancano da oggi alla fine del mese corrente e quante settimane durano i mesi successivi,

per es:

oggi è il 20 dicembre

dicembre dura (ancora) 2 settimane
gennaio dura 5 settimane
febbraio dura 4 settimane
ecc...

e, se una settimana è a cavallo fra un mese e l' altro deve essere calcolata nel mese in cui ha più giorni.

es:

se la settimana n° 20 ha il lunedì e il martedì in febbraio e gli altri giorni in marzo deve essere calcolata come se fosse una settimana di marzo perchè la maggior parte dei suoi giorni è in marzo.

come faccio?