Tarih formati hakkinda

[BYSERTTAS]

Degerli Ustadlar ekli dosyada yapamadığım (beceremediğim) bir konuda yardımlarınıza ihtiyacım var.
şöyle ki:Takvim den tarih seçtiğimde (TextBox4 ve TextBox5)
tarihleri 01.01.2023 seklinde atmasını ve TextBox7 ye iki tarih arasındaki toplam gün sayısını almak istiyorum.

 

[dEdE]

Merhaba,
FrmTakvim isimli UserFormunuzun koduna belirttiğim satırı eklemeniz yeterli olacaktır.

Private Sub lblTamam_Click()
    If UserForm1.takvim = 1 Then
        UserForm1.TextBox4 = LblSecim
        UserForm1.TextBox4 = Format(UserForm1.TextBox4, "dd/mm/yyyy")
    End If
    If UserForm1.takvim = 2 Then
        UserForm1.TextBox5 = LblSecim
        UserForm1.TextBox5 = Format(UserForm1.TextBox5, "dd/mm/yyyy")
    '-----------Aşağıdaki satırı ekleyiniz---------------
        UserForm1.TextBox7.Text = DateDiff("d", CDate(UserForm1.TextBox4.Text), CDate(UserForm1.TextBox5.Text))
    '----------------------------------------------------
    End If
    FrmTakvim.Hide
End Sub

 

[muratboz06]

İnceleyiniz.

 

[yanginci34]

Textbox5 in Change olayına aşağıdaki kodu ekleyip denermisiniz.

Private Sub TextBox5_Change()
If TextBox4 = "" Then Exit Sub
If TextBox5 = "" Then Exit Sub
TextBox7.Value = Format(CDate(TextBox5.Value) - CDate(TextBox4.Value), "#,##0") & " gün"

End Sub

 

[BYSERTTAS]

İnceleyiniz.

Üstadım öncelikle ilginize teşekkür ederim. Ancak yine olmadı ekran görüntüsünü paylaşıyorum. tarih alanları aralarında boşluk olarak çıkıyor. normalde 01.01.2023 seklinde olması gerekirken 01 01 2023 seklinde atıyor dolayısıyla günü de hesaplamıyor. ofis 365 kullanıyorum 32 bit yada bilgisayardan kaynaklı olabilirimi? birde Klavye dilinden kaynaklanır mi inceleyiniz yazan dosyanızı indirip denedim sonuç bu

 

[dEdE]

Merhaba,
Dener misiniz?

 

[BYSERTTAS]

Merhaba,
Dener misiniz?

malesef ayni hocam Tarihlerde gun ay yil arasinda bosluk var nokta olmayinca tarih olarak algilamiyor sanirim yada kod da sehven gun ay ve yil arasina fazladan bir bosluk konmus olabilir? Pardon Hocam simdi farkettim excell sayfasindada ayni sekilde tarih atiyor galiba sistem tarih formati yanlis bilgisayarda duzeltmeye calisacagim. kusura bakmayin yordum sizi hakkinizi helal edin,

 

[BYSERTTAS]

Çok Özür dilerim üstadım hata bendeymiş geç fark kettim bilgisayarın tarih bicimi yanlış ayarlanmış onu düzeltince her şey normale bindi. Lütfen hakkinizi helal edin zahmet verdim sizlere tekrar teşekkür ederim.