Funktion som retunerer antal ugedage?

Public Function AntalUgedage(Start As Date, Slut As Date, Ugedag As Byte) As Long
    Dim Dato As Date
    Dim antal As Long
    Dato = Start
    Do
        If Weekday(Dato) = Ugedag Then
            antal = antal + 1
        End If
        Dato = Dato + 1
    Loop Until Dato >= Slut
    AntalUgedage = antal
End Function

Function getugedag(d1 As Date, d2 As Date, ugedag As Integer) As Integer
    Dim dTemp As Date
    Dim counter As Integer
    counter = 0
    dTemp = d1
    Do While dTemp <= d2
        If Weekday(dTemp, vbMonday) = ugedag Then
            counter = counter + 1
        End If
       
        dTemp = dTemp + 1
    Loop
    getugedag = counter
End Function

Sub testUgedag()
    'antal onsdage fra 1. jan til 1. maj
    MsgBox getugedag(#1/1/2003#, #5/1/2003#, 3)
End Sub

Hej Thomas - jeg har også lavet een :o)

Niels

:o)

Kun for sjov: Hvor søndage er der gået siden Jesu fødsel?

Hehe
/Thomas

Den er lidt svær, ikk'?

Så prøv bare med 1-6-1066 (ca vikingetidens afslutning)!

Får du en fejl?

Hvor mange dage havde de i et år dengang og hvornår trådte vores kallender i kraft ;o)

vikingetidens afslutning > Det kan jeg huske .o)

Tja...:o)

Min pointe var bare, at din funktion får svært ved at regne med startdatoer før 04-02-1375

Og det har man jo tit brug for ;o)

1/1 år 100 giver 99299 søndage

Nih-> haha, du har vist rettet lidt i koden, hva'?


Hej Mugs :o)
Er du så gammel?

OG

24/12 1900 til 1/1 2000 giver 5166 søndage

Niels

Kun en lille smule - kiggede lidt på din :)

Thomas > Mjaaaa, det snerper i hvert fald der hen ad

Mugs-> LOL :o)
Jeg kender det...jeg har samme følelse!