Helpex - Trao đổi & giúp đỡ Đăng nhập
14

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)
14 hữu ích 1 bình luận 337k xem chia sẻ
35

Đầ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.DateSeparatortính của văn hóa hiện tại hoặc được chỉ định .

35 hữu ích 5 bình luận chia sẻ
9

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

9 hữu ích 0 bình luận chia sẻ
3

Như thế này ..

MsgBox(format(dt,"dd/MM/yyyy"))
3 hữu ích 2 bình luận chia sẻ
0
Dim formattedDate As String = Date.Today.ToString("dd/MM/yyyy")

Kiểm tra liên kết bên dưới

0 hữu ích 0 bình luận chia sẻ
0

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)
0 hữu ích 0 bình luận chia sẻ
0

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
0 hữu ích 0 bình luận chia sẻ
0

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"
0 hữu ích 0 bình luận chia sẻ
loading
Không tìm thấy câu trả lời bạn tìm kiếm? Duyệt qua các câu hỏi được gắn thẻ vb.net datetime-format , hoặc hỏi câu hỏi của bạn.

Có thể bạn quan tâm

loading