Day_of_week

Internφ programovacφ jazykC/C++PascalSQL

function Day_of_week(dt : date) : integer;
int Day_of_week(uns32 dt);
function Day_of_week(dt : uns32) : integer;

Parametry

Dt datum

Popis

Funkce Day_of_week zjiÜ¥uje den v t²dnu odpovφdajφcφ zadanΘmu datu.

Hodnota funkce

Funkce vracφ Φφslo oznaΦujφcφ den v t²dnu, toto Φφslo le₧φ v intervalu 0 a₧ 6. Hodnota 0 odpovφdß ned∞li, hodnota 1 pond∞lφ a₧ hodnota 6 odpovφdß sobot∞. Pokud mß datum nep°φpustn² formßt, funkce vracφ hodnotu 7.

P°φklad

var
  ss : string[30];
  i : short;
begin
  i :=  Day_of_week(Today);
  ss := "Dnes je "+(i=0 ? "ned∞le" : i=1 ? "pond∞lφ" : i=2 ? "·ter²" : i=3 ? "st°eda" : i=4 ? "Φtvrtek": i=5 ? "pßtek" : "sobota");
  Info_box("",ss);
end.

Viz