Nối ngày tháng trong VBA. (4 người xem)

[SteveNguyen1991]

Chào mọi người.
Mình đang tìm cách để nối ký tự với ngày tháng lại với nhau. Cụ thể như trong hình 1 ở ô B2, C2, E2, F2 được nối lại và cho ra kết quả ở ô G2.
Nhưng mình không biết cách làm trong VBA nên nhờ mọi người giúp mình với.
Mình cảm ơn!!

 

[Phuocam]

Chào mọi người.
Mình đang tìm cách để nối ký tự với ngày tháng lại với nhau. Cụ thể như trong hình 1 ở ô B2, C2, E2, F2 được nối lại và cho ra kết quả ở ô G2.
Nhưng mình không biết cách làm trong VBA nên nhờ mọi người giúp mình với.
Mình cảm ơn!!

Dùng Format thay cho Text

Public Function MyConCat(a As String, b As String, c As Date, d As Date) As String
MyConCat = a & b & " - " & Format(c, "dd/MM/yyyy") & " - " & Format(d, "dd/MM/yyyy")
End Function

.

 

[SteveNguyen1991]

Dùng Format thay cho Text

Public Function MyConCat(a As String, b As String, c As Date, d As Date) As String
MyConCat = a & b & " - " & Format(c, "dd/MM/yyyy") & " - " & Format(d, "dd/MM/yyyy")
End Function

.

Cảm ơn bác nhá!!

 

[VetMini]

Function NoiNhieuBien(ByRef mask As String, ParamArray tokens()) As String
' hàm căn bản để dồn các trị biểu thức vào chuỗi mẫu (mask string)
' chuỗi mẫu ở dạng "cái gì đó {0}, thêm cái gì đó {1}, ....". Các tokens sẽ được đưa vào vị trí 0, 1, ...
Dim i As Long
NoiNhieuBien = mask
For i = LBound(tokens) To UBound(tokens)
NoiNhieuBien = Replace(NoiNhieuBien, "{" & i & "}", tokens(i))
Next i
End Function

Function NoiNgay(a As String, b As String, d1 As Date, d2 As Date) As String
NoiNgay = NoiNhieuBien("{0}{1} - {2} - {3}", a, b, Format(d1, "dd/mm/yyyy"), Format(d2, "dd/mm/yyyy"))
End Function