Tôi muốn hiển thị ngày ở định dạng 09/07/2013 thay vì 09-jul-13.
Dim dt As Date = Date.Today
MsgBox(dt)
Tôi muốn hiển thị ngày ở định dạng 09/07/2013 thay vì 09-jul-13.
Dim dt As Date = Date.Today
MsgBox(dt)
Đầu tiên, MM viết hoa là tháng và mm viết thường là phút.
Bạn phải vượt qua CultureInfo.InvariantCulture
để ToString
đảm bảo rằng /
dấu phân tách ngày được sử dụng vì nó thường được thay thế bằng dấu phân cách ngày của nền văn hóa hiện tại:
MsgBox(dt.ToString("dd/MM/yyyy", CultureInfo.InvariantCulture))
Một tùy chọn khác là thoát khỏi mã định dạng tùy chỉnh đó bằng cách nhúng / bên trong ':
dt.ToString("dd'/'MM'/'yyyy")
MSDN : Định dạng tùy chỉnh "/" :
Mã định dạng tùy chỉnh "/" đại diện cho dấu phân tách ngày, được sử dụng để phân biệt năm, tháng và ngày. Dấu phân tách ngày tháng đã bản địa hóa thích hợp được truy xuất từ thuộc
DateTimeFormatInfo.DateSeparator
tính của văn hóa hiện tại hoặc được chỉ định .
Thử cái này.
var dateAsString = DateTime.Now.ToString("dd/MM/yyyy");
// dateAsString = "09/07/2013"
và cũng kiểm tra liên kết này để biết thêm dữ liệu định dạng và thời gian
Như thế này ..
MsgBox(format(dt,"dd/MM/yyyy"))
Dim formattedDate As String = Date.Today.ToString("dd/MM/yyyy")
Bạn có thể phân tách ngày tháng thành các phần cấu thành và sau đó nối chúng lại với nhau như sau:
MsgBox(Now.Day & "/" & Now.Month & "/" & Now.Year)
Tôi thấy điều này được phục vụ cho các ngày trong Thế kỷ 21 có thể được nhập dưới dạng dd / mm hoặc dd / mm / yy. Nó nhằm mục đích in một sổ đăng ký tham dự và yêu cầu bắt đầu ngày họp.
Sub Print_Register()
Dim MeetingDate, Answer
Sheets("Register").Select
Range("A1").Select
GetDate:
MeetingDate = DateValue(InputBox("Enter the date of the meeting." & Chr(13) & _
"Note Format" & Chr(13) & "Format DD/MM/YY or DD/MM", "Meeting Date", , 10000, 10000))
If MeetingDate = "" Then GoTo TheEnd
If MeetingDate < 36526 Then MeetingDate = MeetingDate + 36526
Range("Current_Meeting_Date") = MeetingDate
Answer = MsgBox("Date OK?", 3)
If Answer = 2 Then GoTo TheEnd
If Answer = 7 Then GoTo GetDate
ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)"
TheEnd:
End Sub
nếu bạn muốn hiển thị ngày cùng với thời gian khi bạn xuất sang Excel thì bạn có thể sử dụng
xlWorkSheet.Cells(nRow, 3).NumberFormat = "dd/mm/yy h:mm AM/PM"