BMS-HOSxP Community

HOSxP => Report Exchange => ข้อความที่เริ่มโดย: Vegeta ที่ กุมภาพันธ์ 24, 2011, 14:47:43 PM

หัวข้อ: ขอสคริปท์ทำวินาทีให้เป็นชัวโมงหน่อยครับ
เริ่มหัวข้อโดย: Vegeta ที่ กุมภาพันธ์ 24, 2011, 14:47:43 PM
ช่วงนี้ปัญหาหัวใจเยอะจัด ชักเบลอครับ
ขอ สคริปท์รายงาน (ปาสคาล) ที่แปลงจาก วินาที ให้เป็น ชม:นาที:วินาที  หน่อยครับ
ขอบคุณครับ
หัวข้อ: Re: ขอสคริปท์ทำวินาทีให้เป็นชัวโมงหน่อยครับ
เริ่มหัวข้อโดย: pop_hosxp ที่ กุมภาพันธ์ 24, 2011, 19:54:19 PM
 sectotime(sec) กลับกันก็ timetosec(time) แต่เป็นคำสั่ง sql เลยนะครับ ไม่ได้เป็น pascal เช่น select timetosec(rcpt_print_datetime) from rcpt_print พอได้ตัวเลขที่เป็นวินาทีไปคำนวณแล้วค่อยแปลงกลับด้วย sectotime
หัวข้อ: Re: ขอสคริปท์ทำวินาทีให้เป็นชัวโมงหน่อยครับ
เริ่มหัวข้อโดย: doramon ที่ กุมภาพันธ์ 24, 2011, 20:38:22 PM
อ้างจาก: Vegeta ที่ กุมภาพันธ์ 24, 2011, 14:47:43 PM
ช่วงนี้ปัญหาหัวใจเยอะจัด ชักเบลอครับ
ขอ สคริปท์รายงาน (ปาสคาล) ที่แปลงจาก วินาที ให้เป็น ชม:นาที:วินาที  หน่อยครับ
ขอบคุณครับ



โค๊ด: 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.  

หัวข้อ: Re: ขอสคริปท์ทำวินาทีให้เป็นชัวโมงหน่อยครับ
เริ่มหัวข้อโดย: Vegeta ที่ กุมภาพันธ์ 25, 2011, 09:17:41 AM
ขอบคุณครับ อ.อ๊อด