EncodeTime(Zaman, Saat, Dakika, Saniye, Salise);

Parametre ile belirtilen değeri birleştirerek yeni bir zaman değeri türetir. Fonksiyondan geriye zaman içerikli bir değer döneceği için TimeToStr tip dönüştürme fonksiyonu kullanılarak yazdırılabilir.

Procedure TForm1.Button1Click(Sender; Object);
var
Zaman : TDateTime;
begin
Zaman := EncodeTime(16, 25, 30, 40);
Caption := TimeToStr(Zaman); // 16:25:30 yazar
end;


EndOfADay(Yıl, Deger);

Parametre ile belirtilen yıl değişkenine, yine ikinci parametreyle belirtilen değere kadar gün ekler. Fonksiyondan dönen değer tarihsel içerikli olduğu için DateToStr tip dönüştürme fonksiyonu kullanılarak yazdırılabilir. Geriye dönen değeri DateTimeToStr tip dönüştürme fonksiyonu ile yazdırmaya kalkarsanız, zamanla beraber yazılacaklarını belirtmek isterim.

Procedure TForm1.Button1Click(Sender; Object);
var
Tarih : TDateTime;
begin
Tarih := EndOfADay(2003, 9); // 9 Gün ekle
Caption := DateToStr(Tarih); // 09.01.2003 yazar
end;


EndOfAMonth(Yıl, Ay);

Birinci parametre ile belirtilen yıl değişkenine, ikinci parametre ile belirlenen değer kadar ayı ekler yeni bir tarih değeri bulur. Fonksiyondan geriye dönen değer tarihsel içerikli olduğu için DateTimeToStr tip dönüştürme fonksiyonu ile yazdırılmalıdır.

Procedure TForm1.Button1Click(Sender; Object);
var
Tarih : TDateTime;
begin
Tarih := EndOfAMonth(2003, 7); // 7 Ay ekle
Caption := DateToStr(Tarih); // 31.07.2003 yazar
end;


EndOfAWeek(Yıl, Hafta);

Birinci parametre ile belirtilen yıla ikinci parametre ile belirtilen haftanın en son gününü hesaplayan fonksiyondur. Fonksiyondan geriye dönen değer tarihsel içerikli olduğu için yazdırmak için DateToStr fonksiyonundan faydalanılmıştır.

Procedure TForm1.Button1Click(Sender; Object);
var
Tarih : TDateTime;
begin
Tarih := EndOfAWeek(2003, 3); // 3. Haftanın en son günü
Caption := DateToStr(Tarih); // 19.01.2003 yazar
end;
EndOfAYear(Yıl);

Parametre ile verilen yıla ait en son günün tarihini hesaplayan fonksiyondur. Fonksiyondan geriye dönen değer tarihsel içerikli olduğu için DateToStr tip dönüştürme fonksiyonu sayesinde yazdırılabilir.

Procedure TForm1.Button1Click(Sender; Object);
var
Tarih : TDateTime;
begin
Tarih := EndOfAYear(2003); // 3. Yılının en son günü
Caption := DateToStr(Tarih); // 31.12.2003 yazar
end;


FormatDateTime(Stil , Tarih);

İkinci parametre ile belirtilen tarihi, birinci parametre ile belirtilen formatlı hale dönüştürür. Fonksiyondan dönen değer String tipte olduğu için direk yazdırılabilir.

Procedure TForm1.Button1Click(Sender; Object);
var
Tarih : TDate;
Sonuc : AnsiString;
begin
Tarih := Date;
Sonuc := FormatDateTime(‘dddd, mmmm d,yyyy’, Tarih);
Caption := Sonuc; // Perşembe Temmuz 10 2003 yazar
end;

Tarihsel içerikli değişkenleri formatlamak için kullanabileceğiniz bayağı bir seçeneğiniz var. Aşağıda bu seçeneklerden bazılarını sizlere vermeye çalışacağım.

‘dddd, mmmm d, yyyy’ Perşembe Temmuz 10 2003 gibi
‘mmmm d, yyyy’ Temmuz 10 2003 gibi
‘mmmm yyyy’ Temmuz 2003 gibi
‘yyyy’ 2003 gibi
‘dddd, d, mmmm yyyy’ Perşembe 10 Temmuz 2003 gibi
‘d, mmmm yyyy, dddd’ 10 Temmuz 2003 Gibi



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

Üç parametreyi birleştirerek oluşturacağı tarih değerinden, bir ay sonrasının tarihini hesaplayan fonksiyondur.

Procedure TForm1.Button1Click(Sender; Object);
var
Tarih : TDateTime;
Yil, Ay, Gün : Word;
begin
Yil := 2003;
Ay := 7;
Gün := 10;
IncAMonth(Yil, Ay, Gun); // Ay’ ı artır.
Caption := IntToStr(Yil)+’ ’+IntToStr(Ay)+’ ’+IntToStr(Gun);
end;





IncDay(Tarih);

Parametre ile girilen tarih değerini, gün olarak bir artırmak için kullanılan fonksiyondur. Fonksiyondan geriye dönen değer tarihsel içerikli olacağı için yazdırabilmeniz ancak DateToStr fonksiyonu sayesinde olacaktır.

Procedure TForm1.Button1Click(Sender; Object);
var
Tarih : TDate;
begin
Tarih := Date;
Tarih := IncDay(Tarih); // Tarihi bir gün artır
Caption := DateToStr(Tarih);
end;




IncMonth(Tarih);

Parametre olarak girilen tarih içerikli değişken içeriğindeki ayı bir artırarak yeni bir tarih değeri hesaplar. Fonksiyondan geriye dönen değer tarih içerikli olacağı için yazdırmanız ancak DateToStr fonksiyonundan faydalanmalısınız.

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




IncWeek(Tarih);

Parametre olarak girilen tarih içerikli değişkenin değerini bir hafta artırarak yeni bir tarih hesaplar. Fonksiyondan geriye dönen değer tarih içerikli olacağı için, yazdırmanız ancak DateToStr fonksiyonu tarafından olacaktır.

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