กระทู้เก่าบอร์ด อ.Yeadram
2,796 1
URL.หัวข้อ /
URL
นาฬิกานับถอยหลัง
ผมตั้งเวลา รันคิวรี่ทุกชั่วโมง มันก็ทำงานได้ดี แต่อยากเพิ่ม นาฬิกานับถอยหลัง เพื่องแสดง ระยะเวลาที่จะทำงานครั้งถัดไป โดยบอก hh:mm:ss
หรือจะแนวคิด ของการทำงานก็ได้ครับ มันงง ตอนต้องแปลง คูณ 1000 เพื่อเป็น วินาที แล้วถ้า นาที กับ ชั่วโมง... กับต้ิองแปลงกลับ ต้องหารด้วย 60 เลยสับสน
หรือจะแนวคิด ของการทำงานก็ได้ครับ มันงง ตอนต้องแปลง คูณ 1000 เพื่อเป็น วินาที แล้วถ้า นาที กับ ชั่วโมง... กับต้ิองแปลงกลับ ต้องหารด้วย 60 เลยสับสน
1 Reply in this Topic. Dispaly 1 pages and you are on page number 1
Time: 0.3688s
Function TimeLeft(dst As Date) As String
Dim z, h, n, s As Long
z = DateDiff("s", Now(), dst, vbSunday, vbFirstJan1)
h = z \ 3600
n = (z - (h * 3600)) \ 60
s = z - ((n * 60) + (h * 3600))
TimeLeft = Format(h, "00") & ":" & Format(n, "00") & ":" & Format(s, "00")
End Function
-------ทดสอบ--------
Sub TestTimeLeft()
' Random next time for test function
Dim x
Dim d As Date
Randomize
x = CInt(Rnd() * 7) * 1013
d = DateAdd("s", x, Now())
MsgBox "Next time = " & Format(d, "General Date") & vbCrLf & "Time Left = " & TimeLeft(d)
'MsgBox TimeLeft(#2/18/2010 8:15:00 AM#)
End Sub