Помогите решить

[maximon]

Помогите решить в Delphi:
Текущее время (часы, минуты, секунды) задано тремя переменными: h, m s. Округлить его до целых значений минут и часов. Например, 14 ч 21 мин 45 с преобразуется в 14 ч 22 мин или 14 ч, а 9 ч 59 мин 23 с – соответственно в 9 ч 59 мин или 10 ч.

[_Dmitry]

Ну, и в чем затруднение?

if s >= 30 then m:=m+1;
if m >= 30 then h:=h+1;
if h = 24 then h:=0;

[Stilet]

Функции типа Hour (см хелп) отделят тебе минуты часы и секунды а далее округляй

[maximon]

А как это записать именно в delphi? Я примерно представляю но вот не хвататет информации сижу щас уже часа 3 искал но не чего не могу найти как все это соеденить в одно и что бы программка заработала. И вот решил зайти на форум что бы люди помогли решить а после уже по коду смотреть что и как тут сделано. Ну как бы сказать на живом примере уже догонять

[maximon]

Сообщение от _Dmitry

Ну, и в чем затруднение?

if s >= 30 then m:=m+1;
if m >= 30 then h:=h+1;
if h = 24 then h:=0;

Я как понял этот код отвечает за округдение? Я как понял нужно применить Round(x) для округления до целого значения но как это написать не могу понять

[_Dmitry]

Round округляет дробное число до целого, например, round(4.8)=5. У вас же часы, минуты, секунды в разных переменных и здесь он не нужен.

[maximon]

procedure TForm1.Button1Click(Sender: TObject);
var
s,m,h: integer;
begin
 h:=StrToInt(Edit1.Text);
 m:=StrToInt(Edit2.Text);
 s:=StrToInt(Edit3.Text);
 if s>=30 then m:=m+1;
 if m>=30 then h:=h+1;
 if h=24 then h:=0;

end;

Это так получаеться нужно написать или я что то не допонимаю

[maximon]

_Dmitry помочь можешь решить задачу? Если нужно я могу заплатить

[Карась]

Сообщение от maximon

procedure TForm1.Button1Click(Sender: TObject);
var
s,m,h: integer;
begin
 h:=StrToInt(Edit1.Text);
 m:=StrToInt(Edit2.Text);
 s:=StrToInt(Edit3.Text);
 if s>=30 then m:=m+1;
 if m>=30 then h:=h+1;
 if h=24 then h:=0;

end;

Это так получаеться нужно написать или я что то не допонимаю

похоже что так... Она работает? Тебе осталось только кудато ввывести уже круглённый результат.

[_Dmitry]

Так ты ведь уже все написал, нужно только печатать результат, например, в Edit4 и Edit5

procedure TForm1.Button1Click(Sender: TObject);   
var  
s,m,h: integer;   
begin  
 h:=StrToInt(Edit1.Text);   
 m:=StrToInt(Edit2.Text);   
 s:=StrToInt(Edit3.Text);   
 if s>=30 then m:=m+1;
 Edit4.Text:=IntToStr(h)+':'+IntToStr(m);   
 if m>=30 then h:=h+1;   
 if h=24 then h:=0;   
 Edit5.Text:=IntToStr(h);  
end;