Delphide zaman fonksiyonları...3

Procedure TForm1.Button1Click(Sender; Object);
var
Tarih : TDate;
begin
Tarih := Date;
Tarih := IncWeek(Tarih); // Haftayı bir artır
Caption := DateToStr(Tarih);
end;



IncYear(Tarih);

Parametre olarak girilen tarih içerikli değişkenin değerini bir yıl artırarak yeni bir tarih hesaplar. Fonksiyondan geriye dönen değer tarih içerikli olacağı için, yazdırmanız ancak DateToStr tip dönüştürme fonksiyonu sayesinde yazdırabilirsiniz.

Procedure TForm1.Button1Click(Sender; Object);
var
Tarih : TDate;
begin
Tarih := Date;
Tarih := IncYear(Tarih); // Yılı bir artır
Caption := DateToStr(Tarih);
end;






IsInLeapYear(Yıl);

Parametre ile girilen tarih içerikli değişken değerinin (dört yılda bir oluşan 366 gün çeken yıl) 366 gün çekip çekmediğini anlayabilen bir fonksiyondur. Fonksiyondan geriye dönen değer True veya false olabileceği için ufak bir sonuç dallanmasıyla sonuca ulaşabilirsiniz. Şayet belirttiğiniz tarih 366 gün çekiyorsa sonuç True olacaktır.


Procedure TForm1.Button1Click(Sender; Object);
var
Tarih : TDate;
Sonuc : Boolean;
begin
Tarih := Date;
Sonuc := IsInLeapYear(Tarih); // 366 gün mü çekiyor
If Sonuc=True Then
Caption := ‘366 Gün çeker’
Else
Caption := ‘365 Gün çeker’;
end;





IsLeapYear(Yıl);

Parametre olarak girilen tarihin 365 gün çekip çekmediğini hesaplayan diğer bir fonksiyondur. Yukarıdakinden tek farkı parametre olarak tarih değişkeni değilde, tam sayı tip değişken kullanılmasıdır.

Procedure TForm1.Button1Click(Sender; Object);
var
Sonuc : Boolean;
begin
Sonuc := IsInLeapYear(Tarih); // 366 gün mü çekiyor
If Sonuc=True Then
Caption := ‘366 Gün çeker’
Else
Caption := ‘365 Gün çeker’;
end;




IsToDay(Tarih);

Parametre olarak girilen tarih değişkeninin, bugünün tarihine eşit olup olmadığını kontrol eden bir fonksiyondur. Fonksiyondan geriye dönen değer Boolean tip bir değişkende saklanabilir.Bu değişkenin değerinin True olması girilen tarihe bugüne eşit olduğu anlamını taşımaktadır.

Procedure TForm1.Button1Click(Sender; Object);
Var
Tarih := TDate;
Sonuc : Boolean;
Begin
StrToDate(Edit1.Text);
Sonuc := IsToDay(Tarih);
If Sonuc Then
Caption := ‘Girdiğiniz tarih bu güne eşit’;
end;

Fonksiyondan true feya false değerinin döndüğünü hatırlamakta fayda var.



IsValidDate(Yıl, Ay, Gün);

Parametre olarak girilen değişken değerlerinin sırasıyla tarih oluşturup oluşturamayacağını hesaplayabilen bir fonksiyondur. (ay değerinin 12 den büyük ve gün değerinin 31 den büyük olması gibi) Fonksiyondan geriye True değerinin dönmesi değişkenlerin tarih oluşturabileceği anlamını taşımaktadır.

Procedure TForm1.Button1Click(Sender; Object);
Var
Tarih := TDate;
Yil, Ay, Gun : Word;
Sonuc : Boolean;
Begin
Sonuc := IsValidDate(2003, 10, 10);
If Sonuc=True Then
begin
Tarih := EncodeDate(2003, 10, 5);
Caption := DateToStr(Tarih);
end
else
Caption := ‘Girdiğiniz değerden tarih oluşturulamaz’;
end;





MonthOf(Tarih);

Parametre ile belirtilen tarih değişkeninin hangi aya ait olduğunu hesaplayan fonksiyondur. Fonksiyondan geriye dönen değer tam sayı tipli bir değişkene aktarılabilir.

