Visual Basic Tarih Fonksiyonları

Tarih ile alakalı tüm fonksiyonlar Formunuza 11 adet CommandButton 2 adet Label ve 2 adet TextBox ekleyiniz ve aşağıdaki kodu olduğu gibi kopyala yapıştır yapınız. Private Sub Command1_Click()     Label1 = DateDiff("d", Text1, Text2) End Sub Private Sub Command10_Click() deger = InputBox("Eklenecek gün sayısını giriniz..") If deger = "" Then Exit Sub Label1 = DateAdd("d", deger, Date) End Sub Private Sub Command11_Click() gun = Array("Pazar", "Pazartesi", "Salı", "Çarşamba", "Perşembe", "Cuma", "Cumartesi") tarih = InputBox("Bir tarih giriniz..", "", Date) If tarih = "" Then Exit Sub Label1 = gun(Weekday(tarih) - 1) End Sub Private Sub Command2_Click()     Label1 = DateDiff("m", Text1, Text2) End Sub Private Sub Command3_Click()     Label1 = DateDiff("yyyy", Text1, Text2) End Sub Private Sub Command4_Click()     Label1 = DateDiff("w", Text1, Text2) End Sub Private Sub Command5_Click() Label1 = Day(Date) End Sub Private Sub Command6_Click() Label1 = Month(Date) End Sub Private Sub Command7_Click() Label1 = Year(Date) End Sub Private Sub Command8_Click() deger = InputBox("Eklenecek yıl sayısını giriniz..") If deger = "" Then Exit Sub Label1 = DateAdd("yyyy", deger, Date) End Sub Private Sub Command9_Click() deger = InputBox("Eklenecek ay sayısını giriniz..") If deger = "" Then Exit Sub Label1 = DateAdd("m", deger, Date) End Sub Private Sub Form_Load() Width = 4830 Height = 6915 Me.BorderStyle = 1 Command1.Caption = "Gün Farkı" Command2.Caption = "Ay Farkı" Command3.Caption = "Yıl Farkı" Command4.Caption = "Hafta Farkı" Command5.Caption = "Gün Al" Command6.Caption = "Ay Al" Command7.Caption = "Yıl Al" Command8.Caption = "Tarihe Yıl Ekele" Command9.Caption = "Tarihe Ay Ekle" Command10.Caption = "Tarihe Gün Ekle" Command11.Caption = "Girilen Tarihin Gününü Bul" Text1 = DateAdd("d", -Day(Date) + 1, Date) Text2 = Date Label2.Caption = "Not: Eğer tarih eklemede -değer kullanırsanız tarih eklemez çıkarır. Örnek : Tarihe Yıl Ekle düğmesine basınız gelen İnputBox kutusuna  -1 (eksi bir) eklerseniz bulunduğunuz yıla bir eklemez! bir çıkarır. Yıl 2005 ise 2004 Olur." Label1.Font.Size = 14 Label1.Alignment = 2 Label1.Appearance = 0 Label1.BorderStyle = 1 Caption = "Tarih Farkı [ www.okxd-jc.com ]" Command11.Top = 3600 Command11.Left = 2880 Command11.Width = 1575 Command11.Height = 615 Command10.Top = 4200 Command10.Left = 360 Command10.Width = 1695 Command10.Height = 495 Command9.Top = 3720 Command9.Left = 360 Command9.Width = 1695 Command9.Height = 495 Command8.Top = 3240 Command8.Left = 360 Command8.Width = 1695 Command8.Height = 495 Command7.Top = 2040 Command7.Left = 2880 Command7.Width = 1575 Command7.Height = 495 Command6.Top = 2520 Command6.Left = 2880 Command6.Width = 1575 Command6.Height = 495 Command5.Top = 3000 Command5.Left = 2880 Command5.Width = 1575 Command5.Height = 495 Command4.Top = 2280 Command4.Left = 360 Command4.Width = 1695 Command4.Height = 495 Command3.Top = 1680 Command3.Left = 360 Command3.Width = 1695 Command3.Height = 495 Command2.Top = 1080 Command2.Left = 360 Command2.Width = 1695 Command2.Height = 495 Command1.Top = 480 Command1.Left = 360 Command1.Width = 1695 Command1.Height = 495 Text2.Top = 960 Text2.Left = 2880 Text2.Width = 1575 Text2.Height = 285 Text1.Top = 480 Text1.Left = 2880 Text1.Width = 1575 Text1.Height = 285 Label2.Top = 4800 Label2.Left = 360 Label2.Width = 4095 Label2.Height = 975 Label1.Top = 1440 Label1.Left = 2880 Label1.Width = 1575 Label1.Height = 375 End Sub