Visual Basic'te Tarih işlemleri

DATE (TARİH) FONKSIYONU
Tarih ve zaman türündeki bilgileri saklamak için kullanılan değişkenlerdir. 1 Ocak 100 ile 31 Ocak 9999 arasındaki zamanlar için kullanılır.Ay-Gün-Yıl formatında gösterir.Ayrıca sistem tarihini set etmede de kullanılır.

Private Sub Form_Click()
Print Date
End Su
Bu kodu çalıştırdığınızda form üzerinde sistemin o anki tarihi yazar.


YIL (Year)
Bu fonsiyon verilen tarihin yılını bize geri döndürür. Kullanımı aşagıdaki şekildeki gibidir ;

AY (Mounth)
Bu fonsiyon verilen tarihin ayını bize geri döndürür. Kullanımı aşagıdaki şekildeki gibidir ;
y=Day("09-13-1998") ' y=09

GÜN (Day)
Bu fonsiyon verilen tarihin gününü bize geri döndürür. Kullanımı aşagıdaki şekildeki gibidir ;
y=Day("09-13-1998") ' y=13
VBScript'in buna ek olarak Weekday (haftanın günü), WeekdayName (günün adı) ve Monthname (ayın adı) fonksiyonları da vardır. Bu fonksiyonlar değerlerini Date fonksiyonuna göre alırlar. Örneğin,

komutu bize bugün Cumartesi ise "Cumartesi" değerini verir.

komutu bize bu ay Mart ise "Mart" değerini verir. VBScript'in bunlara ek olarak Day (gün), Month (ay) ve Year (yıl) fonksiyonları da değerlerini Date fonksiyonundan alarak, size bir rakam verirler. Eğer tarih 25 Mart 2000 ise:
... 25
... 3
... 2000
değerini verir. VBScript, bu değerleri doğruca işletim sisteminden alır. Dolayısıyla işletim sisteminin bölgesel ayarları Türkiye için yapılmışsa, gün adları Türkçe olarak dönecektir. Ayrıca, tarih ve saat biçimleri de bölgesel ayarlara bağlı olarak, ay önde, gün arkada veya tersi, saat de 12 saat veya 24 saat esasına göre döner. ASP programlarınızı kişisel Web Server'da denerken kendi bilgisayarınızın tarih ve saatini; gerçek Internet'te çalıştırırken Server'ın tarih ve saatini alırsınız. Sayfalarınızda ay ve gün adlarını Türkçe görüntülemek için, önce Server'ın bölgesel ayarlarını sınamanız ve eğer isimler Türkçe gelmiyorsa, bunları çeviren Sub'lar veya fonksiyonlar yazmanız gerekebilir.
DateDiff Fonksiyonu

İki tarih arasındaki sürede geçen zamanı belirtir.

Örnek

Private Sub Command1_Click()
Dim tarih As Date
tarih = InputBox("Doğum tarihinizi giriniz")
MsgBox ("siz" & DateDiff("d", Now, tarih) & "gün önce doğdunuz")
End Sub

Year Fonksiyonu
Bu fonsiyon verilen tarihin yılını bize geri döndürür. Kullanımı aşagıdaki şekildeki gibidir ;
y=Day("09-13-1998") ' y=1998

FileDateTime

Bir dosyanın en son değiştirildiği tarihi öğrenmek için kullanılır.

Private Sub Command6_Click()
MsgBox (FileDateTime("c:\deneme klasör\kopya.txt"))
End Sub

DateSerial Function
Dateserial(Yıl,Ay,Gün):Girilen integer türü değişkenleri date türü değişkenlere çevirmeye yarar.Ayrıca Day(Tarih):
Verilen tarih türü bilginin içinden gün kısmını alır.A=Day("10/25/1983") ifedesinde A=25 olacaktır.
Month(Tarih):
Verilen tarih türü bilginin içinden ay kısmını alır.
Year(Tarih):
Verilen tarih türü bilginin içinden yıl kısmını alır.
Private Sub Form_Load()
Dim gun As Integer
Dim ay As Integer
Dim yil As Integer
Dim d As Date
d = Date
gun = Day(d)
ay = Month(d)
yil = Year(d)
Label1.Caption = gun
Label2.Caption = ay
Label3.Caption = yil
End Sub
(1996,10,28)-Dateseria(1954,3,5) gibi bir kullanımla 2 tarih arasındaki gün sayısını bulabiliriz.