Tarih Ayın ilk Günü

[53rize]

ilgili alanın varsayılan yerine hangi formülü yazmalıyımki o alana herhangi bir günün tarihini girdiğimde, o ayın başlangıcını tarih olarak girsin.
Örnek: 26.01.2009 tarih girdiğimde 01.01.2009 olsun

 

[modalı]

Ayın ilk gününü heaplamak için aşağıdaki fonksiyonu kullanabilirsiniz.

Function FirstOfMonth(InputDate As Date)
'  Return a date that is the first day of the month of the date passed
Dim D As Integer, M As Integer, Y As Integer

    If IsNull(InputDate) Then
        FirstOfMonth = Null
    Else
        D = Day(InputDate)
        M = Month(InputDate)
        Y = Year(InputDate)
        FirstOfMonth = DateSerial(Y, M, 1)
    End If
End Function

İyi çalışmalar

 

[Erdem Akdemir]

=(a1+1)-gün(a1)

 

[modalı]

=(a1+1)-gün(a1)

Soru maalesef access excel değil.:frown:

 

[Erdem Akdemir]

Soru maalesef access excel değil.:frown:

bende yeni fark ettim

kusuruma bakmayın :tongue:

 

[53rize]

Başaramadım kod nere uygulayacağım. Örnek tablo gönderiyorum. birde aynı şekilde bitiş tarih kısmı ayın sonunu göstersin teşekkür ederim.

 

[modalı]

Sayın 53rize,

Bende 2007 yok. 2003 olarak eklerseniz yardımcı olurum.

İyi çalışmalar

 

[53rize]

farklı 2003 olarak kayıt ettim. Açamazssanızda örnek olarak 2 adet giriş metin kutusu var. birisi başlangıç tarih girişi diğeride, bitiş tarih kutusu kodunuzu buna göre buraya uygularsanız sevinirim. teşekkürler.

 

[modalı]

Sayın 53 rize,

Yanlız, Varsayılan değer işi bozuyor, çünkü metin kutusuna odaklandığınız an bugünkü tarih oluyor. Onları kaldırdım, fonksiyonları bir modüle ekledim. ve metin kutularının güncelleştirme olayı sonrasında fonksiyonları çağırdım.

İyi çalışmalar

 

[Taruz]

Merhaba..

Varsayılanda kullanacaksanız, bu şekilde yazın..

Ayın İlk günü için..

=DateSerial(Year(Date());Month(Date());1)

Ayın son günü için.

=DateSerial(Year(Date());Month(Date())+1;0)