![]() |
![]() |
#7
|
|||
|
|||
![]()
Today:
Aktif tarihi (saatsiz olarak) yazdırmak için kullanılan bir fonksiyondur. Procedure TForm1.Button1Click(Sender; Object); Var Tarih : TDateTime; begin Tarih := Today; Caption := DateTimeToStr(Tarih); // 11/07/2003 end; Fonksiyondan geriye dönen değer tarihsel içerikli olduğu için DateTimeToStr (DateToStr de olur) tip dönüştürme fonksiyonundan faydalanmalısınız. Tomorrow: Aktif tarihten (Date) bir gün sonraki tarihi bulmak için kullanılan bir fonksiyondur. (Date+1) Procedure TForm1.Button1Click(Sender; Object); Var Yarin : TDateTime; begin Yarin := Tomorrow; Caption := DateTimeToStr(Yarin); end; WeekOf(Tarih); Parametreyle belirtilen tarih değerinin yılın kaçıncı haftasına karşılık geldiğini hesaplayan bir fonksiyondur. Procedure TForm1.Button1Click(Sender; Object); Var Tarih : TDateTime; Hafta : Word; begin Tarih := Now; // Şu an ki tarih 11/07/2003 Hafta := WeekOf(Tarih); // Yılın kaçıncı haftası Caption := IntToStr(Hafta)+’. Hafta’; // 28. Hafta yazar end; WeekOfTheMonth(Tarih); Bu da belirtilen tarih içerisinde o aya ait hangihaftada bulunduğunu hesaplayan bir fonksiyondur. Fonksiyondan geriye dönen değer tam sayı olduğu için yazdırılma işlemi ancak IntToStr tip dönüştürme fonksiyonu kullanılarak yapılabilir. Procedure TForm1.Button1Click(Sender; Object); Var Tarih : TDateTime; Hafta : Word; begin Tarih := Now; Hafta := WeekOfTheMonth(Tarih); // Ayın kaçıncı haftası Caption := IntToStr(Hafta); end; WeekBetween(Tarih1, Tarih2); Parametre olarak girilen iki tarih arasındaki hafta sayısını hesaplayan bir fonksiyondur. Fonksiyondan geriye dönen değer tam sayı olduğu için IntToStr tip dönüştürme fonksiyonu sayesinde yazdırılabilir. Procedure TForm1.Button1Click(Sender; Object); Var Tarih1, Tarih2 : TDateTime; Adet : Word; begin Tarih1 := StrToDate(’01.03.2003’); Tarih2 := StrToDate(’01.05.2003’); Adet := WeeksBetWeen(Tarih1,Tarih2); // Arada kaç hafta var Caption := IntToStr(Adet)+’ Hafta fark var’; // 8 Hafta fark var yazar end; WeeksInAYear(Yıl); Parametre ile girilen yılın kaç haftadan oluştuğunu hesaplayan fonksiyondur. Fonksiyondan geriye dönen değer tam sayı tipli olduğu için IntToStr fonksiyonu sayesinde yazdırabilirsiniz. Procedure TForm1.Button1Click(Sender; Object); begin Caption := IntToStr(WeeksInAYear(2003)); // 52 yazar end; YearOf(Tarih); Parametre olarak girilen tarih zaman değerinden sadece yıla ait olan bölümü döndüren fonksiyondur. Fonksiyondan geriye dönen değer tam sayı tipli olacağı için yazdırmak için IntToStr fonksiyonundan faydalanmalısınız. Procedure TForm1.Button1Click(Sender; Object); Var Tarih : TDateTime; Deger : Word; begin Tarih := Now; Deger := YearOf(Tarih); // Sadece yılı al Caption := IntToStr(Deger); // 2003 yazar end; YearsBetween(Tarih1, Tarih2); Parametre ile belirtilen tarihlerin arasında kaç yıl bulunduğunu hesaplayan fonksiyondur. Fonksiyondan geriye dönen değer tam sayı tipli olacağı için yazdırmak için IntToStr fonksiyonundan faydalanmalısınız. Procedure TForm1.Button1Click(Sender; Object); Var Tarih1, Tarih2 : TDateTime; Deger : Integer; begin Tarih1 := StrToDate(’01.02.2003’); Tarih2 := StrToDate(’01.03.2006’); Deger := YearsBetween(Tarih1,Tarih2); // Arada kaç yıl var Caption := IntToStr(Deger); // 3 yazar end; Yesterday : Bir önceki güne ait (Date-1) tarihi hesaplayabilen bir fonksiyondur. Fonksiyondan geriye dönen değer tarih içerikli olacağı için yazdırmak ancak DateToStr tip dönüştürme fonksiyonu sayesinde olabilecektir. Procedure TForm1.Button1Click(Sender; Object); Var Tarih : TDateTime; begin Tarih := Yesterday; // Bir önceki günü al Caption := ‘Önceki günkü tarih ’+DateToStr(Tarih); end; |
|
|