초짜 wrote:

> 음냐..제목그대로 Real형의 초를

> 몇시 몇분 몇초로 나누어서 표현하고 싶거덩요...

> 넘 간단해 보이는데 제 머리는 거부하네요...^^

> 꼭좀 도와 주세용...

////////////////////////////////////////////////////////////

Real형이면 round로 소수점을 반올림하여 정수형으로하든 정수분분과 실수부분으로 나눠쓰든하시면되고요, 연산자도 div,mod 대신 실수형연산자로 사용해서 나눠써도 될겁니다.

아래는 예제입니다.

var

TotalSec:integer;

Hour, Min, Sec:integer;

MinCount:integer;

begin

TotalSec := strToInt(Edit3.Text);

MinCount := TotalSec div 60;

Sec := TotalSec mod 60;

Hour := MinCount div 60;

Min := MinCount mod 60;

Edit4.Text := intTostr(Hour) + '시' + intTostr(min) + '분' + intTostr(sec) +'초';

end;