Mega Code Archive

 

Categories / Delphi / Examples

 

Haftanın günü

procedure TForm1.BitBtn1Click(Sender: TObject); begin case dayofweek(Strtodate('16.11.2001')) of 1: Label1.Caption:='pazar'; 2: Label1.Caption:='pazartesi'; 3: Label1.Caption:='salı'; 4: Label1.Caption:='çarşamba'; 5: Label1.Caption:='perşembe'; 6: Label1.Caption:='cuma'; 7: Label1.Caption:='cumartesi'; end; end;