none
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? RRS feed

Respostas

  • 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.
    quinta-feira, 5 de janeiro de 2012 12:39

Todas as Respostas

  • 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.
    quinta-feira, 5 de janeiro de 2012 12:39
  • 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.

    quinta-feira, 5 de janeiro de 2012 12:44
  • 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.
    quinta-feira, 5 de janeiro de 2012 12:46