Ciao a tutti
Ho questa funzione per calcolare i giorni lavorativi

Dim GiornoSettimana As Integer
GiorniLavorativi = 0
While DataInizio <= DataFine
GiornoSettimana = Format(DataInizio, "w")
If (GiornoSettimana <> vbSaturday) And (GiornoSettimana <> vbSunday) Then GiorniLavorativi = GiorniLavorativi + 1
DataInizio = DateAdd("d", 1, DataInizio)
End While
***
gli passo 2 date per i confronto:
Response.Write(CDate(ldtinizio.Text) & " " & CDate(dtFine.Text))
L'errore è:
Error: Formato della stringa di input non corretto.
L'eccezione che scaturisce l'errore è questo:
GiornoSettimana = Format(DataInizio, "w")