Tarih ve Saat işlemleri Yapabilmemiz için kullanacağımız fonksiyonlar.
Bu Makalemde Tarih ve Saat Fonksiyonlarını anlatacağım.
1 ) DateTime.Compore
Bu kod ile iki tarihin eşit olup olmadığını kontrol edebiliriz. Tarihler dönen değer 0 dır. Bir örnek ile açıklayalım.
Kod Alanı: |
Dim ilk,son as DateTime 2 tane tari tipinde degisken tanımladık.
Dim x as Integer Donecek değer bu x degiskenine gelecek.
ilk=Textbox1.text
son=textbox2.text Textlerdeki tarihleri degiskenlere atadık.
x=DateTime.Compore(ilk,son ) ve bu komutla karşılaştırma yaptık ve dönen degeri x e atadık.
If (x=0 ) Then
Me.Text="İki Tarih Eşit"
Else
Me.text="Tarihler Eşit Değil"
End If |
|
2 ) DateTime.DaysInMonth
Hangi Yılın Hangi ayının kaç çektigini bulur.
Örneğin
Label1.Text=DateTime.DaysInMonth(Textbox1.text,textbox2.text ) Textbox1de Yıl ve textbox2 de ay olsun. Labele donen deger ayın kaç çektiğidir.
3 ) DateTime.IsLeapYear
Verilen tarihin 4 yılda bir oluşan artık yıl olup olmadığını hesaplar.
Ör:
Kod Alanı: |
If DateTime.IsLeapYear(Textbox1.Text ) Then
Label1.Text="Bu yıl artık yıldır"
else
Label1.text="bu yıl artık yıl değildir."
End If |
|
4 ) DateTime.Minvalue-DateTime.MaxValue
Tarih ve zamanın alacağı minumum ve maximum değerleri belirler.
Ör.: Textbox1.Text=DateTime.Minvalue
5 ) DateTime.Now
Aktif Tarih ve Saati bildiren fonksiyondur.
Ör:
6 ) DateTime.Today
Aktif Tarihi Yazan Fonksiyondur. Now dan farkı; zamanı 00:00:00 olarak almasıdır.
Ör:
Kod Alanı: |
Label1.Text=DateTime.Today |
|
7 ) DateTime.Now.ToShortDateString
Şu anki zamanın tarih kısmını, kısa tarih formatına göre gösterir.
8 ) DateTime.Now.ToLongDateString
Şu anki zamanın tarih kısmını, uzun tarih formatına göre gösterir.
9 ) DateTime.Now.ToShortTimeString
Şu anki zamanın saat kısmını kısa saat formatına göre gösterir.
10 ) DateDiff= İki zaman arasındaki farkı - DateAdd= Bir zamana ilave edilmek suretiyle yeni zamanı gösterir.
Ör:
Kod Alanı: |
Msgbox(DateAdd(DateInterval.Day,20,#1/1/2006# ) ) |
|
Bu kod 1/1/2006 tarihine 20 gün ekler. Yani mesaj şu şekilde çıkar. 21/1/2006
11 ) AddDays
Verilen Gün sayısını, verilen tarihe ekler. Ör:
Kod Alanı: |
Dim ilk as DateTime
Dim son as DateTime
Dim ekle as double
ilk=textbox1.text
ekle=textbox2.text
son=ilk.AddDays(ekle )
label1.Text=son |
|
Bu şekilde bir tarihe gun eklemesi yapabiliriz.
12 ) AddMonths
Buda aynı şekilde gün değil ay eklemesi yapar. Yukarıdaki örnekle aynıdır.
13 ) AddYears
Buda Yıl eklemesi yapar ; )