Tarih Fonksiyonları

Yazar jawscod2

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