Volgende werkdag ingeven

[stefano]

Bestaat er een functie die de volgende werkdag geeft?

op dinsdag 21/02/2017 zou 22/02/2017

en

op vrijdag 24/02/2017 zou 27/02/2017 moeten verschijnen.

Kan dit ?

Ik wil dit gebruik in een code

Datum = InputBox("Datum van de levering", "Info voor certificaat", [COLOR="#FF0000"]Date + 1[/COLOR])

 

[Ginger]

Maak je toch zelf? Even in een lusje bepalen of "morgen" dan weekday 6 of 7 is...
Zo nee, lus verlaten en je hebt je geldige volgende werkdag.

 

[gast0660]

Probeer het eens zo

Sub dotchie()
Dim dotchie
Dim stefano
dotchie = dotchiewerkdag(Date)
stefano = InputBox("Datum van de levering", "Info voor certificaat", dotchie)
End Sub
Function dotchiewerkdag(dtTemp As Date)
dotchiewerkdag = dtTemp + IIf(Weekday(dtTemp) > 5, 9 - Weekday(dtTemp), 1)
End Function

 

[HSV]

Sub hsv()
Dim datum As Date
 datum = InputBox("Datum van de levering", "Info voor certificaat")
 MsgBox Format(Application.WorkDay(datum, 1), "dd-mm-yyyy")
End Sub

Of:

Sub hsv()
MsgBox Format(Application.WorkDay(Application.InputBox("Datum van de levering", "Info voor certificaat", , , , , , 1), 1), "dd-mm-yyyy")
End Sub

 

[stefano]

Ik bedoel eerder als argument bij het ingeven, niet er na, zie code hieronder:

    While Not CorrectDate
        datum = InputBox("Datum van de levering", "Info voor certificaat", [COLOR="#FF0000"]Application.WorkDay(datum, 1), "dd-mm-yyyy")[/COLOR]
        If datum = "" Then Exit Sub
        If Not IsDate(datum) Then
            MsgBox "Datum is niet correct, geef in als 15/01/2017 !", vbCritical, "Fout!"
        Else
            CorrectDate = True
        End If
    Wend

De voorgestelde datum komt in de messagebox, waarna die eventueel kan overschreven worden.

 

[HSV]

En wat is de vraag nu; of is het zo opgelost?

 

[stefano]

Oeps, vergeet ik er weer de foutmelding bij te zetten.

Fout 13, typen komen niet met elkaar overeen

       Dim Datum as Date
       Dim CorrectDate as Boolean
       Datum = InputBox("Datum van de levering", "Info voor certificaat", Application.WorkDay(datum, 1), "dd-mm-yyyy")

 

[HSV]

Dim Datum As String
Dim CorrectDate As Boolean
While Not CorrectDate
    Datum = InputBox("Datum van de levering", "Info voor certificaat", Format(Application.WorkDay(Date, 1), "dd\/mm\/yyyy"))
        If Datum = "" Then Exit Sub
        If Not IsDate(Datum) Then
            MsgBox "Datum is niet correct, geef in als 15/01/2017 !", vbCritical, "Fout!"
        Else
            CorrectDate = True
        End If
    Wend

 

[stefano]

Dank je wel !