[Yardım]  İki ayrı textboxa girilen tarih farkını label1'e hesaplatma

Programınızda alanları adlandırmada kullanacağınız etiket nesnesi.

İki ayrı textboxa girilen tarih farkını label1'e hesaplatma

İleti#1)  beyfendi » 26 Ekm 2020 17:01

Merhaba üstadlarım,

yıllık izin çalışması projemde iki tane tarih girdiğim Textbox1 ve Textbox2 var bu iki Textbox'a tarihleri girdiğim an label1 e bu iki tarih arasındaki gün sayısını hesaplamasını yaptırmak istiyorum. yaptığım araştırmalarda hep excel sayfasınaki bir hücreye hesaplatılmış ben ise iki Textbox'a girilen tarihlerin farkını gün olarak label'e hesaplamasını yaptırmak.

bu konuda rica etsem üstadlarım yardımcı olabilir misiniz.

Ayrıca Textbox2 ye girilen tarih Textbox1 den küçükse uyarı mesajı versin bunu nasıl yapabilirim.
Kullanıcı avatarı
beyfendi
Siteye Alışmış
 
Adı Soyadı:Ramazan KARAKAYA
Kayıt: 22 Ağu 2011 11:41
Konum: Kuzey
Meslek: Muhasebe
Yaş: 40
İleti: 125
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: kuzey

Cevap: İki ayrı textboxa girilen tarih farkını label1'e hesa

İleti#2)  okutkan » 26 Ekm 2020 18:51

Kod: Tümünü seç
gunfark.Caption = Int((CDate(tarih1) - CDate(tarih2)))
Kullanıcı avatarı
okutkan
Yeni Başlamış
 
Kayıt: 27 May 2017 02:45
Meslek: pol. mem.
Yaş: 28
İleti: 99
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: DENİZLİ

Cevap: İki ayrı textboxa girilen tarih farkını label1'e hesa

İleti#3)  okutkan » 26 Ekm 2020 19:00

Kod: Tümünü seç
If Not IsDate(Tarih1) Or Not IsDate(Tarih2) Then Exit Sub
If CDate(Tarih1) > CDate(Tarih2) Then
gunfark.Caption = Int((CDate(Tarih1) - CDate(Tarih2)))
Else
MsgBox "tarih sıralaması yanlış"
End If


2 adet textbox
1 adet label
1 adet buton
Verdiğim kodu butonun içine yaz.
Textbox daki veriler tarih içermiyorsa işlem yapmaz. Tarih sıralaması yanlışsa 'tarih sıralaması yanlış' mesajı verir.
Kullanıcı avatarı
okutkan
Yeni Başlamış
 
Kayıt: 27 May 2017 02:45
Meslek: pol. mem.
Yaş: 28
İleti: 99
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: DENİZLİ

Cevap: İki ayrı textboxa girilen tarih farkını label1'e hesa

İleti#4)  feraz » 26 Ekm 2020 22:30

Kod: Tümünü seç
On Error GoTo hata
MsgBox DateDiff("d", CDate(Me.TextBox1.Value), CDate(Me.TextBox2.Value)) * 1
Exit Sub
hata:
MsgBox "Hatali tarih girildi", vbCritical, "Hata"
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 17:36
Konum: Almanya
Meslek: İşçi
Yaş: 41
İleti: 6489
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Cevap: İki ayrı textboxa girilen tarih farkını label1'e hesa

İleti#5)  feraz » 26 Ekm 2020 23:14

Bundada hepsi var tarih formatı vs...
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 17:36
Konum: Almanya
Meslek: İşçi
Yaş: 41
İleti: 6489
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: Cevap: İki ayrı textboxa girilen tarih farkını label1

İleti#6)  feraz » 26 Ekm 2020 23:15

feraz yazdı:Bundada hepsi var tarih formatı vs...

