Hỏi về Hàm trả về thời gia thực

[yeuthamhangxom]

Gửi các anh chị trên GPE.
em có câu hỏi nhờ các anh chị giúp.
Tại ô A1 sẽ hiển thị thời gian thực theo máy (số giây, phút, giờ) tự động nhảy theo đồng hồ của máy tính.
Tại ô A2 là ngày giờ chuẩn 1 mốc nào đó ví dụ 9h30 phút 50 giây.
Tại ô A3 là giờ chênh lệch. Nghĩa là so sách giờ trong máy ở ô A1 với giờ chuẩn ở ô A2 kết quả trả về ô A3 là thời gian.
Mong các anh chị giúp.
Cám ơn cả nhà.

 

[dat_butmuc]

Gửi các anh chị trên GPE.
em có câu hỏi nhờ các anh chị giúp.
Tại ô A1 sẽ hiển thị thời gian thực theo máy (số giây, phút, giờ) tự động nhảy theo đồng hồ của máy tính.
Tại ô A2 là ngày giờ chuẩn 1 mốc nào đó ví dụ 9h30 phút 50 giây.
Tại ô A3 là giờ chênh lệch. Nghĩa là so sách giờ trong máy ở ô A1 với giờ chuẩn ở ô A2 kết quả trả về ô A3 là thời gian.
Mong các anh chị giúp.
Cám ơn cả nhà.

