การแปลงวันที่ให้เป็น String ตามรูปแบบที่ต้องการ

การ convert Date String โดยบังคับปี ค.ศ. หรือ พ.ศ. ได้นั้น ทำดังนี้ครับ

Dim d as Date
Dim s as String

d = Date.Parse(s, New CultureInfo("en-GB")) ' บังคับ ค.ศ.
d = Date.Parse(s, New CultureInfo("th-TH")) ' บังคับ พ.ศ.

หรือ

s = d.ToString(New CultureInfo("en-GB")) ' บังคับ ค.ศ.
s = d.ToString(New CultureInfo("th-TH")) ' บังคับ พ.ศ.

ไม่แนะนำให้ใช้ CDate เพราะไม่รู้ว่าเป็น ค.ศ. หรือ พ.ศ.

s = CDate(d).ToString("dd-MM-yyyy")

แต่จะแนะนำให้ใช้

s = d.ToString("yyyy-MM-dd", CultureInfo.CreateSpecificCulture("en-GB"))

(แต่ต้อง Imports System.Globalization ก่อน)

DateTimePicker , Custom Format, Properties

กำหนด Custom Format ให้ DateTimePicker

Public Sub SetMyCustomFormat()
    ' Set the Format type and the CustomFormat string.
    dateTimePicker1.Format = DateTimePickerFormat.Custom
    dateTimePicker1.CustomFormat = "MMMM dd, yyyy - dddd"
End Sub 'SetMyCustomFormat

DateTimePicker

ตอนเปิด Form ขึ้นมาต้องการตั้งให้เป็นวันที่เมื่อวาน

ใน Form_Load
DateTimePicker1.Value = Now.AddDays(-1)

เวลาใช้
Dim yDate As DateyDate = DateTimePicker1.Value.Date