Cách tính thời gian

[nttai5190]

Em chào các anh chị, Hiện e đang làm 1 file hỗ trợ cho việc tiếp nhận hồ sơ tại cơ quan. Trong form em làm có cột giờ và cột ngày nhận, hai cột này đều lấy giờ hiện tại. Để thuận tiện cho việc giải quyết, những hồ sơ nộp sau 15h30 sẽ được tính sáng ngày hôm sau. Cho em hỏi có cách tính nào để thực hiện điều kiện này không ah.
Em có định hình về ý tưởng là sử dụng câu lệnh if ở textbox giờ sau đó ở textbox ngày nhận cộng thêm 1 ngày. Em không rành về vba nên cũng chỉ xem hướng dẫn trên mạng nên làm ra file này. Em cảm ơn ak

 

[huuthang_bd]

1. Chỉ thấy nội dung mô tả, chưa thấy câu hỏi.
2. Chưa thấy file.

 

[bebo021999]

Bạn xem file mẫu nhé.

 

[nttai5190]

1. Chỉ thấy nội dung mô tả, chưa thấy câu hỏi.
2. Chưa thấy file.

em đã chỉnh sửa lại nội dung và tải file lên rồi ak

Bài đã được tự động gộp: 27/10/20

Bạn xem file mẫu nhé.

dạ em cảm ơn anh

 

[huuthang_bd]

Bạn thử vầy xem

    If Time >= VBA.TimeSerial(15, 30, 0) Then
        Me.tb_ngaynhan.Value = Format(Date + 1, "mm/dd/yyyy")
        Me.tb_gio.Value = "08:00"
    Else
        Me.tb_ngaynhan.Value = Format(Date, "mm/dd/yyyy")
        Me.tb_gio.Value = Format(Time, "hh:mm")
    End If

 

[nttai5190]

Bạn thử vầy xem

    If Time >= VBA.TimeSerial(15, 30, 0) Then
        Me.tb_ngaynhan.Value = Format(Date + 1, "mm/dd/yyyy")
        Me.tb_gio.Value = "08:00"
    Else
        Me.tb_ngaynhan.Value = Format(Date, "mm/dd/yyyy")
        Me.tb_gio.Value = Format(Time, "hh:mm")
    End If

thanks anh, để em áp dụng

Bài đã được tự động gộp: 27/10/20

Bạn thử vầy xem

    If Time >= VBA.TimeSerial(15, 30, 0) Then
        Me.tb_ngaynhan.Value = Format(Date + 1, "mm/dd/yyyy")
        Me.tb_gio.Value = "08:00"
    Else
        Me.tb_ngaynhan.Value = Format(Date, "mm/dd/yyyy")
        Me.tb_gio.Value = Format(Time, "hh:mm")
    End If

cho em hỏi thêm đoạn code này mình thự hiện ở nút thêm đúng không ak

Bài đã được tự động gộp: 27/10/20

Bạn thử vầy xem

    If Time >= VBA.TimeSerial(15, 30, 0) Then
        Me.tb_ngaynhan.Value = Format(Date + 1, "mm/dd/yyyy")
        Me.tb_gio.Value = "08:00"
    Else
        Me.tb_ngaynhan.Value = Format(Date, "mm/dd/yyyy")
        Me.tb_gio.Value = Format(Time, "hh:mm")
    End If

dạ được rồi ah. em cảm ơn anh nhiều

 

[VetMini]

Theo nguyên tắc làm việc, người ta không sửa số liệu nhập vào, trừ phi đó là điều bắt buộc.
Để xử lý chuyện "sau giờ làm việc" như bài này, người ta vẫn giữ ngày+giờ nhập. Và lập ra hai cột khác, ghi ngày giờ tính sổ.
Ngày giờ nhập có thể nhập bằng cách Ctrl+; (gõ một dấu cách) Ctrl+Shift+;
Ctrl+; ---> ngày hôm nay
dấu cách ---> cách biệt ngày giờ
Ctrl+Shift+; ---> giờ hiện tại

 

[nttai5190]

Bạn xem file mẫu nhé.

Dạ có phần này nhờ anh chỉ giúp, Em có file nhập liệu hồ sơ, phần địa chỉ các combobox sẽ phụ thuộc nhau (vd: Chọn Quận 1 thì sẽ có các phường tương ứng). Nhưng khi thêm vào dữ liệu thì chỉ lấy ở hàng đầu tiên thôi. em không biết giải thích sao cho rõ. Anh có thể mở file lên chọn button nhập hồ sơ ở sheet MENU sẽ hiện ra form để thao tác. Em cảm ơn!