webForumDet fria alternativet

Antal dagar i månad

ASP

4 svar · 432 visningar · startad av SPiN

Medlem sedan mars 20007 896 inlägg
Frågan#1

Hmm... jag har suttit o försökt få fram antalet dagar i en månad, men inte lyckats. Finns det någon funktion som tar fram det, eller någon som har någon idé om hur man kan skriva en sådan?

/*
Redigerat
*/
Fixade till det med att använda en array... Men en funktion skulle vara ännu bättre, eftersom att man inte kan använda scriptet på ett skottår, då är man en dag kort :l

/*
*/

MVH / SPiN

------------------
SPiN, bjorne.w@telia.com

[Redigerat av SPiN den 04 dec 2000]

Medlem sedan juni 200032 967 inlägg
#2

du kan ju alltid skapa ett datum som är den första i en månad för att sedan dra bort en dag med dateadd(). då har du den sista dagen i månaden innan och alltså också längden på den månaden.

------------------
<A HREF="http://cartman.nu" TARGET=_blank>
that's what brian boitano would do!</A>

Medlem sedan mars 20007 896 inlägg
#3

Hmm... jag förstår inte riktigt hur du menar, skulle du vilja precisera dig lite?

Tack för svaret ivf, även om ja inte förstod :)

------------------
SPiN, bjorne.w@telia.com

Medlem sedan dec. 2000182 inlägg
#4

Hej

Har skrivít ett litet JavaScript som tar emot aktuell månad och sätter sedan antal dagar i en listbox beroende på vald månad.

Det funkar helt ok för mig, kan du inte göra ett liknande, eller måste det vara ASP?

Man skulle väl kunna skriva en Sub rutin i ASP som tar emot månaden och retunerar antal dagar.

Vad tror du? Har jag totalt missuppfattat?

Medlem sedan juni 2000690 inlägg
#5

Min gamla kalender använder det här:

Function GetDaysInMonth(iMonth, iYear)
	Select Case iMonth
		Case 1, 3, 5, 7, 8, 10, 12
			GetDaysInMonth = 31
		Case 4, 6, 9, 11
			GetDaysInMonth = 30
		Case 2
			If IsDate("Februari 29, " & iYear) Then
				GetDaysInMonth = 29
			Else
				GetDaysInMonth = 28
			End If
	End Select
End Function

Stoppa in månad och år i funktionen så får du antalet dagar. Året måste med pga. skottår.

------------------
MvH
/Bengan
www.bengan.com
"Your mouse has moved. Windows will now restart to accept the changes."

[Redigerat av Bengan den 09 dec 2000]

259 ms totalt · 4 externa anrop · v20260731065814-full.1dc6f849
123 ms — deklarationer (db)
0 ms — hämta statistik (cache)
133 ms — hämta tråd, inlägg och bilagor (db)
120 ms — ändringar (db)