[ rribaric @ 16.11.2004. 16:02 ] @
Preko unbound polja trebao bi unijet mjesec.S tim da bi mi kod trebao odredit prvi i zadnji dan unesenog mjeseca!
Npr.Unesem 11 a program mi da dva datuma 01/11/04 i 30/11/04.
Dali to može i kako!
To mi treba za izradu plana loko vožnje!
[ Zidar @ 16.11.2004. 17:54 ] @
Code:

Function FirstDayOfMonth(intMonth As Integer) As Long
     FirstDayOfMonth = DateSerial(Year(Date), intMonth, 1)
End Function

Function LastDayOfMonth(intMonth As Integer) As Long
    LastDayOfMonth = FirstDayOfMonth(intMonth + 1) - 1
End Function
[ Zidar @ 16.11.2004. 17:56 ] @
Code:

Function FirstDayOfMonth(intMonth As Integer) As Long
     FirstDayOfMonth = DateSerial(Year(Date), intMonth, 1)
End Function

Function LastDayOfMonth(intMonth As Integer) As Long
    LastDayOfMonth = FirstDayOfMonth(intMonth + 1) - 1
End Function
[ rribaric @ 17.11.2004. 16:10 ] @
Ovaj kod je super!Radi!
Sad ću napravit kod tako da mi upiše u tablicu sve datume osim nedjelje i za te datume ću naknadno kroz formu unijeti podatke za relacije i kilometre!
Trebao bi za svaki mjesec dobit po datumima gdje je radnik bio!
Mislim da ću ostatak znmat napravit ako zapnem javit ću!
Hvala Zidar još jednom!