Como exibir a hora no formato longo usando a função Format e a propriedade Today

'Este exemplo mostra como exibir a data completa
'no formato longo usando a função Format e a
'propriedade Today

'A propriedade Today retorna ou define um valor Date
'contendo a data atual de acordo com seu sistema.
'Lembre-se de que Today atribui zeros às partes relativas
'a horas, minutos e segundos do tipo de dados Date

Module Module1
  Sub Main()
    Dim hoje As Date = Today

    Console.WriteLine(Format(hoje, _
      "dddd, dd ""de"" MMMM ""de"" yyyy"))

    Console.WriteLine()
    Console.WriteLine("Pressione uma tecla para sair...")
    Console.ReadKey()
  End Sub
End Module