Make_time

Internφ programovacφ jazykC/C++PascalSQL

function Make_time(hours, minutes, seconds, sec1000 : integer) : time;
uns32 Make_time(int hours, int minutes, int seconds, int sec1000);
function Make_time(hours, minutes, seconds, sec1000 : integer) uns32;

Parametry

hours poΦet hodin
minutes poΦet minut
seconds poΦet sekund
sec1000 poΦet tisφcin sekundy

Popis

Funkce Make_time vytvß°φ ·daj o Φase ze 4 slo₧ek: hodin, minut, sekund a setin sekundy. Povolen² rozsah pro hodiny je 0 a₧ 23, pro minuty a sekundy 0 a₧ 59, pro tisφciny 0 a₧ 999.

Hodnota funkce

Funkce vracφ vytvo°en² ·daj o Φase ve vnit°nφm formßtu WinBase602.

P°φklad

function Kontrola : Boolean;
{**************************************************}
{porovnß dva ΦasovΘ ·daje}
begin
  Kontrola := True;
  t1 := Make_time(am1=0 ? h1 : h1+12, m1, 0,0);
  t2 := Make_time(am2=0 ? h2 : h2+12, m2, 0,0);
  if t2 <= t1 then begin
    Info_box("Nelze","╚as OD je menÜφ (roven) Φasu DO");
    Kontrola := False;
  end
end;

Viz