Hiển thị ngày tháng trên textbox userform (1 người xem)

[viettho]

Chào anh/ chị
Em có một vấn đề về việc làm sao để hiển thị ngày tháng dạng dd/mm/yyyy trên textbox userform. Em có thử qua một số code kết quả trên textbox đã hiển thị đúng định dạng nhưng khi muốn chỉnh sửa trên textbox đó thì lại không được.
Em gửi file anh/ chị xem giúp em. Trên tab "Search/ Edit" của userform sau khi nhập MSNV thì sẽ hiển thị lên tất cả các thông tin lên userform đó. Nhưng vấn đề em chưa biết làm sao để có thể làm cho textbox hiển thị ngày tháng đúng định dạng dd/mm/yyyy (VD: Hire date của 1 nhân viên là 09/11/2017 trên textbox userform lại hiển thị 43048)

Mong được sự hướng dẫn

 

[Gió Đông]

Textbox chỉ hiện thị đúng nghĩa là text, muốn vậy thì bạn dùng hàm Format, ví dụ
Textbox1.Value=Format(<biến ngày>,"d/m/yyyy")

 

[moctriet]

https://stackoverflow.com/questions/30452710/set-date-format-as-dd-mmm-yyyy-in-activex-textbox-vba

Private Sub Textbox1_LostFocus()
  Dim Da as Date
  Da = CDate(Textbox1.Text)
  Textbox1.Text = Format(Da, "dd-mm-yyyy")
End Sub

 

[befaint]

Nghi ngờ bài #3 có lúc chưa đúng...

 

[ndu96081631]

Nghi ngờ bài #3 có lúc chưa đúng...

Đang định nói giống vậy!

 

[viettho]

Để em thử dùng cả hai cách của các anh hướng dẫn xem như thế nào. cám ơn nhé

 

[viettho]

https://stackoverflow.com/questions/30452710/set-date-format-as-dd-mmm-yyyy-in-activex-textbox-vba

Private Sub Textbox1_LostFocus()
  Dim Da as Date
  Da = CDate(Textbox1.Text)
  Textbox1.Text = Format(Da, "dd-mm-yyyy")
End Sub

Em làm cách này không được rồi bác ơi

 

[ndu96081631]

Để em thử dùng cả hai cách của các anh hướng dẫn xem như thế nào. cám ơn nhé

Thử cách bài 2 đấy.
Ví dụ hiện tại bạn đang viết:

Me.txtEnd.Text = .... gì gì đó...

thì giờ sửa thành:

Me.txtEnd.Text = Format( .... gì gì đó... , "dd/mm/yyyy")

 

[Hoang2013]

Đưa file lên mà không có mống dòng dữ liệu nào thì lọc cái gì mới được đây chứ?
Như vậy chỉ tốn công bản thân & người khác có nhã í giúp bạn mà thôi.

 

[ndu96081631]

Đưa file lên mà không có mống dòng dữ liệu nào thì lọc cái gì mới được đây chứ?
Như vậy chỉ tốn công bản thân & người khác có nhã í giúp bạn mà thôi.

Nó lấy dữ liệu bên sheet Data đó sư phụ!

 

[moctriet]

Nghi ngờ bài #3 có lúc chưa đúng...

Cái này hồi trước em code thẳng trên Cell luôn, lao đao với nó mấy lần. Em phải dùng thêm code chỉnh mới ra đc cái format em cần

 

[Hoang2013]

Nó lấy dữ liệu bên sheet Data đó sư phụ!

Biết vậy! Nhưng muốn thấy tác giả đang xài số liệu ngày-tháng kiểu gì trong nớ mà!

Như mình thì chân fương: Viết hàm biến dữ liệu kiều ngày-tháng thành chuỗi, sau đó nạp chuỗi này lên TextBox
Tuy là cù lần, nhưng kê cao gối, ngủ khỏe.

Còn muốn tử TextBox nạp lên trang tính lại luôn fải chuyển từ chuỗi có dạng ngày-tháng thành tham biến kiểu ngày-tháng; Chỉ sao đó muốn cung cấp đi đâu thì cung.

 

[viettho]

Thử cách bài 2 đấy.
Ví dụ hiện tại bạn đang viết:

Me.txtEnd.Text = .... gì gì đó...

thì giờ sửa thành:

Me.txtEnd.Text = Format( .... gì gì đó... , "dd/mm/yyyy")

Dạ em cám ơn anh nhiều em đã làm được rồi