Giup toi viet cai ham tinh thoi gian

[duong_dvt5_dq]

Cac ban giup minh cai ham nay nhe (trong Access)
* Form bao gom cac truong sau:
- Thoi gian bat dau: (vd:12:00)
- Thoi gian ket thuc: (vd: 13:00)
- Tong thoi gian : (Chua ham tinh thoi gian = thoi gian ket thuc-Thoi gian bat dau) vd:01:00
Rat mong nhan duoc hoi am.

[cpucloi]

Tự hỏi tự trả lời rồi, hỏi chi cho mệt.

[ltuananh]

Bạn có thể nói rõ thêm không. Chẳng hạn như Thời gian bắt đầu và thời gian kết thúc là mình nhập hay sao (đối tượng nhập vào là gì textbox phải không?)

[sinhvienvn2005]

Cac ban giup minh cai ham nay nhe (trong Access)
* Form bao gom cac truong sau:
- Thoi gian bat dau: (vd:12:00)
- Thoi gian ket thuc: (vd: 13:00)
- Tong thoi gian : (Chua ham tinh thoi gian = thoi gian ket thuc-Thoi gian bat dau) vd:01:00
Rat mong nhan duoc hoi am.
Bạn thử cái này coi:
- Tạo form với 3 textbox + 1 button: txt1, txt2, txtkq + cmdtinh
- Yêu cầu nhập liệu theo đúng định dạng như bạn đã vd: 12:00, 13:00,...
- Tạo 1 sub như sau cho sự kiện click() nút cmdtinh:
Private sub cmdtinh_click()
dim tgbd, tgkt, tinh as integer
dim phanphut as integer
' chuyen sang phut
tgbd = val(left(txt1.text)) + val(right(txt1.text))
tgkt = val(left(txt2.text)) + val(right(txt2.text))
tinh = tgkt - tgbd
phanphut = (tinh - fix(tinh/60)*60)
if tinh < 60 then
txtkq.text = "00:" & str(phanphut)
end if
if tinh >= 60 then
if phanphut = 0 then
txtkq.text = str(fix(tinh/60)) & ":00"
else ' phanphut > 0, ko tinh cho phanphut < 0
txtkq.text = str(fix(tinh/60)) & str(phanphut)
end if
end sub
Đại khái thuật toán là như vậy!
Có thể một vài cấu trúc lệnh mình ko nhớ nên ghi ko đúng!Bạn có thể sửa lại cho đúng nghen!

[willse7en]

ủa, mình nhớ là có hàm Hour() và ham Minute() mà, sao bạn ko xài

[sinhvienvn2005]

ủa, mình nhớ là có hàm Hour() và ham Minute() mà, sao bạn ko xài
Theo đúng yêu cầu của người hỏi với định dạng giờ nhập vào có dạng kiểu như: 12:00, 13:00,... thì mình đưa ra ý tưởng như trên thui!
Nói chung là có vô vàn cách mà bạn!