Em VB 2010, como fazer para, no evento load do formulário, o label mostrar o dia da semana e a hora atuais no formato: 5 de janeiro de 2012 10:10:10?

Question

Em VB 2010, como fazer para, no evento load do formulário, o label mostrar o dia da semana e a hora atuais no formato: 5 de janeiro de 2012 10:10:10?

Answer 1

No exemplo anterior já tinha tudo praticamente pronto, só usar

Imports System.Data.SqlClient
Imports System.Data.OleDb
Imports System.Globalization
Module Module1

    Sub Main()
        Dim data As DateTime = DateTime.Now
        Dim cultureInfo As New CultureInfo("pt-BR")
        Dim dateFormat As DateTimeFormatInfo = cultureInfo.DateTimeFormat
        Dim diaDaSemana As String = dateFormat.GetDayName(data.DayOfWeek)
        Dim mes As String = dateFormat.GetMonthName(data.Month)

        Dim saida As String = String.Format("{0} {1} de {2} de {3} {4}", diaDaSemana, data.Day, mes, data.Year, data.ToString("hh:MM:ss"))

        System.Console.WriteLine(saida)

        System.Console.ReadKey()

    End Sub

End Module

---

--
Marque as respostas e ajude a melhorar a busca do fórum.

Answer 2

Achei melhor concatenar uma vírgula após o dia da semana, assim:

 

  Dim data As DateTime = DateTime.Now

        Dim cultureInfo As New CultureInfo("pt-BR")

        Dim dateFormat As DateTimeFormatInfo = cultureInfo.DateTimeFormat

        Dim diaDaSemana As String = dateFormat.GetDayName(data.DayOfWeek)

        Dim mes As String = dateFormat.GetMonthName(data.Month)

 

        Dim saida As String = String.Format("{0} {1} de {2} de {3} {4}", diaDaSemana & ",", data.Day, mes, data.Year, data.ToString("hh:MM:ss"))

 

        Label2.Text = saida

 

Obrigado.

Tenha um ótimo 2012.

Answer 3

Repare que falta fazer uma correção no .ToString da hora. [ data.ToString("hh:MM:ss") ]

É simples e vou deixar por sua conta.

---

--
Marque as respostas e ajude a melhorar a busca do fórum.