[ASP] Week van het jaar op halen?

[Verwijderd]

Hoe kan ik in asp (dûh) een week ophalen? Dus bijvoorbeeld (klopt niet hoor!) dat 26 september 2002, week 43 is.... Hoe kan dat? ik heb gezocht en bijna gevonden, maar hij staat er nie bij;

http://www.codeave.com/asp/date_time.asp

[Soultaker]

Lees de FAQ, gebruik Google, etcetera.

[Verwijderd]

Ja jemig man, echt wel gezocht, maar niet gevonden, ben ik dan zo'n non-googler of zo...? Neej!

[Verwijderd]

Non Googler denk ik

code:

<%
    WeekNumber = DatePart("ww", Date, 2, vbFirstFourDays)
    Response.Write(WeekNumber)
%>

Url: http://www.aspin.com/

[ Voor 0% gewijzigd door Verwijderd op 08-09-2002 00:17 . Reden: url ]

[Kix@$$]

en als dat niet werkt (oude versie van script engine bijvoorbeeld, zit tie nog nie in):

ASP.NET Visual Basic:

<%
Public Function WeekNumber(InDate)
    Dim DayNo
    Dim StartDays
    Dim StopDays
    Dim StartDay
    Dim StopDay
    Dim VNumber
    Dim ThurFlag
    
    DayNo = Days(InDate)
    StartDay = Weekday(DateSerial(Year(InDate), 1, 1)) - 1
    StopDay = Weekday(DateSerial(Year(InDate), 12, 31)) - 1
    
    ' Number of days belonging to first calendar week
    StartDays = 7 - (StartDay - 1)
    
    ' Number of days belonging to last calendar week
    StopDays = 7 - (StopDay - 1)
    
    ' Test to see if the year will have 53 weeks or not
    If StartDay = 4 Or StopDay = 4 Then
        ThurFlag = True
    Else
        ThurFlag = False
    End If
    
    VNumber = (DayNo - StartDays - 4) / 7
    
    ' If first week has 4 or more days, it will be calendar week 1
    ' If first week has less than 4 days, it will belong to last year's
    ' last calendar week
    If StartDays >= 4 Then
        WeekNumber = Fix(VNumber) + 2
    Else
        WeekNumber = Fix(VNumber) + 1
    End If
    
    ' Handle years whose last days will belong to coming year's first
    ' calendar week
    If WeekNumber > 52 And Not ThurFlag Then
        WeekNumber = 1
    End If
    
    ' Handle years whose first days will belong to the last year's
    ' last calendar week
    If WeekNumber = 0 Then
        WeekNumber = WeekNumber(DateSerial(Year(InDate) - 1, 12, 31))
    End If
End Function

Public Function Days(DayNo)
    Days = DayNo - DateSerial(Year(DayNo), 1, 0)
End Function
%>

[Verwijderd]

Mijn excusses....... ik heb echt mijn best gedaan

[Verwijderd]

vraagje, hoe doe jij dat, dat code posten met nrs. er in, ik begrijp die code faq nie helemaal daar voor

ps: de 1e code werkte... bedankt daar voor

[Kix@$$]

Verwijderd schreef op 08 september 2002 @ 00:19:
vraagje, hoe doe jij dat, dat code posten met nrs. er in, ik begrijp die code faq nie helemaal daar voor

ps: de 1e code werkte... bedankt daar voor

als je naar die post gaat, en je drukt op de quote knop, kun je zien hoe ik dat doe:

[ code=ASP]
blaat
[/ code]

=

ASP.NET Visual Basic:

blaat

[Verwijderd]

keej dankje

[Soultaker]

Verwijderd schreef op 08 september 2002 @ 00:13:
Ja jemig man, echt wel gezocht, maar niet gevonden

Tja, als je niet vermeldt in je bericht waar je op hebt gezocht, wat je hebt gevonden en wat je al hebt geprobeerd, dan ga ik er vanuit dat je niet hebt gezocht en nog niets hebt geprobeerd.

Dat staat ook in de FAQ trouwens.

[Verwijderd]

Ik ben niet zo'n FAQ typje