' dateparse.vb Imports System Public Class CustomDateTime Shared Sub Main() Dim d, f As String Dim dt As DateTime d = "2018/08/24 20:23:06" f = "yyyy/MM/dd HH:mm:ss" dt = DateTime.ParseExact(d, f, Nothing) Console.WriteLine(dt.ToString("F")) ' 出力:2018年8月24日 20:23:06 d = "20180824202306" f = "yyyyMMddHHmmss" dt = DateTime.ParseExact(d, f, Nothing) Console.WriteLine(dt.ToString("F")) ' 出力:2018年8月24日 20:23:06 d = "2018年08月24日20時23分06秒" f = "yyyy年MM月dd日HH時mm分ss秒" dt = DateTime.ParseExact(d, f, Nothing) Console.WriteLine(dt.ToString("F")) ' 出力:2018年8月24日 20:23:06 End Sub End Class ' コンパイル方法:vbc dateparse.vb