Dagar i månad

vassego!

testa får du göra själv...

strMonth="2"
strYear="2001"
antaldagar = cint(right(dateAdd("d",-1, cdate(strYear & "-" & right("0" & cint(strMonth)+1, 2) & "-01")),2))

Funkade inte.

Och en fråga. Varför använder du CInt och inte CLng?

huh? det funkar klockrent hos mig...
vad får du för fel hos dig?

tja, mest för att antal dagar, månader eller år inte har så stor risk att överstiga 32768, som är den övre gränsen för int i vb/vbscript.

Jag skriver så här och får en etta.

<%
strMonth="2"
strYear="2001"
antaldagar = cint(right(dateAdd("d",-1, cdate(strYear & "-" & right("0" & cint(strMonth)+1, 2) & "-01")),2))
Response.Write antaldagar
%>

...funkar kanon hos mig.

Kör IIS 5

<%
strMonth="2"
strYear="2001"
antaldagar = cint(right(dateAdd("d",-1, cdate(strYear & "-" & right("0" & cint(strMonth)+1, 2) & "-01")),2))
Response.Write antaldagar
%>

[Redigerat av ironhead den 03 maj 2001]

Jag skriver precis så!

Kan du inte prova det här:

DatumFore = "1998-02-01"
DatumEfter = "1998-03-01"

Dagar = DateDiff("d", DatumFore, DatumEfter)
Dagar = Dagar - 1

Är dock inte så haj på datum men du kan ju prova.

Hur ska man då skriva?
Jag vill bara skriva en 2a och 2001 som i @nders exempel.

Frågan är om du ens behöver minska dagar med 1?

dim ar, manad
ar = 1998
manad = 2

DatumFore = ar & "-" & manad & "-01"
DatumEfter = ar & "-" & manad + 1 & "-01"

Dagar = DateDiff("d", DatumFore, DatumEfter)

Jag tror det ska funka.

Men hur blir det då med årsskiftet?

Vilket årsskifte?

Det enda jag vet är att DateDiff tar ut hur många dagar det är mellan två datum.

Så för att få hur många dagar februari 1998 har så tar du bara datumet 1998-02-01 (1 februari 1998) mot 1998-03-01 (1 mars 1998) så får du ut antalet dagar som månaden var med DateDiff.

[Redigerat av Janspeed den 03 maj 2001]

Men det blir lite konstigt att få fram skillnaden mellan 2000-12-01 och 2000-13-01.

Det fixar du enkelt med en if-sats

dim ar, manad
ar = 1998
manad = 2

DatumFore = ar & "-" & manad & "-01"

If manad = 12 Then
DatumEfter = ar & "-" & 1 & "-01"
Else
DatumEfter = ar & "-" & manad + 1 & "-01"
End If

Dagar = DateDiff("d", DatumFore, DatumEfter)

Sorry glömde året också.

dim ar, manad
ar = 1998
manad = 2

DatumFore = ar & "-" & manad & "-01"

If manad = 12 Then
DatumEfter = ar + 1 & "-" & 1 & "-01"
Else
DatumEfter = ar & "-" & manad + 1 & "-01"
End If

Dagar = DateDiff("d", DatumFore, DatumEfter)

i så fall så ställer jag mig upp och högljutt skriker dateadd!

dim ar, manad
ar = 1998
manad = 2

DatumFore = cdate(ar & "-" & right("0" & manad,2) & "-01"
DatumEfter = dateadd("m",1,DatumFore)

Dagar = DateDiff("d", DatumFore, DatumEfter)

Jag håller med om att det är mycket effektivare på DatumEfter men frågan är om du behöver CDate på DatumFore?

hmm... jag ser att jag har missat 0:an helt.

jag måste köra cdate på datumfore för att få använda den i dateadd, tror jag.

Vad är det för fel på den här koden nu då?

<%
statyear = 1998
statmonth = 12

CDate(statyear & "-" & right("0" & statmonth,2) & "-01")
DateAdd("m", 1, datebefore)

daysinmonth = DateDiff("d", datebefore, dateafter)
Response.Write daysinmonth
%>

Error Type:
Microsoft VBScript compilation (0x800A0414)
Cannot use parentheses when calling a Sub
/erik_Local/IABStatistic/ASP Page1.asp, line 21, column 25
DateAdd("m",1,datebefore)
------------------------^