Userformda iki tarih arası bulma

[6729626]

Userformun içinde tebox1.de "01.01.2007 pazartesi" formatlı tarih var texbox ikidede "02.01.2007 salı" formatlı, arasındaki farkı texbox 3'e nasıl aktarırım. texboxtaki tarihler texboxa tıklayınca geliyor.

 

[Levent Menteşoğlu]

Farkı ne tür bir işlem sonucu textbox3 e yazdırmak istiyorsunuz yani bir commandbuttona basıncamı yazılmalı. Birde tarihlerin textboxlara tıklayınca gelmesinden kastınız nedir.

 

[6729626]

Her iki texboxdada calendar nesnesi tanımlı texboxa tıklayınca calendar çıkıyor ve tarih seçiyorum tarihleri seçtikden sonra hiç bir butona basmadan farkı bulması ve texboz3 e atması.

 

[Levent Menteşoğlu]

textboxlara aşağıdakğ kodları yazarak deneyin.

Private Sub TextBox1_Change()
If IsDate(TextBox1) = True And IsDate(TextBox2) = True Then TextBox3 = CLng(CDate(TextBox2)) - CLng(CDate(TextBox1))
End Sub
 
Private Sub TextBox2_Change()
TextBox1_Change
End Sub

 

[6729626]

Çalışmadı Sn.leventm aşağıdaki kodları kullanıyorum. Burda bagtar-montar=fark texboxuna atacak. İlginiz için teşekkürler.
Private Sub Calendar1_Click()
bagtar.Value = Format(Calendar1.Value, "dd.mm.yyyy dddd")
Calendar1.Visible = False
End Sub
Private Sub Calendar2_Click()
montar.Value = Format(Calendar2.Value, "dd.mm.yyyy dddd")
Calendar2.Visible = False
End Sub

Private Sub bagtar_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Calendar1.Visible = True
Calendar1.Value = Date
bagtar.Value = Format(Calendar1.Value, "dd.mm.yyyy dddd")
End Sub
Private Sub montar_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Calendar2.Visible = True
Calendar2.Value = Date
montar.Value = Format(Calendar2.Value, "dd.mm.yyyy dddd")
End Sub
'Private Sub UserForm_Initialize()
'Set ciro = Worksheets("Ciro") son = ciro.Range("A65530").End(3).Row + 1 '
Calendar1.Visible = False
Calendar2.Visible = False
End Sub
Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Calendar1.Visible = False
Calendar2.Visible = False
End Sub