Imports System

Public Module Module1

    Public Sub Main()

        Dim testdate As String = DateTime.Now.ToString("yyyy/MM/dd hh:" & "00")

        Console.WriteLine(testdate)

    End Sub

End Module