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 gun 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ı", "Carşamba", "Perşembe", "Cuma", "Cumartesi")
tarih = InputBox("Bir tarih giriniz..", "", Date)
If tarih = "" Then Exit Sub
Label1 = gun(Weekday(tarih) - 1)


End Sub
__________________