Làm sao để lấy dữ liệu cho listbox là ngày tháng hiện tại kèm định dạng (1 người xem)

[trungtamcnc]

Các bác cho em hỏi: Làm sao để định dạng date đây
Em có 1 ListBox1 trong cái UserForm1 để hiển thị ngày tháng hiện tại.
Em làm như sau thì nó hiện lên tất cả:
Private Sub UserForm_Initialize()
Me.ListBox1.AddItem Now()
End Sub

 

[nghiaphuc]

Các bác cho em hỏi: Làm sao để định dạng date đây
Em có 1 ListBox1 trong cái UserForm1 để hiển thị ngày tháng hiện tại.
Em làm như sau thì nó hiện lên tất cả:
Private Sub UserForm_Initialize()
Me.ListBox1.AddItem Now()
End Sub

Bạn sửa câu lệnh Me.ListBox1.AddItem Now() thành Me.ListBox1.AddItem Format(Now(),"dd/MM/yyyy") (có thể thay hàm Now bởi hàm Date cũng được).

 

[maytinhvp01]

Các bác cho em hỏi: Làm sao để định dạng date đây
Em có 1 ListBox1 trong cái UserForm1 để hiển thị ngày tháng hiện tại.
Em làm như sau thì nó hiện lên tất cả:
Private Sub UserForm_Initialize()
Me.ListBox1.AddItem Now()
End Sub

[COLOR=#000000][I]Private Sub UserForm_Initialize()[/I][/COLOR]
[COLOR=#000000][I]Me.ListBox1.AddItem format(Now,"dd/mm/yyyy")[/I][/COLOR]
[COLOR=#000000][I]End Sub[/I][/COLOR]

Mình chưa thử bạn thử sem được không nhé

 

[trungtamcnc]

Cảm ơn sự quan tâm của các bác. Em còn thêm
Me.ListBox1.AddItem "Ng"+ChrW(224)+"y "&format(Now,"dd/mm/yyyy"). Hay quá đi.

 

[nghiaphuc]

Cảm ơn sự quan tâm của các bác. Em còn thêm
Me.ListBox1.AddItem "Ng"+ChrW(224)+"y "&format(Now,"dd/mm/yyyy"). Hay quá đi.

Ơ hơ, "Ngày " thì cứ gõ là "Ngày " chứ phải dùng đến ChrW làm gì nhỉ?

Có thể thay câu lệnh trên bởi câu lệnh này cũng được:

Me.ListBox1.AddItem Format(Now,"""Ngày ""dd/MM/yyyy")

 

[trungtamcnc]

Ơ hơ, "Ngày " thì cứ gõ là "Ngày " chứ phải dùng đến ChrW làm gì nhỉ?

Có thể thay câu lệnh trên bởi câu lệnh này cũng được:

Me.ListBox1.AddItem Format(Now,"""Ngày ""dd/MM/yyyy")

Vâng. Không hiểu sao em cứ càng học càng tối.
Nhân đây cho em hỏi: Chỗ căn chỉnh cho dữ liệu vào chính giữa listbox ở đâu vậy bác.

 

[nghiaphuc]

Vâng. Không hiểu sao em cứ càng học càng tối.
Nhân đây cho em hỏi: Chỗ căn chỉnh cho dữ liệu vào chính giữa listbox ở đâu vậy bác.

Bạn chỉnh thuộc tính TextAlign cho Listbox này là được.