Delphide zaman fonksiyonları...4

Procedure TForm1.Button1Click(Sender; Object);
Var
Zaman : TDateTime;
begin
Zaman := StrToTimeDef(Edit1.Text , Time); // Yanlış değer girilirse şu an ki zamanı kabul et
Caption := TimeToStr(Zaman);
end;








Time – GetTime :

İki fonksiyonu kullanarak da aktif saati öğrenebilirsiniz.Fonksiyondan geriye dönen değer zaman içerikli olacağı için yazdırmak için TimeToStr tip dönüşüm fonksiyonunu kullanmalısınız.

Procedure TForm1.Button1Click(Sender; Object);
Var
Zaman1, Zaman2 : TDateTime;
begin
Zaman1 := Time;
Zaman2 := GetTime;
Caption := ‘Time : ’+TimeToStr(Zaman1)+’ GetTime : ’+TimeToStr(Zaman2);
end;







TimeOf(Zaman);

Procedure TForm1.Button1Click(Sender; Object);
Var
Zaman1, Zaman2 : TDateTime;
begin
Zaman1 := Time;
Zaman2 := TimeOf(Now);
Caption := ‘Time : ’+TimeToStr(Zaman1)+’ TimeOf : ’+TimeToStr(Zaman2);
end;





TimeToStr(Tarih_Zaman);

Parametre ile belirtilen tarih ve zamanın sadece zaman ile ilgili kısmını string e çevirip yazdırmak için kullanılır. Aşağıdaki örnekte TimeToStr ile DateTimeToStr arasındaki fark anlatılmıştır.

Procedure TForm1.Button1Click(Sender; Object);
Var
Zaman : TDateTime;
begin
Zaman := Now;
Caption := ‘TimeToStr : ’+TimeToStr(Zaman)+’ DateTimeToStr : ’+DateTimeToStr(Zaman);
end;








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;