DateTime - Delphi de ile iki tarih arasını hesaplamak

Projelerinizde çoğunlukla iki tarih arasını hesaplayıp kaç gün olduğunu bulmak zorunda kalacaksınız.
Formunuza 1 adet label,2 adet edit ve 1 button ekleyin.Aşağıdaki kodları button click eventına ekleyin ve çalıştırın.

 Label3.Caption:=FloatToStr(
    StrToDate(Edit1.Text)-StrToDate(Edit2.Text))+
      ' oluşan gün farkı';

DateTime -Delphi Haftanın hangi günü olduğunu bulmak.

Projelerinizde haftanın hangi gününde olduğunu bulmak zorunda kalabilirsiniz.Formunuza bir adet button ,bir adet edit  ve bir adet label koyun.

Buttonun click eventına aşağıdaki kodu yazın ve çalıştırın.Yeni bir yazıda görüşmek üzere.

var
  MyDate: TDateTime;
begin
  MyDate:=StrToDateTime(Edit1.Text); //gun ay yıl olarak 
  case DayOfWeek(MyDate) of
    1: Label2.Caption:='Pazar';
    2: Label2.Caption:='Pazartesi';
    3: Label2.Caption:='Salı';
    4: Label2.Caption:='Çarşamba';
    5: Label2.Caption:='Perşembe';
    6: Label2.Caption:='Cuma';
    7: Label2.Caption:='Cumartesi';
  end;