Tarih girildiğinde dönemi de yazsın

[excellcan]

Forumda emeği geçen herkese merhaba. Arkadaşlar Senenin aylarını dönemleştirdim. 21.01.2012-20.02.2012 , 21.02.2012-20.03.2012 ... diye devam ediyor.Derdim TextBox2 ye herhangi bir tarih yazdığımda A sütununda ait olduğu dönemi bulup Textbox1 e yazsın. İlgilenen arkadaşlara şimdiden teşekkürler.

ÖRNEK : TextBox2 ye 15.02.2012 yazdığımda TextBox1 e 21.01.2012-20.02.2012 yazsın.

 

[Levent Menteşoğlu]

Textbox2'ye aşağıdaki kodu yazarak denermisiniz.

Private Sub TextBox2_Change()
If IsDate(TextBox2) = False Then Exit Sub
If Day(TextBox2) >= 21 Then
ilktarih = DateSerial(Year(TextBox2), Month(TextBox2), 21)
sontarih = DateSerial(Year(TextBox2), Month(TextBox2) + 1, 20)
Else
ilktarih = DateSerial(Year(TextBox2), Month(TextBox2) - 1, 21)
sontarih = DateSerial(Year(TextBox2), Month(TextBox2), 20)
End If
TextBox1 = ilktarih & "-" & sontarih
End Sub

 

[excellcan]

Textbox2'ye aşağıdaki kodu yazarak denermisiniz.

Private Sub TextBox2_Change()
If IsDate(TextBox2) = False Then Exit Sub
If Day(TextBox2) >= 21 Then
ilktarih = DateSerial(Year(TextBox2), Month(TextBox2), 21)
sontarih = DateSerial(Year(TextBox2), Month(TextBox2) + 1, 20)
Else
ilktarih = DateSerial(Year(TextBox2), Month(TextBox2) - 1, 21)
sontarih = DateSerial(Year(TextBox2), Month(TextBox2), 20)
End If
TextBox1 = ilktarih & "-" & sontarih
End Sub

Levent hocam emeğiniz için teşekkür ederim. Harika olmuş. Dönem listesi yapmaya da gerek kalmamış. Tarihi 2010 girdim dönemleştirmeyi 2010 yılına göre yaptı. Bir kez daha teşekkürler , emeğinize sağlık.

 

[Levent Menteşoğlu]

Levent hocam emeğiniz için teşekkür ederim. Harika olmuş. Dönem listesi yapmaya da gerek kalmamış. Tarihi 2010 girdim dönemleştirmeyi 2010 yılına göre yaptı. Bir kez daha teşekkürler , emeğinize sağlık.

Rica ederim. Tüm tarihlerde doğrumu işlem yapıyor mutlaka kontrol ediniz.