Bạn thử công thức này xem có đúng ý bạn không,
Nhớ mặc định giờ, phút, giây trong các ô nhé !
=TIME(HOUR(VALUE(A1)-VALUE(A2)),MINUTE(VALUE(A1-VALUE(A2)),SECOND(VALUE(A1-VALUE(A2)))

 

[concogia]

Gửi các anh chị trên GPE.
em có câu hỏi nhờ các anh chị giúp.
Tại ô A1 sẽ hiển thị thời gian thực theo máy (số giây, phút, giờ) tự động nhảy theo đồng hồ của máy tính.
Tại ô A2 là ngày giờ chuẩn 1 mốc nào đó ví dụ 9h30 phút 50 giây.
Tại ô A3 là giờ chênh lệch. Nghĩa là so sách giờ trong máy ở ô A1 với giờ chuẩn ở ô A2 kết quả trả về ô A3 là thời gian.
Mong các anh chị giúp.
Cám ơn cả nhà.

Định dạng 3 ô đó: h:mm:ss
[a1]= now()
[a2]= giờ chuẩn
[a3]= a1-a2 hoặc a2-a1 tùy bạn
Thân

 

[yeuthamhangxom]

Bạn thử công thức này xem có đúng ý bạn không,
Nhớ mặc định giờ, phút, giây trong các ô nhé !
=TIME(HOUR(VALUE(A1)-VALUE(A2)),MINUTE(VALUE(A1-VALUE(A2)),SECOND(VALUE(A1-VALUE(A2)))

vẫn chưa đúng ý mình mong bạn giúp mình thêm lần nữa. ý mình là ô A1 phải nhảy thời gian thực theo thời gian trong máy tính. còn ô A2 là 1 thời gian cụ thể nào đó. còn ô A3 là ô so sánh thời gian thực ở ô A1 và thời gian cụ thể ở ô A2. mong bạn giúp mình lần nữa nha. Cám ơn bạn.

Định dạng 3 ô đó: h:mm:ss
[a1]= now()
[a2]= giờ chuẩn
[a3]= a1-a2 hoặc a2-a1 tùy bạn
Thân

Hàm now() của bạn rất hay nhưng nếu sau đó 1 s hay 2s hay 3s... thì nó vẫn chưa tự động nhảy theo thời gian của máy tính. Ý mình là ô A1 phải hiển thị thời gian của máy tính "tự động nhảy thời gian như 1 cái đồng hồ" còn ô A2 là 1 mốc thời gian chuẩn. còn ô A3 sẽ so sánh thời gian của 2 ô A1 và A2. Mong bạn giúp mình thêm lần nữa nha.
Cám ơn bạn.

 

[Hai Lúa Miền Tây]

vẫn chưa đúng ý mình mong bạn giúp mình thêm lần nữa. ý mình là ô A1 phải nhảy thời gian thực theo thời gian trong máy tính. còn ô A2 là 1 thời gian cụ thể nào đó. còn ô A3 là ô so sánh thời gian thực ở ô A1 và thời gian cụ thể ở ô A2. mong bạn giúp mình lần nữa nha. Cám ơn bạn.

Vậy thì như sau:
A1=Now()
A2=giờ của bạn
A3=Mod(A2-A1,1)

 

[yeuthamhangxom]

Vậy thì như sau:
A1=Now()
A2=giờ của bạn
A3=Mod(A2-A1,1)

vẫn chưa đúng ý mình chắc tại máy của mình hay sao. Ý mình là ô A1 sẽ nhảy thời gian như 1 cái đồng hồ ý. còn ô A2 sẽ là 1 mốc thời gian. còn ô A3 sẽ so sánh 2 thời gian ở 2 ô đó và nó cũng nhảy từng giây như 1 cái đồng hồ ý. bạn giúp mình lần nữa nha.
Cám ơn bạn.

 

[Hai Lúa Miền Tây]

vẫn chưa đúng ý mình chắc tại máy của mình hay sao. Ý mình là ô A1 sẽ nhảy thời gian như 1 cái đồng hồ ý. còn ô A2 sẽ là 1 mốc thời gian. còn ô A3 sẽ so sánh 2 thời gian ở 2 ô đó và nó cũng nhảy từng giây như 1 cái đồng hồ ý. bạn giúp mình lần nữa nha.
Cám ơn bạn.

Có lẽ phải dùng VBA thôi bạn à.

Option Explicit
Public nTime As Double
Public Sub StopTimer()
Application.OnTime nTime, "RunTimer", , False
End Sub
Public Sub RunTimer()
With ActiveSheet.Range("A1")
.Value = Time + TimeSerial(0, 0, 1)
.NumberFormat = "hh:mm:ss"
End With
nTime = Now + TimeSerial(0, 0, 1)
Application.OnTime nTime, "RunTimer"
End Sub

Bạn xem file đính kèm nhé

 

[ndu96081631]

vẫn chưa đúng ý mình chắc tại máy của mình hay sao. Ý mình là ô A1 sẽ nhảy thời gian như 1 cái đồng hồ ý. còn ô A2 sẽ là 1 mốc thời gian. còn ô A3 sẽ so sánh 2 thời gian ở 2 ô đó và nó cũng nhảy từng giây như 1 cái đồng hồ ý. bạn giúp mình lần nữa nha.
Cám ơn bạn.

Xem file này thế nào nhé
Yêu cầu về đồng hồ trên cell đã có nói nhiều trên diển đàn rồi (thiết nghĩ bạn nên search trước khi hỏi)
--------------
Tôi nghĩ bạn cần lấy độ chệnh lệch thời gian để làm cái gì sau đó chứ, đúng không? Chẳng hạn đúng thời gian quy định thì sẽ BÁO ĐỘNG
Tặng bạn thêm 1 cái Clock_And_Alarm nữa để tham khảo

 

[yeuthamhangxom]

cám ơn anh domfootwear và ndu96081631
thành thận xin lỗi vì em chưa search trước khi hỏi. Bài hai anh gửi đã đúng ý em rồi. Tiện đây cho em hỏi thêm câu hỏi phụ về chủ đề này. Giả sử nếu ô A1 em gõ là 10:00:00 sau khi Enter thì ô đó tự động đếm giờ " từ thời gian là 10:00:00" trở đi. và ô A2 vẫn là ô mốc thời gian nào đó. và ô A3 là ô so sách và cũng tự động chạy thời gian theo ô A1.
Cám ơn hai anh và mọi người đã giúp đỡ.
http://www.giaiphapexcel.com/forum/member.php?u=61139

 

[Hai Lúa Miền Tây]

cám ơn anh domfootwear và ndu96081631
thành thận xin lỗi vì em chưa search trước khi hỏi. Bài hai anh gửi đã đúng ý em rồi. Tiện đây cho em hỏi thêm câu hỏi phụ về chủ đề này. Giả sử nếu ô A1 em gõ là 10:00:00 sau khi Enter thì ô đó tự động đếm giờ " từ thời gian là 10:00:00" trở đi. và ô A2 vẫn là ô mốc thời gian nào đó. và ô A3 là ô so sách và cũng tự động chạy thời gian theo ô A1.
Cám ơn hai anh và mọi người đã giúp đỡ.

Vậy bạn dùng code sau:

Option Explicit
Public nTime As Double
Public Sub StopTimer()
Application.OnTime nTime, "RunTimer", , False
End Sub
Public Sub RunTimer()
With ActiveSheet.Range("A1")
.Value = .Value + TimeSerial(0, 0, 1)
.NumberFormat = "hh:mm:ss"
End With
nTime = Now + TimeSerial(0, 0, 1)
Application.OnTime nTime, "RunTimer"
End Sub
Public Sub StartTimer()
On Error Resume Next
Application.OnTime nTime, "RunTimer", , False
On Error GoTo 0
ActiveSheet.Range("A1").Value = 0
RunTimer
End Sub

 

[ndu96081631]

cám ơn anh domfootwear và ndu96081631
thành thận xin lỗi vì em chưa search trước khi hỏi. Bài hai anh gửi đã đúng ý em rồi. Tiện đây cho em hỏi thêm câu hỏi phụ về chủ đề này. Giả sử nếu ô A1 em gõ là 10:00:00 sau khi Enter thì ô đó tự động đếm giờ " từ thời gian là 10:00:00" trở đi. và ô A2 vẫn là ô mốc thời gian nào đó. và ô A3 là ô so sách và cũng tự động chạy thời gian theo ô A1.
Cám ơn hai anh và mọi người đã giúp đỡ.

Trong file Clock_in_Cell_3.xls có đoạn:
Sheet1.Range("A1").Value = Format(Now, "hh:mm:ss")
Bạn thử sửa thành:
Sheet1.Range("A1").Value = Sheet1.Range("A1").Value + TimeValue("00:00:01")
Test thử xem thế nào nhé