Resim
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 17:36
Konum: Almanya
Meslek: İşçi
Yaş: 41
İleti: 6489
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: Cevap: Cevap: İki ayrı textboxa girilen tarih farkını

İleti#7)  okutkan » 26 Ekm 2020 23:54

feraz yazdı:
feraz yazdı:Bundada hepsi var tarih formatı vs...

Resim

Sayın feraz, bu excel dosyasının içindeki kodların kullanım şekillerini yazabilir misiniz?
Mesela tarih ayırıcılar için nokta yerine "/" "," gibi karakterler girildiğinde bunları noktaya çevirmesi için kod var. Diğer kodların işlevini söyleyebilirseniz bunları ileride kullanmak için not etmek istiyorum.
Kullanıcı avatarı
okutkan
Yeni Başlamış
 
Kayıt: 27 May 2017 02:45
Meslek: pol. mem.
Yaş: 28
İleti: 99
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: DENİZLİ

Cevap: İki ayrı textboxa girilen tarih farkını label1'e hesa

İleti#8)  feraz » 27 Ekm 2020 00:09

Merhaba abey.

Unutmazsam müsait olunca açıklarım inşAllah.
Zaten kod arşivimde vardı önceden bulup geliştirmiştim buna uyarladım.

Dediğiniz gibi / bunu tarih kısmına yazınca noktaya çeviriyordu.
Virgülü çevirdiğini hatırlamıyorum bakmam gerek.
Virgül olay belki harf girişini engelleme kodunda olabilir.
Hangi kod sub olduğunu buraya eklerseniz mobildende açıklayabilirim.
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 17:36
Konum: Almanya
Meslek: İşçi
Yaş: 41
İleti: 6489
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: İki ayrı textboxa girilen tarih farkını label1'e hesa

İleti#9)  feraz » 27 Ekm 2020 08:45

Karmaşık olan kodların biraz açıklamasını yaptım yanına.Aslında alttaki ilk iki değiştirme koduna gerek olmayabilir kendim için yazmıştım tercihe kalmış.
Anlamadığınız yerler varsa sorabilirsiniz.

.Value = Replace(.Value, " ", ".") '/ bunu . olarak degistirir.

.Value = Replace(.Value, "/", ".") ', bunu . olarak degistirir.

f Len(tarih(0)) = 1 Then tarih(0) = "0" & tarih(0) ' tarih(0) demek tarih dizisinin ilk indeksi

If Len(tarih(1)) = 1 Then tarih(1) = "0" & tarih(1) ' tarih(1) demek tarih dizisinin ikinci indeksi

deger = tarih(0) & "." & tarih(1) & "." & tarih(2) ' tarih(3) demek tarih dizisinin ücüncü indeksi

If Not deger Like "##.##.####" Then 'Format bu sekildeyse # sayi icin

trh = DateSerial(tarih(2), tarih(1), 1) 'textboxa girilen ilk tarih bulunur

eom = Day(Application.WorksheetFunction.EoMonth(trh, 0)) 'textboxa girilen tarihin son günü bulunur ,kac cekiyorsa en fazla o günü verir
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 17:36
Konum: Almanya
Meslek: İşçi
Yaş: 41
İleti: 6489
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: İki ayrı textboxa girilen tarih farkını label1'e hesa

İleti#10)  okutkan » 27 Ekm 2020 11:39

Ben şu şekilde sormuştum; bu mesajınızda her satırı tek tek açıklamışsınız. Sizin paylaştığınız excel dosyasında bu şekilde üç dört çeşit komut vardı. Bu komutların ne işe yaradığını öğrenmek istemiştim. Aşağıda örnek vereyim: "bu komut satırlarının tümü, tarih verisindeki ayraçların yanlış kullanıldığında bunları noktaya çevirir" gibi kısa şekilde açıklamanız yeterli..
Kullanıcı avatarı
okutkan
Yeni Başlamış
 
Kayıt: 27 May 2017 02:45
Meslek: pol. mem.
Yaş: 28
İleti: 99
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: DENİZLİ