Procedure TForm1.Button1Click(Sender; Object);
Var
Tarih := TDate;
Deger : Word;
begin
Tarih := Date+5;
Sonuc := MonthOf(Tarih);
Caption := IntToStr(Deger);
end;





MonthOfTheYear(Tarih);

Parametre ile tarih değişken değerinin hangi aya ait olduğunu hesaplayan bir fonksiyondur.

Procedure TForm1.Button1Click(Sender; Object);
Var
Tarih := TDate;
Deger : Word;
begin
Tarih := Date+5; // Şu an ki tarih 11/07/2003
Sonuc := MonthOfTheYear(Tarih);
Caption := IntToStr(Deger); // 7 Yazar
end;





MonthsBetween(Tarih1, Tarih2);

Parametre olarak belirtilen tarih değişkenleri arasında kaç ay olduğunu hesaplayan fonksiyondur.

Procedure TForm1.Button1Click(Sender; Object);
Var
Tarih1, Tarih2 := TDate;
Fark : Integer;
begin
Tarih1 := StrToDate(’04.05.2002’);
Tarih2 := StrToDate(’04.08.2003’);
Fark := MontsBetween(Tarih1, Tarih2);
Caption := IntToStr(Fark); // 15 Yazar
end;

Fonksiyondan geriye dönen değer bir tam sayı olduğu için IntToStr tip dönüştürme fonksiyonu kullanılarak fark kolayca yazdırılabilir. Yapılan hesaplamaya dikkat edicek olursanız girilen iki tarih arasında ki ay sayısı bulunmaktadır.







Now();

O güne ait tarih ve saati yazdırabilen bir fonksiyondur. Fonksiyondan geriye dönen Tarih_Zaman içerikli veri döneceği için DateTimeToStr tip dönüştürme fonksiyonu kullanılarak yazdırabilmektedir.

Procedure TForm1.Button1Click(Sender; Object);
Var
TarihZaman : TDateTime;
begin
TarihZaman := Now; // Tarih ve zamanı beraber tutan değişken
Caption := DateTimeToStr(TarihZaman); // 15/03/2003 1924 Yazar
end;



NthDayOfWeek(Tarih);

Parametre olarak girilen tarih değişken değerinin, ayın kaçıncı haftasında olduğunu hesaplayan fonksiyondur.

Procedure TForm1.Button1Click(Sender; Object);
Var
Tarih : TDateTime;
Deger : Word;
begin
Tarih := Now; // 11/07/2003
Deger := NthDayOfWeek(Tarih); Ayın kaçıncı haftası
Caption := IntToStr(Deger); // 2 Yazar
end;

Fonksiyondan tam sayı tipli bir değer döneceği için IntToStr tip dönüştürme fonksiyonu kullanarak yazdırılabilir.


RecodeDate(Tarih1, Yil, Ay, Gün);

2.inci, 3.üncü, 4.üncü parametre ile belirlenen değerleri birleştirip, ilk parametre formatında yeni bir tarih değeri oluşurur. Fonksiyondan geriye dönen değer Tarih_Zaman içerikli olacağı için DateTimeToStr fonksiyonu kullanılarak yazdırılabilir.

Procedure TForm1.Button1Click(Sender; Object);
Var
Tarih1, Tarih2 : TDateTime;
Yil, Ay, Gun : Word;
begin
Tarih1 := Now; // 11/07/2003
Yil := 2002;
Ay := 5;
Gun := 14;
Tarih2 := RecodeDate(Tarih1, Yil, Ay, Gun);
Caption := DateTimeToStr(Tarih2); // 14/05/2002 Yazar
end;


RecodeYear(Tarih, Yil);

İkinci parametre ile belirtilen yıl değerini, birinci parametredeki yılın yerine yazarak yeni bir tarih hesaplar.

Procedure TForm1.Button1Click(Sender; Object);
Var
Tarih1, Tarih2 : TDateTime;
Yil : Word;
begin
Tarih1 := Now; // 11/07/2003
Yil := 1999;
Tarih2 := RecodeYear(Tarih1, Yil);
Caption := DateTimeToStr(Tarih2); // 11/07/1999 Yazar
end;

