VisualBasic_tarih_saat_fonksiyon.htm
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:
 

Kod Alanı:

 
Label1.Text=DateTime.Now



 


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 ; )
 

Yardım İçin Sadece Bir Tık Yeter
 
Sponsor
 
.tk
 
Bu web sitesi ücretsiz olarak Bedava-Sitem.com ile oluşturulmuştur. Siz de kendi web sitenizi kurmak ister misiniz?
Ücretsiz kaydol