Cevap: Cevap: İki ayrı textboxa girilen tarih farkını label1

İleti#11)  beyfendi » 27 Ekm 2020 13:48

Üstad öncelikle ilgi ve alakanızdan dolayı teşekkür ederim.
Bu vermiş olduğunuz kod grubunu butona eklemek yerine direk label'e eklesem tarihleri girdiğim an label'e hesaplama yatırabilir miyim..

okutkan yazdı:
Kod: Tümünü seç
If Not IsDate(Tarih1) Or Not IsDate(Tarih2) Then Exit Sub
If CDate(Tarih1) > CDate(Tarih2) Then
gunfark.Caption = Int((CDate(Tarih1) - CDate(Tarih2)))
Else
MsgBox "tarih sıralaması yanlış"
End If


2 adet textbox
1 adet label
1 adet buton
Verdiğim kodu butonun içine yaz.
Textbox daki veriler tarih içermiyorsa işlem yapmaz. Tarih sıralaması yanlışsa 'tarih sıralaması yanlış' mesajı verir.
Kullanıcı avatarı
beyfendi
Siteye Alışmış
 
Adı Soyadı:Ramazan KARAKAYA
Kayıt: 22 Ağu 2011 11:41
Konum: Kuzey
Meslek: Muhasebe
Yaş: 40
İleti: 125
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: kuzey

Cevap: İki ayrı textboxa girilen tarih farkını label1'e hesa

İleti#12)  Miraç CAN » 27 Ekm 2020 14:45

Label'e otomatik sonuç göndermek istiyorsanız TextBox_Change veya TextBox_Exit gibi olaylara yazabilirsiniz.
Kullanıcı avatarı
Miraç CAN
Site Dostu
 
Kayıt: 26 Arl 2016 19:07
Meslek: Harita/Ölçme
Yaş: 39
İleti: 803
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Amasya & Adana

Cevap: Cevap: İki ayrı textboxa girilen tarih farkını label1

İleti#13)  feraz » 27 Ekm 2020 15:07

okutkan yazdı:Ben şu şekilde sormuştum; bu mesajınızda her satırı tek tek açıklamışsınız. Sizin paylaştığınız excel dosyasında bu şekilde üç dört çeşit komut vardı. Bu komutların ne işe yaradığını öğrenmek istemiştim. Aşağıda örnek vereyim: "bu komut satırlarının tümü, tarih verisindeki ayraçların yanlış kullanıldığında bunları noktaya çevirir" gibi kısa şekilde açıklamanız yeterli..

Kodların tamamını ekliyorum.
B
/ ve noktayı keypress içine aldım.
Kısaca şöyle anlatayım amacı.
Function dogrumuTarih(tarihler As MSForms.TextBox) As Boolean burası ile her iki tarihin kontrolü yapılıyor.Zaten () içindeki yerli textbox olarak tanımladım.Esasen function yerine her textboxuu beforupdate koduna ayrı atrı yapılabilirdi lakin kosa olsun diye function ekledim.
Private Sub TextBox2_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) ise sadece rakam ve nokta olayı girilsin diye.Tabii / ve , girilirse otomatik noktaya çeviriyor.

Normalde soruyun soran için çözüm sadece Me.Label1.Caption = DateDiff("d", CDate(Me.TextBox1.Value), CDate(Me.TextBox2.Value)) * 1 bu kod satırı lakin ben fantaziye kaçtım abey.

Kod: Tümünü seç
Private Sub CommandButton1_Click()
    Me.Label1.Caption = ""
    If dogrumuTarih(Me.TextBox1) = False Then
        GoTo son
    End If
    If dogrumuTarih(Me.TextBox2) = False Then
        GoTo son
    End If
    If CLng(CDate(Me.TextBox1.Value)) > CLng(CDate(Me.TextBox2.Value)) Then
    MsgBox "ilk tarih büyük olamaz...", vbCritical, "Hata"
        Exit Sub
    End If
    Me.Label1.Caption = DateDiff("d", CDate(Me.TextBox1.Value), CDate(Me.TextBox2.Value)) * 1
