Tùy chọn
Tính khoảng thời gian giữa hai thời điểm (theo phút)
- Tính khoảng thời gian giữa hai thời điểm (theo phút)
-
Tính khoảng thời gian giữa hai thời điểm (theo phút)
tvn_hut > 22-08-13, 05:40 PM
Hi all
Hiện tại mình gặp khó khăn trong việc xử lý tính khoảng thời gian giữa hai thời điểm khác nhau. Hai thời điểm này sẽ được nhập trên form. Trong trường hợp mốc time cuối > mốc time đầu thì có thể làm được nhưng trong trường hợp ngược lại thì không đúng. Ví dụ mốc thời gian đầu là 22:15 và mốc thời gian sau là 1:15 chẳng hạn. Thời gian giới hạn chỉ trong 24h thôi. Kết quả đúng phải là 360 phút. Vậy nhờ các bạn giúp mình thủ thuật này nhé
Cám ơn các bạn nhiều -
RE: Tính khoảng thời gian giữa hai thời điểm (theo phút)
cpucloi > 22-08-13, 09:43 PM
Gợi ý cho bạn nhé:
1. Nên thiết đặt thêm thuộc tính ngày, khi đó dùng các hàm DateTime để tính tương ứng ra số giờ.
2. Dùng hàm if để xử lý.
(Hướng dẫn chi tiết quá sợ bạn không chịu tư duy, cái này thiên về toán học một chút)
Chúc thành công -
RE: Tính khoảng thời gian giữa hai thời điểm (theo phút)
truonghet > 23-08-13, 12:01 AM
(22-08-13, 05:40 PM)tvn_hut Đã viết: Hi all
Hiện tại mình gặp khó khăn trong việc xử lý tính khoảng thời gian giữa hai thời điểm khác nhau. Hai thời điểm này sẽ được nhập trên form. Trong trường hợp mốc time cuối > mốc time đầu thì có thể làm được nhưng trong trường hợp ngược lại thì không đúng. Ví dụ mốc thời gian đầu là 22:15 và mốc thời gian sau là 1:15 chẳng hạn. Thời gian giới hạn chỉ trong 24h thôi. Kết quả đúng phải là 360 phút. Vậy nhờ các bạn giúp mình thủ thuật này nhé
Cám ơn các bạn nhiều
Chào bạn!
Nói chung mềnh chưa rõ ý bạn 24h là gì. Nhưng theo logic đúng thì chỉ có 3h thôi.
Sử dụng logic này nhé:
Hour = (IIf([End Time]<[Start Time],[End Time]-[Start Time]+24,[End Time]-[Start Time]))
chúc bạn thành công -
RE: Tính khoảng thời gian giữa hai thời điểm (theo phút)
thquanks > 23-08-13, 08:49 AM
time cuối (t2) > mốc time đầu (t1) thì kq = t2-t1.
time cuối (t2) < mốc time đầu (t1) thì kq = t2+24-t1.
---là OK -
RE: Tính khoảng thời gian giữa hai thời điểm (theo phút)
thquanks > 23-08-13, 10:43 AM
-
RE: Tính khoảng thời gian giữa hai thời điểm (theo phút)
tvn_hut > 23-08-13, 05:01 PM
Hi all, Cám ơn các bạn nha
Đúng là không có cách nào ngoài việc cộng thêm 24h cả. Mình cũng đã thử và kết quả tạm hài lòng
Đây là code mình viết, nếu bạn nào có cách viết hay hơn thì cho mình hay nhé:
]Mã PHP:[Dim Mtime As Date
Private Sub CboDETime_AfterUpdate()
If Not IsNull(Me![DSTime]) And Not IsNull(Me![DETime]) Then
If Hour(Me![DETime]) > Hour(Me![DSTime]) Then
Mtime = (Me![DETime] - Me![DSTime])
Else
Mtime = (Me![DETime] + 24 - Me![DSTime])
End If
TotDownTime = IIf(Hour(Mtime) = 12, 0, Hour(Mtime) * 60) + Minute(Mtime)
End If
End Sub
Private Sub DSTime_AfterUpdate()
If Not IsNull(Me![DSTime]) And Not IsNull(Me![DETime]) Then
If Hour(Me![DETime]) > Hour(Me![DSTime]) Then
Mtime = (Me![DETime] - Me![DSTime])
Else
Mtime = (Me![DETime] + 24 - Me![DSTime])
End If
TotDownTime = IIf(Hour(Mtime) = 12, 0, Hour(Mtime) * 60) + Minute(Mtime)
End If
End Sub
Private Sub CboTotDownTime_AfterUpdate()
If Not IsNull(Me![DSTime]) And Not IsNull(Me![DETime]) Then
If Hour(Me![DETime]) > Hour(Me![DSTime]) Then
Mtime = (Me![DETime] - Me![DSTime])
Else
Mtime = (Me![DETime] + 24 - Me![DSTime])
End If
TotDownTime = IIf(Hour(Mtime) = 12, 0, Hour(Mtime) * 60) + Minute(Mtime)
End If
If Not IsNull(Me![DSTime]) And Not IsNull(Me![DETime]) Then
Mtime = CVDate(Me![DSTime]) + CVDate(Me![TotDownTime] \ 60 & ":" & Me![TotDownTime] - (Me![TotDownTime] \ 60) * 60)
Me![DETime] = Mtime
End If
End Sub/php
[/php]
