İki Tarih Arasındaki Farkı Label'e Yazdırma

[ZorBey_]

Merhaba
İyi Çalışmalar

TextBox1 Ve TextBox2 deki
İki Tarih Arasındaki Farkı Hesaplamak ve
Label1 e Yazdırmak İstiyorum

Label1 De
Örnek
Daha 100 Gün Var ( Label1 Yeşil Renk Olucak )
Dikkat Bugün Son Gün ( Label1 Kırmızı Renk Olucak )
İşlem Yapılalı 25 gün Oldu ( Label1 Turuncu Renk Olucak )

Bu Konuda Yardımınızı Rica Ediyorum
İyi Çalışmalar.

 

[ZorBey_]

Tabi Buradaki Gün Sayıları Değişken
Yani
Daha 100 Gün var olanlar Yeşil.
Daha 99 Gün var olanlar Yeşil.
Daha 98 Gün var olanlar Yeşil.
Daha 97 Gün var olanlar Yeşil.
Gibi Her Geçen Gün Sayı Değişiyor
TextBoxlardaki Tarihler Sabit
Örnek Olsun Diye
DTPicker Koymuştum.

 

[ZorBey_]

Merhaba
İyi Çalışmalar
Arkadaşlar Bu İşlemi Yapabilirmiyiz
Veya Bir Örnek Dosyanız Varmı Acaba
Yardımcı Olabilirmisiniz
İyi ÇAlışmalar.

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki kodları deneyiniz.

Private Sub DTPicker1_Change()
    TextBox1 = Format(DTPicker1.Value, "dd.mmmm.yyyy")
    
    If TextBox1 <> "" And TextBox2 <> "" Then
        Fark = CDate(TextBox2) - CDate(TextBox1)
        If Fark > 0 Then
            Label1.Caption = "Daha " & Fark & " gün var."
            Label1.BackColor = &HFF00&
        ElseIf Fark < 0 Then
            Label1.Caption = "İşlem yapılalı " & Abs(Fark) & " gün oldu."
            Label1.BackColor = &H80FF&
        Else
            Label1.Caption = "Dikkat bugün son gün!"
            Label1.BackColor = &HFF&
        End If
    End If
End Sub

Private Sub DTPicker2_Change()
    TextBox2 = Format(DTPicker2.Value, "dd.mmmm.yyyy")

    If TextBox1 <> "" And TextBox2 <> "" Then
        Fark = CDate(TextBox2) - CDate(TextBox1)
        If Fark > 0 Then
            Label1.Caption = "Daha " & Fark & " gün var."
            Label1.BackColor = &HFF00&
        ElseIf Fark < 0 Then
            Label1.Caption = "İşlem yapılalı " & Abs(Fark) & " gün oldu."
            Label1.BackColor = &H80FF&
        Else
            Label1.Caption = "Dikkat bugün son gün!"
            Label1.BackColor = &HFF&
        End If
    End If
End Sub

 

[ZorBey_]

Merhaba
Sayın
Korhan Ayhan
İyi Günler
İyi Çalışmalar
Yardımınız için Teşekkür
Ederim Sağolun.
Yalnız
DTPicker1 den Gün Seçiliyor
DTPicker2 den Gün seçilirken hata veriyor

Fark = CDate(TextBox2) - CDate(TextBox1)

Bu satır sarı oluyor
Rica Etsem Tekrar Bakabilirmisiniz
Sağolun Tekrar Teşekkür Ederim
İyi Çalışmalar.

 

[Korhan Ayhan]

Ben bir hata ile karşılaşmadım.

 

[ZorBey_]

Merhaba
Sayın
Korhan Ayhan
Resimdeki Gibi Bir Hata Alıyorum.

 

[ZorBey_]

İki Tarih Arasındaki Farkı Label'e Yazdırma Son

Merhaba
Sayın
Korhan Ayhan

'TextBox1 = Format(DTPicker1.Value, "dd.mmmm.yyyy") ' İptal Ettim
TextBox1 = DTPicker1.Value


'TextBox2 = Format(DTPicker2.Value, "dd.mmmm.yyyy")' İptal Ettim
TextBox2 = DTPicker2.Value

Bu Şekilde Hata Mesajı Almıyorum
Yardımınız için Çok Teşekkür Ederim
Ederim Sağolun
Allah Razı Olsun
İyi Çalışmalar.