|
|
|
Den v týdnu
|
29.11.2009
|
Úvod
Vypsání dne v týdnu (pondělí, úterý...) do předepsaného Labelu. Místo tlačítka je vhodné schovat spuštění funkce do některé události.
Prvky
Button1 (Caption: Zjisti)
Label1 (Caption: Dnes je:)
Kód
//Funkce Den
Function Jmeno_Dne(Datum :TDateTime):String;
Begin
Datum:=Date();
case DayOfWeek(Datum) of
1 : Result:='Neděle';
2 : Result:='Pondělí';
3 : Result:='Úterý';
4 : Result:='Středa';
5 : Result:='Čtvrtek';
6 : Result:='Pátek';
7 : Result:='Sobota';
end;
end;
//Tlacitko Den
procedure TForm1.Button1Click(Sender: TObject);
var
Result: TDateTime;
begin
Label1.Caption:='Dnes je: '+Jmeno_Dne(Result);
end;
Varianty
16-22:
//Udalost aktivace formu
procedure TForm1.FormActivate(Sender: TObject);
var
Result: TDateTime;
begin
Label1.Caption:='Dnes je: '+Jmeno_Dne(Result);
end;
|
|
|
