Visual Basic'de bir çok tarih fonksiyonu bulunmaktadır. Bunlardan bazılarını aşağıdaki inceleyeceğiz.
Date
Bu fonksiyon ile sistem tarihini okuyabiliriz. Kullanımı şu şekildedir ;
tarih=Date
Ayrıca Date komutu'da bulunmaktadır. Bu komut ile'de sistem tarihi değiştirebiliriz. Kullanımı şu şekildedir ;
Date = #February 12, 1985# veya Date="01-01-1999"
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
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
Year
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
Now
Bu fonsiyon sistem tarihini ve saatini bize geri döndürür. Kullanımı aşagıdaki şekildeki gibidir ;
y=Now( ) ' y=7/13/99 5:31:22 AM
Visual Basic'de daha bir çok tarih fonksiyonu vardır. Aşağıda küçük bir örnek vardır. Gönderilen bir soruda sistem tarihinin ay,gün ve yıl bilgisini ayrı olarak nasıl elde ederim idi. Sanırım aşağıdaki kod yardımcı olur.
Date
Bu fonksiyon ile sistem tarihini okuyabiliriz. Kullanımı şu şekildedir ;
tarih=Date
Ayrıca Date komutu'da bulunmaktadır. Bu komut ile'de sistem tarihi değiştirebiliriz. Kullanımı şu şekildedir ;
Date = #February 12, 1985# veya Date="01-01-1999"
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
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
Year
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
Now
Bu fonsiyon sistem tarihini ve saatini bize geri döndürür. Kullanımı aşagıdaki şekildeki gibidir ;
y=Now( ) ' y=7/13/99 5:31:22 AM
Visual Basic'de daha bir çok tarih fonksiyonu vardır. Aşağıda küçük bir örnek vardır. Gönderilen bir soruda sistem tarihinin ay,gün ve yıl bilgisini ayrı olarak nasıl elde ederim idi. Sanırım aşağıdaki kod yardımcı olur.
Kod:
[FONT=Arial]Private Sub Form_Load()[/FONT]
[FONT=Arial]Dim gun As Integer[/FONT]
[FONT=Arial]Dim ay As Integer[/FONT]
[FONT=Arial]Dim yil As Integer[/FONT]
[FONT=Arial]Dim d As Date[/FONT]
[FONT=Arial]d = Date[/FONT]
[FONT=Arial]gun = Day(d)[/FONT]
[FONT=Arial]ay = Month(d)[/FONT]
[FONT=Arial]yil = Year(d)[/FONT]
[FONT=Arial]Label1.Caption = gun[/FONT]
[FONT=Arial]Label2.Caption = ay[/FONT]
[FONT=Arial]Label3.Caption = yil[/FONT]
[FONT=Arial]End Sub[/FONT]
