dato perioder

dato1 = DateSerial(aar, maaned, 1)
dato2 = DateAdd("m", 1, dato1)
DaysInMonth = DateDiff("d", dato1, dato2)

feks:
dato1 = DateSerial(2005, 3, 1)
dato2 = DateAdd("m", 1, dato1)
DaysInMonth = DateDiff("d", dato1, dato2)
vil give
DaysInMonth = 31

Du kan selvfølgelig blot nøjes med DateDiff imellem 1marts og 1april hvis du har dem liggende som dato format
På den måde vil du tage højde for korte og lange måneder samt skudår

Du kan altid komme frem til den sidste dag i måneden ved at lægge en måned til, for herefter at trække dagen fra:

Slutdato = DateAdd("m",1,dato)-Day(dato)

Ved nærmere eftertanke er du vist nødt til at gøre det i to steps:

Slutdato=DateAdd("m",1,dato)
Slutdato=Slutdato-Day(Slutdato)

Det er fordi, hvis man nu har en dato med flere dage end den efterfølgende, f.eks. 30-1-2004, lægger én måned til, vil resultatet være den 28-2-2004, hvorefter vi trækker 30 dage fra, hvilket vil give et forkert resultat. Derfor er vi nødt til at arbejde med et mellemresultat.
Hvis man er sikker på, at udgangsdatoen er f.eks. den 1. i måneden hver gang, er det ikke noget man behøver at bekymre sig om. Så kan det gøres som i det oprindelige eksempel.

Som jeg forstår spørgsmålet ønsker du en liste af måneder delt i to over et helt år
Så det er jo blot at se på forskellen hver måned igennem i den løkke du i forvejen har

Lige for at samle det for dig, gadebarn:
<select>
<%
dato = (year(date()) & "-" & month(date()) & "-1")
for i = 0 to 12
    dato1 = dateadd("m", i, dato)
    dato2 = DateAdd("m", 1, dato1)
    antaldage = datediff("d", dato1, dato2)
%>
    <option>1 - 14/<%=month(dato1)%> - <%=year(dato1)%></option>
    <option>15 - <%=antaldage%>/<%=month(dato1)%> - <%=year(dato1)%></option>
<%next%>
</select>

gadebarnet >> kommet videre?`, lukketid ? ;o)

sorry... har været syg.