귀하는 손님 이십니다
로그인
회원가입
  
  델마당 공식 은행계좌
  하나은행 227-910235-83607
  예금주 이상국(운영진)
프로젝트 게시판
투표게시판
델마당소개
기초부터 활용까지! 델파이 교육 - 데브기어
 광고문의 :
媛뺤쥖, 똻, 젙蹂 媛뺤쥖, 똻, 젙蹂 입니다.
글내용 - 媛뺤쥖, 똻, 젙蹂
 [똻] 珥덈 0떆媛 0遺 0珥덉떇쑝濡 由ы꽩븯뒗 濡쒖쭅(븿닔)
媛쓣씠떎
(씠쁽泥)
2017-11-06 삤쟾 10:22:25
카테고리: 똻
1881회 조회



등록된 파일이 없습니다.
媛쒕컻 봽濡쒖젥듃以 珥덈 0떆媛 0遺 0珥덉떇쑝濡 굹궡빞븯뒗 遺遺꾩씠 엳뼱
媛꾨떒엳 븿닔瑜 留뚮뱾뼱 蹂댁븯뒿땲떎. ^^

깮媛곷굹뒗뜲濡 諛붾줈 留뚮뱺嫄곕씪.. 냼뒪뒗 醫 吏遺꾪븷닔 엳뒗젏 ..뼇빐遺긽뱶由쎈땲떎.

//珥덈 엯젰븯硫 0떆媛 0遺 0珥 떇쑝濡 由ы꽩븳떎
//ex: 4600 -> 1떆媛 16遺 40珥
function GetTimeToStr(sec : double) : string;

  function GetDigit(num : integer):string;
  var
    sss : string;
  begin
    sss := inttostr(num);
    if length(sss) = 1 then result := '0' + sss
    else                    result := sss;
  end;

  function LeftStr(const Str: string; Size: Word): string;
  begin
    LeftStr := Copy(Str,1,Size)
  end;

var
  rsec, hhour, mmin, ssec : integer;
  r_hour, r_min, r_sec : string;
begin
  rsec := Trunc(sec);

  if rsec < 60 then
    begin
      r_sec := GetDigit(rsec); if LeftStr(r_sec, 1) = '0' then delete(r_sec, 1, 1);
      result := r_sec + '珥';
      exit;
    end;

  mmin := Trunc(rsec / 60);
  ssec := rsec - (mmin * 60);

  if mmin < 60 then
    begin
      r_sec := GetDigit(ssec); if LeftStr(r_sec, 1) = '0' then delete(r_sec, 1, 1);
      r_min := GetDigit(mmin); if LeftStr(r_min, 1) = '0' then delete(r_min, 1, 1);

      result := r_min + '遺 ' + r_sec + '珥';
      exit;
    end;

  hhour := Trunc(mmin / 60);
  mmin := mmin - (hhour * 60);

  r_sec := GetDigit(ssec); if LeftStr(r_sec, 1) = '0' then delete(r_sec, 1, 1);
  r_min := GetDigit(mmin); if LeftStr(r_min, 1) = '0' then delete(r_min, 1, 1);
  r_hour := GetDigit(hhour); if LeftStr(r_hour, 1) = '0' then delete(r_hour, 1, 1);

  result := r_hour + '떆媛 ' + r_min + '遺 ' + r_sec+ '珥';
end;