---

Jeg har denne funktion til at udregne sidste dag i måneden i forbindelse
med en kalender:

'------------------------------------------------------------
' This function finds the last date of the given month
'------------------------------------------------------------
Function GetLastDay(intMonthNum, intYearNum)
Dim dNextStart
If CInt(intMonthNum) = 12 Then
dNextStart = CDate( "1/1/" & intYearNum)
Else
dNextStart = CDate(intMonthNum + 1 & "/1/" & intYearNum)
End If
GetLastDay = Day(dNextStart - 1)
End Function

Det går også fint nok så længe jeg ikk kører med dansk tid, hvor jeg ikke
får sidste dato i måneden, men nummeret på aktuelle dato

Gætter på det har noget med date formatterne at gøre, hvor funktionen
passer til MM-DD-ÅÅ og ikke DD-MM-ÅÅ.

Nogen forslag?


--
Med venlig hilsen
CS

cs at sleepy dot dk

---

CS skrev:


> dNextStart = CDate( "1/1/" & intYearNum)

Mangler der ikke et +1 på intYearNum?

> dNextStart = CDate(intMonthNum + 1 & "/1/" & intYearNum)

Prøv at bruge dateserial i stedet:

   dNextStart = DateSerial(intYearNum, intMonthNum + 1, 1)


Den funktion er uafhængig af datoindstillingerne på serveren.
--
Jens Gyldenkærne Clausen
Svar venligst under det du citerer, og citer kun det der er
nødvendigt for at forstå dit svar i sammenhængen. Se hvorfor og
hvordan på http://usenet.dk/netikette/citatteknik.html

---

"Jens Gyldenkærne Clausen" <jens@gyros.invalid> skrev i en meddelelse

> > dNextStart = CDate( "1/1/" & intYearNum)
>
> Mangler der ikke et +1 på intYearNum?

Hmm ser ud til at virke fint. http://www.frip.dk/cssite/calendar_v1.asp

> > dNextStart = CDate(intMonthNum + 1 & "/1/" & intYearNum)
>
> Prøv at bruge dateserial i stedet:
>
> dNextStart = DateSerial(intYearNum, intMonthNum + 1, 1)
>
> Den funktion er uafhængig af datoindstillingerne på serveren.

Var lige hvad der skulle til ja. Mange tak for hjælpen


> Jens Gyldenkærne Clausen
> Svar venligst under det du citerer, og citer kun det der er
> nødvendigt for at forstå dit svar i sammenhængen. Se hvorfor og
> hvordan på http://usenet.dk/netikette/citatteknik.html

---

CS skrev:

>> Mangler der ikke et +1 på intYearNum?
>
> Hmm ser ud til at virke fint.

Nå ja, du skal jo også kun have datotallet ud - og ikke årstallet.
Og da der altid er 31 dage i december, er det ligegyldigt om der
bruges intYearNum eller intYearNum + 1.

Nu er der næppe større performanceproblemer med funktionen som den
ser ud nu, men strengt taget er det jo kun nødvendigt at benytte
datoberegninger hvis intMonthNum = 2 (altså i februar) - for alle
andre måneder kan sidste dag beregnes alene ud fra månedstallet.

--
Jens Gyldenkærne Clausen
Svar venligst under det du citerer, og citer kun det der er
nødvendigt for at forstå dit svar i sammenhængen. Se hvorfor og
hvordan på http://usenet.dk/netikette/citatteknik.html

---

"Jens Gyldenkærne Clausen" <jens@gyros.invalid> skrev i en meddelelse
>
> Nå ja, du skal jo også kun have datotallet ud - og ikke årstallet.
> Og da der altid er 31 dage i december, er det ligegyldigt om der
> bruges intYearNum eller intYearNum + 1.
>
> Nu er der næppe større performanceproblemer med funktionen som den
> ser ud nu, men strengt taget er det jo kun nødvendigt at benytte
> datoberegninger hvis intMonthNum = 2 (altså i februar) - for alle
> andre måneder kan sidste dag beregnes alene ud fra månedstallet.

Jep okay, skal nok være korrekt. Dog tror jeg at jeg lader det stå som
det gør nu med mit meget begrænsede kendskab til asp.

Tak for hjælpen

> --
> Jens Gyldenkærne Clausen
> Svar venligst under det du citerer, og citer kun det der er
> nødvendigt for at forstå dit svar i sammenhængen. Se hvorfor og
> hvordan på http://usenet.dk/netikette/citatteknik.html