秒數轉做小時,分鐘,秒 |
尚未結案
|
Naivex小。影
一般會員 發表:1 回覆:0 積分:0 註冊:2009-04-24 發送簡訊給我 |
|
小傑克
資深會員 發表:5 回覆:209 積分:357 註冊:2009-02-16 發送簡訊給我 |
這.....你可能還要找一本基本pascal 語法書看一下, 這都是用基本運算就能做的,如果IntToStr , Pos , LeftStr ....這類基本函數不熟的話,撰寫程式可能會遇到很多困難
[code delphi] function TfrmMain.SecToDateTimeString(iSecond: longint): String; var iHour,iMinute,iSec:longint; itmp:Longint; begin iSec := iSecond mod 60 ; iHour := iSecond div ( 60*60); iMinute := ((iSecond - iSec) - iHour*(60*60) ) div 60 ; Result := IntToStr(iHour) '小時:' IntToStr(iMinute) '分:' IntToStr(iSec) '秒'; end; procedure TfrmMain.Button1Click(Sender: TObject); begin ShowMessage(SecToDateTimeString(StrToInt64( Edit1.Text))); end; [/code]
------
額有朝天骨,眼中有靈光
編輯記錄
小傑克 重新編輯於 2009-04-25 08:39:19, 註解 無‧
|
Ktop_Robot
站務副站長 發表:0 回覆:3511 積分:0 註冊:2007-04-17 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |