Nalicznik Spoznien (Stoper)

Mam taki sam program cos podobnego do Odliczanie i teraz odliczanie jest ustawione automatycznie np na godzine X jezeli uzytkownik wcisnie przycisk 5-15 minutach to choc byl np 8 godzin to zostaje mu odjete 15 minut; jezeli wcisnol 15-30 minutach od np 8 godzin odejmie 30 minut; jezeli wcisnol 30-60 minut od np 8 godziny odejmie 60 minut. Moj czas to 12h

Dziekuje za pomoc

fajnie, cieszy nas to ale gdzie pytanie??

Bardzo przepraszam:

Jak napisac funkcje:
function timeup (Hour: integer(hmm a mozeDateTime??), Minute: integer(hmm a mozeDateTime??)NowHour: integer(hmm a mozeDateTime??)) : Integer

i zwraca ile ma zostac odjete od jakies warosci powiedzmy 10 (Funkcja zwrocila 10)

Teraz chcialbym aby funkcja robila cos takiego:
Uytkownik wcisnie przycisk 5-15 minutach od czasu startowego podanego do fukcji az do teraz to fukcja wyrzuci 15.
Jezeli ponizej 5 to fukcja poda wartosc 0
Jezeli wcisnol 15-30 minutach to 30;
Jezeli wcisnol 30-60 minut to 60.

Moj czas to 12h

Przepraszam za klopot i dziekuje

nie sprawdzane ale powinno działać

function TimeUp(Time: TTime): Word;
var
  wHour, wMin, wSec, wMSec : Word;
begin
  DecodeTime(Now - Time, wHour, wMin, wSec, wMSec);
  case wMin of
    1..15: result := 15;
    16..30: result := 30;
    31..59: result := 60;
    else
      result := 0;
end;