Confrontare 2 date .......

[marcopaolo79]

Probabilmente ne avrete parlato 10 mila volte ma io non sono stato capace di trovare aiuto....

ho questo codice:

DataInizio = "17/04/2011"
DataFine = "23/04/2011"
DataInizio = FormatDateTime(DataInizio, vbShortDate)
DataFine = FormatDateTime(DataFine, vbShortDate)
GiorniLavorativi = 0
Do While DataInizio < DataFine
DataControllo = Weekday(DataInizio, 2)
If DataControllo <> 6 or DataControllo <> 7 Then
GiorniLavorativi = GiorniLavorativi + 1
end if
DataInizio = DateAdd("d", 1, DataInizio)
loop
response.write(GiorniLavorativi)

praticamente il ciclo mi va in loop e mi dà errore....... perchè nn riesce a confrontare le 2 date.

Ma come si può fare?

tra l'altro se le stesse variabili le confronto con un if la cosa funziona, sembra che il while non lo riconosca invece.......

aiuto please

[optime]

prova ad usare CDate(variabile_data)

[marcopaolo79]

ho risolto così con un pò di "fantasia"......

DataInizio = "17/04/2011"
DataFine = "23/04/2011"
DataInizio = FormatDateTime(DataInizio, vbShortDate)
DataFine = FormatDateTime(DataFine, vbShortDate)
GiorniLavorativi = 0
Do While fineciclo = 0
If DataInizio = DataFine Then
fineciclo = 1
end if
DataControllo = Weekday(DataInizio, 2)
If DataControllo <> 6 or DataControllo <> 7 Then
GiorniLavorativi = GiorniLavorativi + 1
end if
DataInizio = DateAdd("d", 1, DataInizio)
DataFine = DateAdd("d", 0, DataFine)
loop
response.write(GiorniLavorativi)