/ Forside / Teknologi / Udvikling / ASP / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
ASP
#NavnPoint
smorch 9259
Harlekin 1866
molokyle 1040
Steffanst.. 758
gandalf 657
smilly 564
gibson 560
cumano 530
MouseKeep.. 480
10  Random 410
Kalender kludder
Fra : Ukendt


Dato : 19-04-04 16:39

Hej

Jeg har fået mig et problem med en kalender jeg har fundet på
www.viewsource.dk

Kalenderen indsætter selv datoerne for de forskellige måneder, men med
undtagelse af december går det galt. Den indsætter kun det antal dage,
som svarer nummeret på måneden.

' 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

Mit gæt er det er her det går galt, men hvad fejlen er ved jeg ikke.

Et link til den: http://www.frip.dk/mynix/kalender

Hele kalenderen kan hentes her
http://www.viewsource.dk/dwl.asp?ID=10&ident=asp

Nogen som kan komme med en løsning? Eller alternativt har en anden
kalender jeg kan bruge?


--
Med venlig hilsen
CS

cs at sleepy dot dk



 
 
Ukendt (19-04-2004)
Kommentar
Fra : Ukendt


Dato : 19-04-04 18:57

Hmm, går jo godt for mig. Nu kan den ikke finde databasen på pågældende
server. Virker fint på min IIS. Nogle ideer hvorfor?



"CS" <askmeforanaddress> skrev i en meddelelse
news:4083f27d$0$169$edfadb0f@dtext01.news.tele.dk...
> Hej
>
> Jeg har fået mig et problem med en kalender jeg har fundet på
> www.viewsource.dk
>
> Kalenderen indsætter selv datoerne for de forskellige måneder, men med
> undtagelse af december går det galt. Den indsætter kun det antal dage,
> som svarer nummeret på måneden.
>
> ' 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
>
> Mit gæt er det er her det går galt, men hvad fejlen er ved jeg ikke.
>
> Et link til den: http://www.frip.dk/mynix/kalender
>
> Hele kalenderen kan hentes her
> http://www.viewsource.dk/dwl.asp?ID=10&ident=asp
>
> Nogen som kan komme med en løsning? Eller alternativt har en anden
> kalender jeg kan bruge?
>
>
> --
> Med venlig hilsen
> CS
>
> cs at sleepy dot dk
>
>


Ukendt (19-04-2004)
Kommentar
Fra : Ukendt


Dato : 19-04-04 20:28

NÅ ikke flere forstyrrelser herfra. Løste sig selv det hele da jeg
skiftede fra en access 97 til 2000 database. Og som nybegynder ved jeg
ikk hvorfor


"CS" <askmeforanaddress> skrev i en meddelelse
news:4083f27d$0$169$edfadb0f@dtext01.news.tele.dk...
> Hej
>
> Jeg har fået mig et problem med en kalender jeg har fundet på
> www.viewsource.dk
>
> Kalenderen indsætter selv datoerne for de forskellige måneder, men med
> undtagelse af december går det galt. Den indsætter kun det antal dage,
> som svarer nummeret på måneden.
>
> ' 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
>
> Mit gæt er det er her det går galt, men hvad fejlen er ved jeg ikke.
>
> Et link til den: http://www.frip.dk/mynix/kalender
>
> Hele kalenderen kan hentes her
> http://www.viewsource.dk/dwl.asp?ID=10&ident=asp
>
> Nogen som kan komme med en løsning? Eller alternativt har en anden
> kalender jeg kan bruge?
>
>
> --
> Med venlig hilsen
> CS
>
> cs at sleepy dot dk
>
>


Søg
Reklame
Statistik
Spørgsmål : 177558
Tips : 31968
Nyheder : 719565
Indlæg : 6408929
Brugere : 218888

Månedens bedste
Årets bedste
Sidste års bedste