Fonksiyondan geriye dönen değer, tarihsel içerik içerdiği için herhangi bir kontrolün üzerinde (kullanıcıya göstermek amaçlı) yazdırmak için DateTimeToStr fonksiyonundan faydalanmalısınız. Dilerseniz DateToStr sadece tarih kısmını (saat hariç) yazdırabilirsiniz.




ReplaceDate(Tarih1, Tarih2);

Parametre olarak belirtilen iki tarihin değerlerinin birbiriyle değişmesini sağlayan bir prosedürdür.

Procedure TForm1.Button1Click(Sender; Object);
Var
Tarih1, Tarih2 : TDateTime;
begin
Tarih1 := StrToDate(’01.02.2003’);
Tarih2 := Date; // 11/07/2003
ReplaceDate(Tarih1, Tarih2); // Tarihleri değiştir.
Caption := DateTimeToStr(Tarih2); // 11/07/1999 Yazar
end;




StartOfADay(Tarih, Ay);

Parametreyle belirtilen yıla, yine ikinci parametreyle belirtilen sayı kadar ay ekler.

Procedure TForm1.Button1Click(Sender; Object);
Var
Tarih : TDateTime;
begin
Tarih := StartOfADay(2003, 6);
Caption := DateToStr(Tarih); //06/01/2003 yazar
end;

Fonksiyondan geriye dönen değer tarihsel veri içereceği için, kontrollerden herhangi birisinde yazdırılması için DateToStr tip dönüştürme fonksiyonundan faydalanmalısınız.

Dilerseniz aynı işlemi aşağıda ki gibi 3 parametre ile de yapabilirsiniz. Örneği dikkatlice inceleyiniz. Çünkü fonksiyon opsiyonel parametre içermektedir.

Procedure TForm1.Button1Click(Sender; Object);
Var
Tarih : TDateTime;
begin
Tarih := StartOfADay(2003, 3, 10); // 3 Ay 10 gün ekle
Caption := DateToStr(Tarih); //10/03/2003 yazar
end;






StartOfAMonth(Yıl, Ay);

Parametreyle belirtilen yıla, yine ikinci parametreyle belirtilen adet kadar ay ekler.

Procedure TForm1.Button1Click(Sender; Object);
Var
Tarih : TDateTime;
begin
Tarih := StartOfAMonth(2003, 6); // 6 Ay ekle
Caption := DateToStr(Tarih); //01/06/2003 yazar
end;





StartOfAWeek(Yıl, Hafta);

Parametreyle belirtilen yıla, yine ikinci parametreyle belirtilen hafta sayısını ekler, yeni bir tarih hesaplar.

Procedure TForm1.Button1Click(Sender; Object);
Var
Tarih : TDateTime;
begin
Tarih := StartOfAWeek(2003, 3); // 3. Haftayı bul
Caption := DateToStr(Tarih); // 13/01/2003 yazar
end;

Fonksiyondan geriye dönen değer tarihsel içerik içerdiğinden, yazdırmak için DateToStr fonksiyonundan faydalanmalısınız.








StartOfAYear(Yıl);

Parametreyle belirtilen yılın ilk gününe ait tarih değerini döndüren fonksiyondur. Fonksiyondan geriye dönen değer tarihsel veri içerdiği için yazdırmak ancak DateToStr fonksiyonu sayesinde olabilecektir.

Procedure TForm1.Button1Click(Sender; Object);
Var
Tarih : TDateTime;
begin
Tarih := StartOfAYear(2004);
Caption := DateToStr(Tarih); //01/01/2004 yazar
end;



StartOfTheMonth(Yıl);

Parametre ile belirtilen tarihteki ilk günü bulmak için kullanılan bir fonksiyondur. (ay ve yıl değişmez sadece günün değerini 1 yapar)

Procedure TForm1.Button1Click(Sender; Object);
Var
Tarih : TDateTime;
begin
Tarih := StartOfTheMonth(Date); // 11/07/2003
Caption := DateToStr(Tarih); //01/07/2003 yazar
end;



StartOfTheWeek(Tarih);

Parametre olarak girilen tarihteki ilk gününün tarihini hesaplayan bir fonksiyondur.

