Otomatik bu günün, bu haftanın, bu ayın tarihi

[a_self_lion]

Merhaba arkadaşlar

BASTAR as string
BITTAR as string


AND AaaDssTAR between '" + BASTAR + "' and '" + BASTAR + "' )

Yukarıdaki gibi başlangıç ve bitiş tarihlerini elimle şu format ta 2017-05-22 girerek SQL sorguları mı alıyordum.

Şimdi bana 9 buton yapıp
1 Bu Ay 1a Önceki Ay 1b Sonraki Ay
2 Bu Hafta 2a Önceki hafta 2b Sonraki Hafta
3 Bu Gün 3a Önceki Gün 3b Sonraki Gün

Bu butonlara basınca bastığım anki tarihi alıp buna göre bu ayı bugüne kadar
veya önceki ayı veya yukarıda ki bahsettiğim gibi tarihleri otomatik alıp sorgumu çalıştırabilir miyim?

Umarım anlaşılmışım dır.

Saygılarımla.

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki gibi deneyiniz.

Haftayı nasıl değerlendirdiğinizi bilemediğim için kod önermedim.

Takvime göre mi hafta istiyorsunuz?

Örnek;

Günün tarihi 07.06.2017 ise sonuç aşağıdaki gibi mi olmalıdır.

BASTAR = "2017-06-05"
BITTAR = "2017-06-11"

Sub BU_AY()
    Dim TARIH As Date, BASTAR As String, BITTAR As String
    TARIH = Date
    BASTAR = Format(DateSerial(Year(TARIH), Month(TARIH), 1), "yyyy-mm-dd")
    BITTAR = Format(DateSerial(Year(TARIH), Month(TARIH) + 1, 0), "yyyy-mm-dd")
End Sub

Sub ONCEKI_AY()
    Dim TARIH As Date, BASTAR As String, BITTAR As String
    TARIH = Date
    BASTAR = Format(DateSerial(Year(TARIH), Month(TARIH) - 1, 1), "yyyy-mm-dd")
    BITTAR = Format(DateSerial(Year(BASTAR), Month(BASTAR) + 1, 0), "yyyy-mm-dd")
End Sub

Sub SONRAKI_AY()
    Dim TARIH As Date, BASTAR As String, BITTAR As String
    TARIH = Date
    BASTAR = Format(DateSerial(Year(TARIH), Month(TARIH) + 1, 1), "yyyy-mm-dd")
    BITTAR = Format(DateSerial(Year(BASTAR), Month(BASTAR) + 1, 0), "yyyy-mm-dd")
End Sub

Sub BU_GUN()
    Dim TARIH As Date, BASTAR As String, BITTAR As String
    TARIH = Date
    BASTAR = Format(TARIH, "yyyy-mm-dd")
    BITTAR = Format(TARIH, "yyyy-mm-dd")
End Sub

Sub ONCEKI_GUN()
    Dim TARIH As Date, BASTAR As String, BITTAR As String
    TARIH = Date
    BASTAR = Format(TARIH - 1, "yyyy-mm-dd")
    BITTAR = Format(TARIH - 1, "yyyy-mm-dd")
End Sub

Sub SONRAKI_GUN()
    Dim TARIH As Date, BASTAR As String, BITTAR As String
    TARIH = Date
    BASTAR = Format(TARIH + 1, "yyyy-mm-dd")
    BITTAR = Format(TARIH + 1, "yyyy-mm-dd")
End Sub

 

[a_self_lion]

Çok teşekkür ederim Korhan bey kardeşim Allah razı olsun.
Haftayı sizin dediğiniz gibi değerlendireceğiz. Saygilarimla.