Ngày dưới 12 tự động bị đảo ngược ngày thành tháng

[hoangthang8907]

m.n cho mình hỏi, vì sao khi mình nhập ngày tháng bằng form nhập liệu thì khi ngày nhỏ hơn 13 ( ngày 01-12) lại bị đảo ngược thành tháng. nếu nhập trực tiếp từ bản phím thì lại không sao. định dạng của ô cell mình đã để là dd/mm/yyy rồi. Chỉ khi nhập ngày tháng qua from nhập liệu thì mới bị tình trạng đó. có ai biết cách khắc phục k ạ

 

[leonguyenz]

m.n cho mình hỏi, vì sao khi mình nhập ngày tháng bằng form nhập liệu thì khi ngày nhỏ hơn 13 ( ngày 01-12) lại bị đảo ngược thành tháng. nếu nhập trực tiếp từ bản phím thì lại không sao. định dạng của ô cell mình đã để là dd/mm/yyy rồi. Chỉ khi nhập ngày tháng qua from nhập liệu thì mới bị tình trạng đó. có ai biết cách khắc phục k ạ

Định dạng trong ô Excel là 1 chuyện, ngày tháng trong Form nhập liệu là 1 chuyện và ngày tháng trong máy tính là chuyện khác.
Bạn đưa file lên xem sao.

 

[hoangthang8907]

Định dạng trong ô Excel là 1 chuyện, ngày tháng trong Form nhập liệu là 1 chuyện và ngày tháng trong máy tính là chuyện khác.
Bạn đưa file lên xem sao.

đây anh, a xem hộ em , ngày trong form và máy tính cũng đang để là dd/mm/yyyy nhưng khi nhập ngày cứ nhỏ hơn 13 là bị đảo ngược ạ. em bấm vào nút cập nhật để lấy ngày tháng trên máy tính

 

[leonguyenz]

đây anh, a xem hộ em , ngày trong form và máy tính cũng đang để là dd/mm/yyyy nhưng khi nhập ngày cứ nhỏ hơn 13 là bị đảo ngược ạ. em bấm vào nút cập nhật để lấy ngày tháng trên máy tính

Dòng nào đó trong code: = NgayXuat.Text
Sửa thành: = DateSerial(Year(NgayXuat.Text), Month(NgayXuat.Text), Day(NgayXuat.Text))

 

[hoangthang8907]

Dòng nào đó trong code: = NgayXuat.Text
Sửa thành: = DateSerial(Year(NgayXuat.Text), Month(NgayXuat.Text), Day(NgayXuat.Text))

cảm ơn anh, được rồi ạ ,em loay hoay tìm trên diễn đàn các bài viết để sửa 2 ngày mà k được

 

[nghia_hiep_sai]

Dòng nào đó trong code: = NgayXuat.Text
Sửa thành: = DateSerial(Year(NgayXuat.Text), Month(NgayXuat.Text), Day(NgayXuat.Text))

E cũng giống vậy cuu voi a oi

 

[SA_DQ]

E cũng giống vậy cuu voi a oi

File giả lập của bạn đâu; Còn nếu nó giống hoàn toàn file trên thì tự lần & mò đi nha!

 

[le_vis]

Dòng nào đó trong code: = NgayXuat.Text
Sửa thành: = DateSerial(Year(NgayXuat.Text), Month(NgayXuat.Text), Day(NgayXuat.Text))

Tôi không có điều kiện để thử, Nhưng xin hỏi khi chuyển thành định dạng Text như vậy thì những phần tính toán có điều kiện kèm theo là ngày tháng năm sẽ không thực hiện được vậy phải xử lý thế nào ? Xin cảm ơn