Code chuyển ngày tháng sang dạng text

[dnphuonganh]

Xin các anh giúp đỡ em đoạn mã nào để chuyển cell chứa ngày tháng năm thành dạng viết bằng chữ.
(ví dụ giá trị A1 là 27/4/2008, A2 là "ngày 27 tháng 4 năm 2008")

 

[uthoiemve]

chuyển ngày tháng sang text

Xin các anh giúp đỡ em đoạn mã nào để chuyển cell chứa ngày tháng năm thành dạng text.
(ví dụ giá trị A1 là 27/4/2008, A2laf "ngày 27 tháng 4 năm 2008")

nếu đúng như trên thì code làm gì cho phức tạp, ở ô A2 bạn nhập vào công thức:

="Ngày " & DAY(A1) & " Tháng " & MONTH(A1) & " Năm " & YEAR(A1)
Nếu không phải như trên thì bạn nói rõ ý bạn được không???!!!!

 

[dnphuonganh]

Cảm ơn anh! Vụ này dùng công thức thì em tự làm được.
Tuy nhiên em cứ muốn cái code cơ! Giúp em đi anh!

 

[anhtuan1066]

Làm công thức như trên cũng là 1 cách, nhưng theo tôi ko hay lắm
Bạn có thể dùng Custom Format, tôi nghĩ là hay hơn đấy!
Đầu tiên cho A2 = A1... tiếp theo click phải chuột vào cell A2, chọn Format Cells, trong tab Number, mục Custom bạn gõ vào:

"Ngày "dd" tháng "mm" năm "yyyy

Còn như bạn muốn code thì đàng nào nó cũng theo nguyên tắc lắp ghép các công thức... nhưng theo tôi nó hoàn toàn ko cần thiết
Xem file này là ví dụ!
ANH TUẤN

 

[SA_DQ]

Một cách nữa đây, mời bạn tham khảo

Ta vô menu Insert->Name - Define . . .
Trong khung Names in Workbook bạn nhập tên NgayVN
Trong khung Refers to bạn nhập dòng sau:

="Ngày " & RIGHT("0" & DAY(TODAY());2) & " tháng " & RIGHT("0" & MONTH(TODAY());2) & "năm " & YEAR(TODAY()) & "."​

Cách dùng: nhập =NgayVN vô bất kỳ ô nào, sẽ xuất hiện dòng diễn dịch cho bạn.
Nếu thích bạn có thể thêm vài Names tương tự để xài 1 cách uyễn chuyển hơn;
VD
'Kiến an, ngày . . . ."
" Hôm nay, ngày. . . . "
="Tai nạn sẩy ra" & NgayVN

Chắc đến đây thì việc viết 1 hàm với bạn cũng có thể được chứ gì!!?
Viết hàm thì có khi phải tham chiếu đến ô chứa dữ liệu kiểu Date;
Ví dụ:

Function NgayVN( Optional Dat as Date) As String
  If Dat = 0 Then Dat = Date
 1. . . . .
  End Function

Hàm có thêm 1 dòng lệnh nữa mà thôi, tương tự như dòng trên í. Bạn sửa lại 1 tẹo là được)

 

[dnphuonganh]

Cảm ơn các anh!
Theo em thì cách của anhtuan1066 là tuyệt nhất!