Obtendo o dia da semana no formato dom, seg, ter, qua, etc

'Este exemplo mostra como obter o dia da semana no formato
'curto. Ex: dom, seg, ter...

Module Module1
  Sub Main()
    Dim agora As DateTime = DateTime.Now

    'obtém o dia da semana no formato curto
    Dim diaSemana As String = Format(agora, "ddd")

    Console.WriteLine("O dia da semana é: " & diaSemana)

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