นาฬิกานับถอยหลัง
กระทู้เก่าบอร์ด อ.Yeadram

 2,796   1
URL.หัวข้อ / URL
นาฬิกานับถอยหลัง

ผมตั้งเวลา รันคิวรี่ทุกชั่วโมง มันก็ทำงานได้ดี แต่อยากเพิ่ม นาฬิกานับถอยหลัง เพื่องแสดง ระยะเวลาที่จะทำงานครั้งถัดไป โดยบอก hh:mm:ss
   หรือจะแนวคิด ของการทำงานก็ได้ครับ มันงง ตอนต้องแปลง คูณ 1000 เพื่อเป็น วินาที แล้วถ้า นาที กับ ชั่วโมง... กับต้ิองแปลงกลับ ต้องหารด้วย 60 เลยสับสน

1 Reply in this Topic. Dispaly 1 pages and you are on page number 1

1 @R04938
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
@ ประกาศใช้งานเว็บบอร์ดใหม่ => บอร์ดเรียนรู้ Access สำหรับคนไทย
แล้วจะใส่ลิ้งอ้างอิงมาที่โพสต์เก่านี้หรือไม่ก็ตามสะดวกครับ
Time: 0.3688s