TextBox tarih toplatma

[shocaoglu]

Arkadaşlar merhaba

19.05.2010 da aldığım 10 gün opsiyonlu malı 20.05.2010 ödeyeceğimi görmem için


TextBox1 e otomatik o günün tarihi gelsin
TextBox2 ye ilave edeceğim opsiyon gün yazayım
TextBox3 e de ödememin nezaman yapılacağını gösteren tarih gelsin istiyorum.

Bunun için nasıl bir makro yazabiliriz yardımcı olacak arkadaşlara şimdiden teşekkürler.

 

[Ferhat Pazarçevirdi]

Merhabalar,

Bir Userform'a; txtTrh (işlem tarihi) ve txtOpt (Opsiyon) textboxlarını yerleştiriniz. Ayrıca, işlem sonucunu gösterecek, lblOde adında da bir Label nesnesi ekleyiniz.

Aşağıdaki kodları Userform modülüne yazınız.

Private Sub txtOpt_Change()
    Call Topla(txtTrh, txtOpt)
End Sub
 
Private Sub txtTrh_Change()
    Call Topla(txtTrh, txtOpt)
End Sub
 
[COLOR=darkgreen]'Textboxlar'a veri girildiği anda çalışacak prosedür[/COLOR]
 
Private Sub Topla(sTrh As String, sOpt As String)
[COLOR=darkgreen]    'Opsiyon kutusu doldurulmuş mu? Doldurulmamışsa 0 geç..[/COLOR]
    If Len(sOpt) = 0 Then sOpt = 0
[COLOR=darkgreen]    'Tarih kutusuna girilen değer, gerçek bir tarihi ifade etmiyor mu?[/COLOR]
    If Not IsDate(sTrh) Then
[COLOR=darkgreen]        'O halde, Ödeme tarihine uyarı yaz[/COLOR]
        lblOde.Caption = "Hatalı Tarih"
[COLOR=darkgreen]    'Tarih kutusuna girilen değer, gerçek bir tarihse[/COLOR]
    Else
[COLOR=darkgreen]        'Şimdi de
        'Opsiyon kutusuna girilen değer, sayısal değilse[/COLOR]
        If Not IsNumeric(sOpt) Then
[COLOR=darkgreen]            'Ödeme tarihine uyarı yaz[/COLOR]
            lblOde.Caption = "Hatalı Opsiyon"
[COLOR=darkgreen]        'Eğer opsiyon verisinde bir hata yoksa[/COLOR]
        Else
[COLOR=darkgreen]            'Ödeme tarihini hesapla[/COLOR]
            TextBox2 = CDbl(sOpt)
            lblOde = DateAdd("d", sOpt, sTrh)
            
        End If
    End If
End Sub
 
Private Sub UserForm_Initialize()
    txtTrh = Format(Date, "dd.mm.yyyy")
    txtOpt = 1
    Me.Caption = "Ödeme günü belirleme"
End Sub
 
Private Sub CommandButton1_Click()
    Unload Me
End Sub

Ekteki örneği de inceleyiniz.

.

 

[shocaoglu]

Ellerine sağlık ustam. Tam istediğim gibi oldu.