Imports System

imports Microsoft.VisualBasic.DateAndTime

​

Public Module Module1

    Public Sub Main()

        Dim _date As Date = Today

        dim _y as string = _date.Year().ToString()

        dim _y2 as string = _y.Substring(_y.length-2,2)

        dim _m as string = _date.Month().ToString()

        dim _m2 as string 

        _m2 = _m

        if (_m2.Length = 1)

            _m2 = String.Format("0{0}",_m2)

        end if

        Console.WriteLine(String.format("Tahun {0} {1}",  _y2, _m2) )

    End Sub

End Module