กระทู้เก่าบอร์ด อ.Yeadram
996 2
URL.หัวข้อ /
URL
ต้องเขียนโค๊ดไหมครับหากต้องการให้คำนวณเวลา
คือผมยังเขียนโค๊ดไม่เป็นแต่ลองออกแบบเป็นเวลาที่ทำงานกับเวลาที่เลิกงานให้มันคำนวณชั่วโมงออกมาเลย สามารถทำได้ไหมครับ แล้วทำยังไง หรือว่าต้องเขียนโค๊ดอย่างเดียวเลยไม่มีวิธีอื่นแล้ว
เช่น เวลาทำงาน (ตรงนี้ใส่เวลาลงไป)
เวลาเลิกงาน (ตรงนี้ก็ใส่เวลาเลิกงานลงไป)
สุดท้ายก็เป็นช่องผลรวมของเวลาที่ทำมาทั้งหมด
ตัวอย่าง เวลาทำงาน 08.30 น.
เวลาเงินงาน 16.30 น.
รวมเวลาทั้งหมด 8.00 ชั่วโมง
ประมาณนี้ครับ
เช่น เวลาทำงาน (ตรงนี้ใส่เวลาลงไป)
เวลาเลิกงาน (ตรงนี้ก็ใส่เวลาเลิกงานลงไป)
สุดท้ายก็เป็นช่องผลรวมของเวลาที่ทำมาทั้งหมด
ตัวอย่าง เวลาทำงาน 08.30 น.
เวลาเงินงาน 16.30 น.
รวมเวลาทั้งหมด 8.00 ชั่วโมง
ประมาณนี้ครับ
2 Reply in this Topic. Dispaly 1 pages and you are on page number 1
2 @R18042
ขอบคุณครับ เดี๋ยวจะไปทดลองมั่วดู ถ้าทำไม่ได้หรือไม่เข้าใจ จะมาขอรบกวนอีกครั้งนะครับ
Time: 0.3716s
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