安達利機車行

當某個欄位的日期希望轉成我們所指定的格式時

例如使用者輸入2006/6
我們希望儲存的格式為2006/06 -->月份補零

Dim ori_date As String = "1999/2"

'  先檢查是不是有輸入資料
 If ori_date .ToString.Trim.Length > 0 Then
     ' 判斷是不是正確的日期格式
     If IsDate(ori_date) Then
        Dim d As DateTime = DateTime.Parse(ori_date)
        ' 輸出的日期格式為yyyy/MM(2006/06)
        MsgBox(d.ToString("yyyy/MM"))
     Else
         MsgBox("請注意，輸入資料中有日期格式錯誤", MsgBoxStyle.Critical, "日期格式錯誤")
         Exit Sub
    End If
  End If