Nhờ các anh chị cao tay giúp đỡ format ngày tháng bị ngược khi nhập form

[huuviet_huu]

Em có 1 ví dụ về nhập vào textbox định dạng ngày tháng của form để thêm dòng cho cột.
Em nhập vào định dạng ngày là: dd/mm/yyyy nhưng khi nhấn nút thêm dòng thì lại đảo ngược tháng lên đầu ngày lại là mm/dd/yyyy
Các anh chị cho em hướng giả quyết với ạ
Em đã sửa lại ngày tháng trong hệ thống máy là dd/mm/yyyy mà vẫn không được ạ (không được thay đổi định dạng dd/mm/yyyy của cột nhé). Giúp em

 

[SA_DQ]

Bạn xem file & nhớ nhập theo dạng 'dd/mm/yyyy' như đã được nhắc nhỡ

 

[huuviet_huu]

Cảm ơn bạn nhưng khi nhấn nút phát đầu tiên vẫn bị ngược bạn à, có cách nào nhấn phát nào đc phát đấy ko ạ?

Bài đã được tự động gộp: 3/8/18

Bạn xem file & nhớ nhập theo dạng 'dd/mm/yyyy' như đã được nhắc nhỡ

Cảm ơn bạn nhưng khi nhấn nút phát đầu tiên vẫn bị ngược bạn à, có cách nào nhấn phát nào đc phát đấy ko ạ?

 

[befaint]

Em có 1 ví dụ về nhập vào textbox định dạng ngày tháng của form để thêm dòng cho cột.
Em nhập vào định dạng ngày là: dd/mm/yyyy nhưng khi nhấn nút thêm dòng thì lại đảo ngược tháng lên đầu ngày lại là mm/dd/yyyy
Các anh chị cho em hướng giả quyết với ạ
Em đã sửa lại ngày tháng trong hệ thống máy là dd/mm/yyyy mà vẫn không được ạ (không được thay đổi định dạng dd/mm/yyyy của cột nhé). Giúp em

Cách 1:
- Định dạng trong control panel của máy tính: dd/mm/yyyy
- Xóa 3 dòng này đi.

Private Sub txtDate_AfterUpdate()
Me.txtDate = Format(Me.txtDate, "dd/mm/yyyy")
End Sub

Cách 2: File đính kèm (dùng tạm vậy cho nhanh).

 

[telnet]

@huuviet_huu
mình xin đưa ra 2 trường hợp này có thể giải quyết thắc mắc của bạn:
- thiết lập đinh dạng trên PC theo dd/mm/yyyy. Mặc định của máy là mm/dd/yyyy
- thêm dấu ' tại mỗi ô nhập dữ liệu ngày tháng. Kiểu nhập này không bị thay đổi khi gửi file nhập của bạn đến người khác
thân!

 

[huuviet_huu]

@huuviet_huu
mình xin đưa ra 2 trường hợp này có thể giải quyết thắc mắc của bạn:
- thiết lập đinh dạng trên PC theo dd/mm/yyyy. Mặc định của máy là mm/dd/yyyy
- thêm dấu ' tại mỗi ô nhập dữ liệu ngày tháng. Kiểu nhập này không bị thay đổi khi gửi file nhập của bạn đến người khác
thân!

Dạ đúng vậy, cái file gốc của em sửa lại thêm dấu phẩy phía trước như này đã giải quyết được điều đó
Cells(LastRows + 1, 2).Value = "'" & Me.txtDate.Text
Cảm ơn các bạn đã giúp đỡ mình nhé!

 

[ndu96081631]

Dạ đúng vậy, cái file gốc của em sửa lại thêm dấu phẩy phía trước như này đã giải quyết được điều đó
Cells(LastRows + 1, 2).Value = "'" & Me.txtDate.Text
Cảm ơn các bạn đã giúp đỡ mình nhé!

Thêm dấu "'" vào nó thành text rồi làm sao tính toán?
Cách giải quyết vấn đề của các bạn cũng... ngộ thiệt đó
???!!!

 

[batman1]

Tôi đề nghị:
1. Xóa toàn bộ Sub txtDate_AfterUpdate()
Bởi với code của bạn thì bạn bị phụ thuộc vào thết lập ở máy bạn đang mở tập tin. Vd. khi bạn mang tập tin sang máy tôi thì khi mở Form bạn sẽ có "dd/mm/yyyy" trong khi tôi có thiết lập "yyyy-mm-dd"

2. Sửa trong Sub cmdAdd_Click() thành

Cells(LastRows + 1, 2).Value = CDate(Me.txtDate.Text)

3. Sửa trong UserForm_Initialize

txtDate = Format(Cells(currentrow, 2), "Short Date")

 

[huuviet_huu]

Tôi đề nghị:
1. Xóa toàn bộ Sub txtDate_AfterUpdate()
Bởi với code của bạn thì bạn bị phụ thuộc vào thết lập ở máy bạn đang mở tập tin. Vd. khi bạn mang tập tin sang máy tôi thì khi mở Form bạn sẽ có "dd/mm/yyyy" trong khi tôi có thiết lập "yyyy-mm-dd"

2. Sửa trong Sub cmdAdd_Click() thành

Cells(LastRows + 1, 2).Value = CDate(Me.txtDate.Text)

3. Sửa trong UserForm_Initialize

txtDate = Format(Cells(currentrow, 2), "Short Date")

Cách này hay hơn, em cảm ơn ạ.