Procedure TForm1.Button1Click(Sender; Object);
Var
Tarih : TDateTime;
begin
Tarih := StartOfTheWeek(Date); // 11/07/2003
Caption := DateToStr(Tarih); //07/07/2003 yazar
end;

Örnekte yer alan aktif tarih 11/07/2003 tür ve Cuma gününe karşılık gelmektedir.O haftaya ait pazartesi, pazartesi gününün tarihi ise 07/0/7/2003 tür. Bu yüzden fonksiyın tarihinin bulunfuğu haftaya ait ilk günü döndüreceği için sonuç 07/07/2003 olacaktır.




StrToDate(Stirng_Tarih);

Parametre ile verilen string değişkeni tarihsel veriye dönüştürmek için kullanılan bir fonksiyondur. Dikkat edeceğiniz husus parametre değerini tarihe çeviremez ise program hata verecektir.

Procedure TForm1.Button1Click(Sender; Object);
Var
Tarih : TDateTime;
begin
Tarih := StrToDate(Edit1.Text); // Tarihe çevir
Caption := DateToStr(Tarih+10); // 10 Gün ekle
end;




StrToDateDef(Tarih, Varsayılan_Tarih);

StrToDate fonksiyonu yanlış tarih girildiği zaman hata veriyordu. Bu fonksiyon ise yanlış tarih girilmesi durumunda ikinci parametre ile belirtilen değeri tarih olarak kabul edecektir.

Procedure TForm1.Button1Click(Sender; Object);
Var
Tarih : TDateTime;
begin
Tarih := StrToDateDef(Edit1.Text, Date); // Eğer yanlış tarih girilmişse bugünün tarihini baz al
Caption := DateToStr(Tarih);
end;

Fonksiyonun yaptığı iş Edit1 kutusuna tarihe dönüştürülemeyecek bir değerin girilmesi durumunda oluşacak hatayı engellemek ve (bir çok durumda bu günkü tarihin yazılması için bilerek yaptırılabilir) aktif tarihin işleme sokulmasını sağlamaktır.





StrToDateTime(String_Tarih);

Parametre ile belirtilen değişkenin değerini Tarih_Zaman içerikli değişkene aktarmak için kullanılan bir fonksiyondur.

Procedure TForm1.Button1Click(Sender; Object);
Var
Tarih : TDateTime;
begin
Tarih := StrToDateTime(Edit1.Text); // Tarih ve zamana çevir
Caption := DateTimeToStr(Tarih+10); // 10 Gün ekle
end;






StrToDateTimeDef(Tarih_Zaman , Varsayılan_Tarih_Zaman);

Tip çevirme işleminde hata oluşursa (tarih girilmez veya yanlış girilirse) ikinci parametre ile verilen değeri kabul ederek işlemlere devam eden fonksiyondur.

Procedure TForm1.Button1Click(Sender; Object);
Var
Tarih : TDateTime;
begin
Tarih := StrToDateTimeDef(Edit1.Text, Now); // Eğer yanlış tarih girilirse şu anki tarih_zamanı al
Caption := DateTimeToStr(Tarih);
end;







StrToTime(String_Zaman);

Parametre ile belirtilen string veriyi zamansal değere çevirebilen bir fonksiyondur. Şayet parametre değeri zamana çevrilemiyorsa, programınız hata mesajı verecektir.

Procedure TForm1.Button1Click(Sender; Object);
Var
Zaman : TDateTime;
begin
Zaman := StrToTime(Edit1.Text); // Zamana çevir
Caption := TimeToStr(Zaman);
end;

Bu örnek için Edit kutusuna (10:06:45) gibi saati gösteren bir değer girmelisiniz.






StrToTimeDef(String_Zaman , Varsayılan_Zaman);

StrToTime fonksiyonu Edit kutusuna yanlış değer girildiğinde kırılıyordu. Bu fonksiyonda yanlış değer (zaman çevrilemeyecek string) girilmesi durumunda ikinci parametre ile verilen zaman değeri kabul edilecek ve işlemler devam edecektir. Dolayısı ile programın kırılmasınıda engellemiş olacaksınız.