tarih problemi

[musculus]

Sub hj()
Dim tar As Date

tar = [b2].Value
ek1 = Day(tar) + 9
ek2 = Month(tar) + 1
ek3 = Year(tar)
Range("b5").Value = Format(ek1 & ek2 & ek3, "dd.mm.yyyy")
MsgBox ek1 & " " & ek2 & " " & ek3
MsgBox Format(ek1 & ek2 & ek3, "dd.mm.yyyy")
End Sub

k2:k25 sutunundan b2'e veri doğrulama ile tarih seçiyorum
başka sayfada bu seçilen ay ve bir sonraki ayın ilk 10 günü arasında bir kontrol yapmam gerekiyor.
henüz yapamadığım b2 ' de tarihi seçince (örneğin mart 2010) bana 10.nisan.2010 tarihini vermesi ki ben de bu aralıkta işlem yapabileyim.
yukarıdaki kodlarda teorik olarak benim dediğimi yapması gerek ama gel gör ki acaip bir tarih çıkıyor.

 

[Necdet]

Merhaba,

Sub hj()
Range("b5").Value = DateSerial(Year([b2]), Month([b2]) + 1,10)
End Sub

 

[musculus]

Teşekkür ederim Necdet Hocam ellerine bilgine sağlık