ต้องเขียนโค๊ดไหมครับหากต้องการให้คำนวณเวลา
กระทู้เก่าบอร์ด อ.Yeadram

 996   2
URL.หัวข้อ / URL
ต้องเขียนโค๊ดไหมครับหากต้องการให้คำนวณเวลา

คือผมยังเขียนโค๊ดไม่เป็นแต่ลองออกแบบเป็นเวลาที่ทำงานกับเวลาที่เลิกงานให้มันคำนวณชั่วโมงออกมาเลย สามารถทำได้ไหมครับ แล้วทำยังไง หรือว่าต้องเขียนโค๊ดอย่างเดียวเลยไม่มีวิธีอื่นแล้ว
เช่น เวลาทำงาน (ตรงนี้ใส่เวลาลงไป)
      เวลาเลิกงาน (ตรงนี้ก็ใส่เวลาเลิกงานลงไป)
      สุดท้ายก็เป็นช่องผลรวมของเวลาที่ทำมาทั้งหมด
    ตัวอย่าง เวลาทำงาน 08.30 น.
               เวลาเงินงาน 16.30 น.
               รวมเวลาทั้งหมด 8.00 ชั่วโมง
ประมาณนี้ครับ

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

1 @R18031
สร้าง text box ดังต่อไปนี้
txtTimeIn - Format = "hh:nn"
txtTimeOut - Format = "hh:nn"
txtWorkTime - Format = "0.00"

แบบไม่เขียน code
กำหนด Control Source ของ txtWorkTime "=IIf(IsNull([txtTimeIn]) Or IsNull([txtTimeOut]),0,Hour([txtTimeOut]-[txtTimeIn])+Minute([txtTimeOut]-[txtTimeIn])/60)"

แบบเขียน code
Private Sub txtTimeIn_AfterUpdate()
    UpdateWorkTime
End Sub

Private Sub txtTimeOut_AfterUpdate()
    UpdateWorkTime
End Sub

Private Sub UpdateWorkTime
    If IsNull(txtTimeIn) or IsNull(txtTimeOut) Then
        txtWorkTime = 0
    Else
        txtWorkTime = Hour([txtTimeOut]-[txtTimeIn])+Minute([txtTimeOut]-[txtTimeIn])/60
    End If
End Sub
2 @R18042
ขอบคุณครับ เดี๋ยวจะไปทดลองมั่วดู ถ้าทำไม่ได้หรือไม่เข้าใจ จะมาขอรบกวนอีกครั้งนะครับ
@ ประกาศใช้งานเว็บบอร์ดใหม่ => บอร์ดเรียนรู้ Access สำหรับคนไทย
แล้วจะใส่ลิ้งอ้างอิงมาที่โพสต์เก่านี้หรือไม่ก็ตามสะดวกครับ
Time: 0.3716s