
izin_rapor takibi konusunda yardımlarınızı bekliyorum 4.mesajdaki anlatılan örnek gibi
Sub SonGün()
Dim i As Date
Dim x As Date
i = "15/03/2006" 'Örnek Tarih 3. ayın kaç çektiğini bulacağız
x = DateAdd("m", 1, i - (Day(i) - 1))-1
MsgBox x
End Sub