DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
[COLOR=#008000]=[/COLOR][COLOR=#0600ff]DateSerial[/COLOR][COLOR=#000000]([/COLOR][COLOR=#0600ff]Year[/COLOR][COLOR=#000000]([/COLOR][COLOR=#0600ff]Date[/COLOR][COLOR=#000000]([/COLOR][COLOR=#000000])[/COLOR][COLOR=#000000])[/COLOR];Month[COLOR=#000000]([/COLOR][COLOR=#0600ff]Date[/COLOR][COLOR=#000000]([/COLOR][COLOR=#000000])[/COLOR][COLOR=#000000])[/COLOR][COLOR=#008000]+[/COLOR][COLOR=#7d2252]1[/COLOR];[COLOR=#7d2252]1[/COLOR][COLOR=#000000])[/COLOR]
Function sonraki_ay(tarih As Date) As Date
sonraki_ay = DateSerial(Year(tarih), Month(tarih) + 1, 1)
End Function
Sub test()
MsgBox sonraki_ay(Date)
End Sub