bir sonraki ayın lk günü

[2bulent2]

meerhaba
rapora bir sonraki ayın ilk gününün tarihini nasıl yazdırabilirim?

 

[F1]

Düzeltme: Access soruymuş şimdi farkettim

 

[omerceri]

Örnek ekte

 

[2bulent2]

teşekkürler

 

[Taruz]

Merhaba..

Alternatif olarak DateSerial fonksiyonundan da faydalanabiliriz..

[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]

 

[Orion1]

Bende bir fonksiyon yazayım bari.

Function sonraki_ay(tarih As Date) As Date
    sonraki_ay = DateSerial(Year(tarih), Month(tarih) + 1, 1)
End Function

Kullanımı:

Sub test()
MsgBox sonraki_ay(Date)
End Sub