son:
End Sub


Kod: Tümünü seç
Function dogrumuTarih(tarihler As MSForms.TextBox) As Boolean
    Dim tarih As Variant, trh As Date, eom As Integer, deger As String
    dogrumuTarih = False
    On Error GoTo son
    With tarihler
       If .Value = "" Then GoTo enson
           tarih = Split(.Value, ".")
           If Len(tarih(0)) = 1 Then tarih(0) = "0" & tarih(0) ' tarih(0) demek tarih dizisinin ilk indeksi
           If Len(tarih(1)) = 1 Then tarih(1) = "0" & tarih(1) ' tarih(1) demek tarih dizisinin ikinci indeksi
           deger = tarih(0) & "." & tarih(1) & "." & tarih(2) ' tarih(3) demek tarih dizisinin ücüncü indeksi
           If Not deger Like "##.##.####" Then 'Format bu sekildeyse # sayi icin
               MsgBox "Tarih bilgisi ""gg.aa.yyyy"" şeklinde girilmelidir.", vbCritical, "HATA"
               .SetFocus
               GoTo var
           Else
               trh = DateSerial(tarih(2), tarih(1), 1) 'textboxa girilen ilk tarih bulunur
               eom = Day(Application.WorksheetFunction.EoMonth(trh, 0)) 'textboxa girilen tarihin son günü bulunur ,kac cekiyorsa en fazla o günü verir
               dogrumuTarih = True
               If tarih(0) > eom Then
                   GoTo son
                   .SetFocus
               End If
               If tarih(1) > 12 Then
                   GoTo son
                   .SetFocus
              End If
           End If
var:
    eom = Empty: trh = Empty: deger = Empty: Erase tarih
Exit Function
son:
      .SetFocus
      dogrumuTarih = False
      hataMesaj
      Cancel = True
    Exit Function
enson:
   End With
End Function


Sub hataMesaj()
MsgBox "Hatali Tarih...", vbCritical, "Hata"
End Sub

Kod: Tümünü seç
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
   With Me.TextBox1
    Select Case KeyAscii
        Case 44, 47
        .Value = Replace(.Value, ",", ".")
        .Value = Replace(.Value, "/", ".")
        ' virgülü nokta ile değiştir./ bunu . yapar
        ' 44 virgül'ün, 46 nokta'nın ASCII kodu
        KeyAscii = 46
        Case 46 To 57 '/ ile rakam ve nokta varsa
        'basılan tuş nokta veya sayıysa
        'Tuş kodunda bir değişiklik yapma
        Case Else
        .SetFocus
        MsgBox ("Sayi yada nokta giriniz!!!!"), vbCritical
       
        'Diğer her tuş basımını iptal et
        KeyAscii = 0
    End Select
    End With
End Sub

Kod: Tümünü seç
Private Sub TextBox2_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
   With Me.TextBox2
    Select Case KeyAscii
        Case 44, 7
        .Value = Replace(.Value, ",", ".")
        .Value = Replace(.Value, "/", ".")
         ' virgülü nokta ile değiştir./ bunu . yapar
        ' 44 virgül'ün, 46 nokta'nın ASCII kodu
        KeyAscii = 46
        Case 46 To 57 '/ ile rakam ve nokta varsa
        'basılan tuş nokta veya sayıysa
        'Tuş kodunda bir değişiklik yapma
        Case Else
        .SetFocus
        MsgBox ("Sayi yada nokta giriniz!!!!"), vbCritical
       
        'Diğer her tuş basımını iptal et
        KeyAscii = 0
    End Select
    End With
End Sub
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 17:36
Konum: Almanya
Meslek: İşçi
Yaş: 41
İleti: 6489
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: İki ayrı textboxa girilen tarih farkını label1'e hesa

