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;