Vatansever
Asistan
- Katılım
- 23 Ağustos 2007
- Mesajlar
- 405
- Reaksiyon puanı
- 1
- Puanları
- 18
Arkadaşlar istediğim şey elimde bir yıl var dgvTarih o yıl ramazan bayramı hangi tarihte olacak bunu bulmak istiyorum başaramadım mantığım şu programa bir referans veriyorum (18/6/2015) 2015'teki ramazan bayramının tarihi ondan sonra dgvTarih'teki yılın bundan küçükmü büyükmü kontrolu yapıyorum mesela 2017 ise 2 yıl büyük demek 18/6/2015 yılının yılına 2 yıl ekliyorum 18/6/2017 oluyor sonrada 2*10=20 yapıyorum ve 20 gün eksiltiyorum böylece 2017'deki ramazan bayramını bulmuş oluyorum tabi herşey teoride ama olmadı beceremedim yardım edermisiniz?
Kod:
Public Sub Ramazan()
Dim rmzn As Date = "18/6/2015" ' Bu referans bir ramazan bayramı tarihi
Dim dgvTarih As Date = Me.DataGridView1.Rows(0).Cells("tarih").Value.ToString() ' Burda bir tarih elde ediliyor mesela 2.11.2017 bu tarihin sadece yılını alıyorum ve bu yıl ramazan bayramı hangi trihe denk geliyor onu bulmak istiyorum
Dim rmzn1 As Date
Dim rmzn2 As Date
Dim yılgün As Integer
If dgvTarih.Year < 2015 Then
yılgün = 2015 - dgvTarih.Year
rmzn1 = rmzn.AddYears(yılgün)
yılgün = 10 * yılgün
rmzn2 = rmzn1.AddDays(yılgün)
MsgBox(rmzn2.ToString) ' Burda dgvTarih'den elde ettiğim yıl ramazan bayramı hangi güne geliyor onu bulmak istiyorum gün ay yıl olarak
Else
yılgün = dgvTarih.Year - 2015
rmzn1 = rmzn.AddYears(-yılgün)
yılgün = 10 * yılgün
rmzn1 = rmzn.AddDays(-yılgün)
rmzn2 = rmzn1.AddDays(-yılgün)
MsgBox(rmzn2.ToString)
End If
End Sub