İleti#14)  okutkan » 27 Ekm 2020 22:50

Yanıtınız için Teşekkür ederim.
Kullanıcı avatarı
okutkan
Yeni Başlamış
 
Kayıt: 27 May 2017 02:45
Meslek: pol. mem.
Yaş: 28
İleti: 99
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: DENİZLİ

Cevap: Cevap: İki ayrı textboxa girilen tarih farkını label1

İleti#15)  feraz » 28 Ekm 2020 03:43

okutkan yazdı:Yanıtınız için Teşekkür ederim.

Rica ederim abey.
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 17:36
Konum: Almanya
Meslek: İşçi
Yaş: 41
İleti: 6489
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: Cevap: Cevap: İki ayrı textboxa girilen tarih farkını

İleti#16)  beyfendi » 28 Ekm 2020 07:47

feraz yazdı:
okutkan yazdı:Yanıtınız için Teşekkür ederim.

Rica ederim abey.


Ben text.box1 ve textbox2 de tarih formatı için aşağıdaki kod grubunu kullandım ama,

Kod: Tümünü seç
rivate Sub YIK1_BaslangıcT_Change()
Dim sDate As String
On Error GoTo Bitir
sDate = YIK1_BaslangıcT.Text
If sDate = "" Then Exit Sub
If Not Right(sDate, 1) Like "[0-9]" Then
sDate = Left(sDate, Len(sDate) - 1)
YIK1_BaslangıcT.Text = sDate
End If
If Len(sDate) = 6 Then
sDate = Format(DateSerial( _
"20" & Right(sDate, 2), _
Mid(sDate, 3, 2), _
Left(sDate, 2) _
), "dd.mm.yy")
YIK1_BaslangıcT.Text = sDate
End If
Bitir:
End Sub
Kullanıcı avatarı
beyfendi
Siteye Alışmış
 
Adı Soyadı:Ramazan KARAKAYA
Kayıt: 22 Ağu 2011 11:41
Konum: Kuzey
Meslek: Muhasebe
Yaş: 40
İleti: 125
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: kuzey

Cevap: İki ayrı textboxa girilen tarih farkını label1'e hesa

İleti#17)  feraz » 28 Ekm 2020 13:05

Bizler bazen boşuna yırtınıyoruz yardımcı olmak için.
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 17:36
Konum: Almanya
Meslek: İşçi
Yaş: 41
İleti: 6489
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: Cevap: İki ayrı textboxa girilen tarih farkını label1

İleti#18)  feraz » 28 Ekm 2020 13:07

feraz yazdı:Bizler bazen boşuna yırtınıyoruz yardımcı olmak için.

Yanlış kişilere tabii
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 17:36
Konum: Almanya
Meslek: İşçi
Yaş: 41
İleti: 6489
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: Cevap: Cevap: İki ayrı textboxa girilen tarih farkını

İleti#19)  beyfendi » 28 Ekm 2020 14:56

beyfendi yazdı:Üstad öncelikle ilgi ve alakanızdan dolayı teşekkür ederim.
Bu vermiş olduğunuz kod grubunu butona eklemek yerine direk label'e eklesem tarihleri girdiğim an label'e hesaplama yatırabilir miyim..

okutkan yazdı:
Kod: Tümünü seç
If Not IsDate(Tarih1) Or Not IsDate(Tarih2) Then Exit Sub
If CDate(Tarih1) > CDate(Tarih2) Then
gunfark.Caption = Int((CDate(Tarih1) - CDate(Tarih2)))
Else
MsgBox "tarih sıralaması yanlış"
End If


2 adet textbox
1 adet label
1 adet buton
Verdiğim kodu butonun içine yaz.
Textbox daki veriler tarih içermiyorsa işlem yapmaz. Tarih sıralaması yanlışsa 'tarih sıralaması yanlış' mesajı verir.



