Ubah Format Data dari 201612 Ke Desember 2016

Imports System

Imports System.Globalization

Module Module1

    Sub Main()

        Dim tanggal1 As String = "201612"

        Dim format As String

        Dim tanggal2 As Date

        Dim provider As Globalization.CultureInfo = Globalization.CultureInfo.InvariantCulture

        format = "yyyyMM"

        tanggal2 = Date.ParseExact(tanggal1, format, provider)

        Console.WriteLine(tanggal2.ToString("MMMM yyyy"))

        Console.ReadLine()


    End Sub

End Module