ขอสคริปท์ทำวินาทีให้เป็นชัวโมงหน่อยครับ

[Vegeta]

ช่วงนี้ปัญหาหัวใจเยอะจัด ชักเบลอครับ
ขอ สคริปท์รายงาน (ปาสคาล) ที่แปลงจาก วินาที ให้เป็น ชม:นาที:วินาที  หน่อยครับ
ขอบคุณครับ

[pop_hosxp]

 sectotime(sec) กลับกันก็ timetosec(time) แต่เป็นคำสั่ง sql เลยนะครับ ไม่ได้เป็น pascal เช่น select timetosec(rcpt_print_datetime) from rcpt_print พอได้ตัวเลขที่เป็นวินาทีไปคำนวณแล้วค่อยแปลงกลับด้วย sectotime

[doramon]

ช่วงนี้ปัญหาหัวใจเยอะจัด ชักเบลอครับ
ขอ สคริปท์รายงาน (ปาสคาล) ที่แปลงจาก วินาที ให้เป็น ชม:นาที:วินาที  หน่อยครับ
ขอบคุณครับ

โค๊ด: Delphi

1.  
2. function SecToTime(Sec: Integer): string;
3. var
4.    H, M, S: string;
5.    ZH, ZM, ZS: Integer;
6. begin
7.    ZH := Sec div 3600;
8.    ZM := Sec div 60 - ZH * 60;
9.    ZS := Sec - (ZH * 3600 + ZM * 60) ;
10.    H := IntToStr(ZH) ;
11.    M := IntToStr(ZM) ;
12.    S := IntToStr(ZS) ;
13.    Result := H + ':' + M + ':' + S;
14. end;
15.  
16.  

[Vegeta]

ขอบคุณครับ อ.อ๊อด