Üstad yukarıda vermiş olduğunuz kodu butona değil de aşağıdaki gibi değişiklik yapıp direk Label1'e ekledim ama işlem yapmadı yani kod çalışmadı, ben textbox1'e ilk tarihi ve textbox2'ye bitiş tarihi girdiğim an başlangıç ve bitiş tarihi arasındaki günü sayıp label1'e direk yazsın yani buton falan kullanmadan textbox1 ve 2'ye verileri girdiğim an direk Label1'e hesaplayıp yazsın.

örneğin ; (textbox1) 01.10.2020 - (textbox2) 10.10.2020 = (Label1) 10 Gün

sizin kodu bu şekilde değiştirip Label1'e ekledim,

Kod: Tümünü seç
Private Sub Label_YIKanuniYi_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Not IsDate(YIK2_BitisT.Value) Or Not IsDate(YIK1_BaslangıcT.Value) Then Exit Sub
If CDate(YIK2_BitisT.Value) > CDate(YIK1_BaslangıcT.Value) Then
gunfark.Caption = Int((CDate(YIK2_BitisT.Value) - CDate(YIK1_BaslangıcT.Value)))
Else
MsgBox "tarih sıralaması yanlış"
End If
End Sub


Sizin vermiş olduğunuz koddan hariç birde şöyle bir kod buldum ama buda olmadı,

Kod: Tümünü seç
Private Sub Label_YIKanuniYi_Exit(ByVal Cancel As MSForms.ReturnBoolean)
YIK1_BaslangıcT.Value = Format(YIK1_BaslangıcT.Value, "dd.mm.yy")
YIK2_BitisT.Value = Format(YIK2_BitisT.Value, "dd.mm.yy")

If YIK1_BaslangıcT.Value = "" Then
MsgBox " Lütfen tarih giriniz..", , ""
End If

If YIK2_BitisT.Value = "" Then
MsgBox " Lütfen tarih giriniz..", , ""
End If

Label_YIKanuniYi.Value = sDate(YIK2_BitisT.Value) - sDate(YIK1_BaslangıcT.Value) + 1

End Sub
Kullanıcı avatarı
beyfendi
Siteye Alışmış
 
Adı Soyadı:Ramazan KARAKAYA
Kayıt: 22 Ağu 2011 11:41
Konum: Kuzey
Meslek: Muhasebe
Yaş: 40
İleti: 125
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: kuzey

Cevap: Cevap: Cevap: İki ayrı textboxa girilen tarih farkını

İleti#20)  beyfendi » 28 Ekm 2020 15:11

Üstad ayrıca bu kodunuzuda denedim buda olmadı, nerede hata yapıyorum çözemedim.

Kod: Tümünü seç
Private Sub Label_YIKanuniYi_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Me.Label_YIKanuniYi.Caption = ""
    If dogrumuTarih(Me.YIK1_BaslangıcT) = False Then
        GoTo son
    End If
    If dogrumuTarih(Me.YIK2_BitisT) = False Then
        GoTo son
    End If
    If CLng(CDate(Me.YIK1_BaslangıcT.Value)) > CLng(CDate(Me.YIK2_BitisT.Value)) Then
    MsgBox "ilk tarih büyük olamaz...", vbCritical, "Hata"
        Exit Sub
    End If
    Me.Label_YIKanuniYi.Caption = DateDiff("d", CDate(Me.YIK1_BaslangıcT.Value), CDate(Me.YIK2_BitisT.Value)) * 1
son:
End Sub



feraz yazdı:
feraz yazdı:Bundada hepsi var tarih formatı vs...
Kullanıcı avatarı
beyfendi
Siteye Alışmış
 
Adı Soyadı:Ramazan KARAKAYA
Kayıt: 22 Ağu 2011 11:41
Konum: Kuzey
Meslek: Muhasebe
Yaş: 40
İleti: 125
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: kuzey

Sonraki

Forum Label

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 1 misafir

Bumerang - Yazarkafe