Antal veckor på en månad

ASP

5 svar · 3 788 visningar · startad av KoTTeN 9 maj 2003

KoTTeNMedlem sedan sep. 20011 722 inlägg

Frågan9 maj 2003 22:52#1

Finns det något enkelt sätt att få reda på hur många veckor det är i exempelvis maj?

cyprysMedlem sedan dec. 20003 563 inlägg

9 maj 2003 22:54#2

hmm. 4! :)

KoTTeNMedlem sedan sep. 20011 722 inlägg

9 maj 2003 23:23#3

Men 4 * 12 blir dock 48 och det går 52 veckor på ett år.

UlfTMedlem sedan maj 20018 027 inlägg

10 maj 2003 00:03#4

KoTTeN skrev:

Men 4 * 12 blir dock 48 och det går 52 veckor på ett år.

Så du vill ha ett decimaltal som anger exakt antal veckor? Då är det vanlig division som gäller: 31 / 7

Tyvärr känner jag inte till om det finns någon funktion som ger antalet dagar i en given månad, men det borde ju annars gå att ordna genom att helt enkelt lagra antalet dagar per månad i någon lista eller tolv variabler.

KoTTeNMedlem sedan sep. 20011 722 inlägg

11 maj 2003 21:15#5

tack UlfT
Lösningen blev med arrays:

	Dim Vecka, Manad, ArrayManad, ArrayAntVeckor
	ArrayManad = Array("ozon","januari","februari","mars","april","maj","juni","juli","augusti","september","oktober","november","december")
	ArrayAntVeckor = Array("ozon",5,9,14,18,22,27,31,35,40,44,48,52)
	Manad = 0
	Vecka = 0

	Do Until Manad > 11
	  Manad = Manad + 1
	  Response.Write ("<B>" & ArrayManad(Manad) & " ")	
	  Do Until Vecka => ArrayAntVeckor(Manad)
	    Vecka = Vecka  + 1
	    Response.Write(" " & Vecka
	  Loop
	Loop

Lord MoyneMedlem sedan jan. 2003165 inlägg

12 maj 2003 21:58#6

Fast jag forstar inte vitsen med ovanstaende kod. Du ar ju anda tvungen att plita in alla uppgifter? Det besta borde ju vara att ta reda pa veckonummret och veckodagen for den forsta och sista dagen i manaden.