İki tarih arasındaki farkı gün olarak hesaplama

[gezgin-49]

Sayın üstadlarım ekte gönderdiğim dosyada;
1-textbox1 ve 2 ye tarih gireceğim için çıkış ve varış tarihi üzerine tıklayınca takvimin görüntülenmesini ve takvim üzende hangi tarihe tıklarsam o tarihin textbox1 ve 2 ye yazılmasını, textbox 1 ve 2 ye manuel girişin yasaklanmasını
2-textbox1 ve textbox2 ye girilen tarihlerin farkını SADECE GÜN olarak hesaplayarak textbox3 e yazması,
3-Aylar kısmında tüm ayları, yıllar kısmında ise 2011 ila 2020 yııllarını göstermesini, istiyorum, ilginiz ve yardımlarınız için şimdiden teşekkür eder, saygılar sunarım.

 

[Korhan Ayhan]

Selamlar,

Ekteki örnek dosyayı incelermisiniz.

Kendiniz uyarlamak isterseniz aşağıdaki işlemleri takip ediniz.

Formunuzdaki tüm kodları silin.
Formunuza bir adet LABEL ekleyin. Ben eklediğimde "Label7" nesnesi oluştu. Eğer orjinal çalışmanızda farklı bir isimde oluşursa kod içindeki "Label7" ifadelerini sizde oluşan isimle değiştirin. Yoksa hatalı sonuç alırsınız.
Bu nesneyi formunuzun uygun bir köşesine yerleştirin.

Aşağıdaki kodu formunuza uygulayın.

Private Sub Calendar1_Click()
    Me.Controls(Label7.Caption) = Format(Me.Calendar1, "dd.mm.yyyy")
    Me.Calendar1.Visible = False
End Sub
 
Private Sub TextBox1_Change()
    If TextBox1 <> "" And TextBox2 <> "" Then
        TextBox3 = Format(CDbl(CDate(TextBox2)) - CDbl(CDate(TextBox1)), "#,##0")
    End If
End Sub
 
Private Sub TextBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    Label7.Caption = "TextBox1"
    Me.Calendar1.Visible = True
End Sub
 
Private Sub TextBox2_Change()
    If TextBox1 <> "" And TextBox2 <> "" Then
        TextBox3 = Format(CDbl(CDate(TextBox2)) - CDbl(CDate(TextBox1)), "#,##0")
    End If
End Sub
 
Private Sub TextBox2_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    Label7.Caption = "TextBox2"
    Me.Calendar1.Visible = True
End Sub
 
Private Sub UserForm_Initialize()
    Label7.Caption = ""
    Label7.Visible = False
    Me.Calendar1.Visible = False
    
    For X = 1 To 12
        ComboBox1.AddItem Format(DateSerial(Year(Date), X, 1), "mmmm")
    Next
        
    For X = 2011 To 2020
        ComboBox2.AddItem X
    Next
End Sub

 

[gezgin-49]

Sayın üstadım Korhan Ayhan, siz bir harikasınız, Allah sizden razı olsun, iki cihanda sizi Aziz etsin, dar gün göstermesin. saygılar.

 

[nicosian]

Bır turlu ben yapamadım, hazır calısan bır vba varmı ???

 

[nicosian]

bu konuya bir ustad bakma sansi varmi acaba??