Tid beregning?

Brug disse 2 funktioner til det:

Public Function Arbejdsdag(Dato As Date) As Boolean
    If Weekday(Dato) = 7 Or Weekday(Dato) = 1 Then
        Arbejdsdag = False
    Else
        Arbejdsdag = True
    End If
End Function

Public Function FindAntalArbejdsdage(Startdato As Date, Slutdato As Date) As Long
    Dim tmpDato As Date
    Dim n As Integer
    tmpDato = Startdato
    Do Until tmpDato >= Slutdato
        If Arbejdsdag(tmpDato) Then
            n = n + 1
        End If
        tmpDato = tmpDato + 1
    Loop
    FindAntalArbejdsdage = n
End Function

Hmm... ok!

Hvordan gør jeg så lige det?

Jeg har 3 Textboxe:

txt_AktuelDato - txt_RegistreringsDato = txt_ArbejdsDage

Private Sub Command1_Click()

FindAntalArbejdsdage(txt_RegistreringsDato.Text, txt_AktuelDato.Text) As Long

End Sub

hvilket program arbejder du i?

Er det programmet Visual Basic? Access? Excel? Word? Andet?

Du lægger i hvert fald funktionerne i et modul.

Herefter kan du bruge denne sætning:

Private Sub Command1_Click
    txt_ArbejdsDage = FindAntalArbejdsdage(txt_RegistreringsDato, txt_AktuelDato)
End Sub

Det er VB 6.0...

Den får en type Mismatch....

...hvor?

Her:
txt_ArbejdsDage.Text = FindArbejdsDage.FindAntalArbejdsdage(txt_RegistreringsDato.Text, txt_AktuelDato.Text)

Måske er det fordi den betragter tekstboksene som tekst i stedet for datoer.

Hvad sker der, vhis du skriver således:

txt_ArbejdsDage.Text = FindArbejdsDage.FindAntalArbejdsdage(#2005-01-01#, date)

Ja... det virker fint nok...

Kan man så ikke lave en variable af de to textboxe??

jo eller prøve denne:

txt_ArbejdsDage.Text = FindAntalArbejdsdage(cvdate(txt_RegistreringsDato.Text), cvdate(txt_AktuelDato.Text))

Har lavet denne her:
Dim Registrering As String
Dim Aktuel As String

Registrering = Replace(txt_RegistreringsDato.Text, ".", "-")
Aktuel = Replace(txt_AktuelDato.Text, ".", "-")

txt_ArbejdsDage.Text = FindAntalArbejdsdage(CVDate(Registrering), CVDate(Aktuel))

Virker den så?

Jepper...
Men de ville være smart hvis den kunne finde minus dage! Altås hvis nu datoerne er vendt omvendt!

hmm, ja men det er lidt svært sådan som jeg har skruet den sammen nu....hmmm....

Prøv denne:

Public Function FindAntalArbejdsdage(Startdato As Date, Slutdato As Date) As Long
    Dim tmpStart As Date
    Dim tmpSlut As Date
    Dim n As Integer
    If Startdato > Slutdato Then
        tmpStart = Slutdato
        tmpSlut = Startdato
    Else
        tmpStart = Startdato
        tmpSlut = Slutdato
    End If
    Do Until tmpStart >= tmpSlut
        If Arbejdsdag(tmpStart) Then
            n = n + 1
        End If
        tmpStart = tmpStart + 1
    Loop
    If Startdato <= Slutdato Then
        FindAntalArbejdsdage = n
    Else
        FindAntalArbejdsdage = -n
    End If
End Function

Hold da kæft hvor det spiller MAX!!! *GG*

Tak tak!

selv tak :o)