sve ovisi sta hoces.
Matematicki ti je ovako
od 20 do 1 imas 19 -6=13
6-subote i nedjelje.
E sad ako kazmo od 1- 20 i kazemo sa prvim i i dvdesteim onda imamo 14 kako si ti napisao.
Mozes iskoristiti isrti kod samo malo drugacije
Evo:
Code:
Function BrojDana(Datum1 As Date, Datum2 As Date) As Integer
'BROJ DANA BEZ SUBOTE I NEDJELJE
Dim D1 As Date, D2 As Date, Dan As Integer
If Datum1 > Datum2 Then
D1 = Datum2
D2 = Datum1
Else
D1 = Datum1
D2 = Datum2
End If
Do While D2 > D1
Dan = WeekDay(D1)
If Dan > 1 And Dan < 7 Then
BrojDana = BrojDana + 1
End If
D1 = D1 + 1
Loop
End Function
Ako uzmes i ono sto ti je sloj napisao a nebi trebao to zanemariti onda ispada da je najbolje da imas tabelu u koju ces popisati sve neradne dane.
Onda se napravi procedura koja ce voditi racuna koji su dani neradni.
zxz