Ir para o conteúdo
  • Revista PROGRAMAR: Já está disponível a edição #60 da revista programar. Faz já o download aqui!

bioshock

TimeOfDay (resolvido)

Mensagens Recomendadas

bioshock

O exemplo abaixo que vos mostro, é facilmente compreensível, o problema é que não consigo fazer o que digo no código..alguma solução??

   

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Label1.Text = TimeOfDay.Hour
        If Label1.Text >= "6:00:00" Or Label1.Text <= "11:59:59" Then
            Label2.Text = "Boa dia"
        Else
            If Label1.Text >= "12:00:00" Or Label1.Text <= "19:59:59" Then
                Label2.Text = "Boa tarde"
            Else
                If Label1.Text >= "20:00:00" Or Label1.Text <= "5:59:59" Then
                    Label2.Text = "Boa noite"
                End If
            End If
        End If
    End Sub

Obrigado

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites
Weasel

Aqui funciona...

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Label1.Text = TimeOfDay.Hour
        If Label1.Text >= "6" Or Label1.Text <= "11" Then
            Label2.Text = "Bom dia"
        Else
            If Label1.Text >= "12" Or Label1.Text <= "19" Then
                Label2.Text = "Boa tarde"
            Else
                If Label1.Text >= "20" Or Label1.Text <= "5" Then
                    Label2.Text = "Boa noite"
                End If
            End If
        End If
    End Sub


Knowledge to the masses


Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites
jpaulino

Não será AND em vez de OR ?

E depois o pessoal tem de se habituar a trabalhar como deve ser. Converter horas para uma string para depois comparar com string não é uma boa prática.

Tenta assim:

        Dim tspan As TimeSpan = Now.TimeOfDay
        If tspan >= New TimeSpan(6, 0, 0) AndAlso tspan <= New TimeSpan(11, 0, 0) Then
            Label1.Text = "Bom Dia"
        ElseIf tspan >= New TimeSpan(12, 0, 0) AndAlso tspan <= New TimeSpan(19, 0, 0) Then
            Label1.Text = "Boa Tarde"
        Else
            Label1.Text = "Boa Noite"
        End If

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!

Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.

Entrar Agora

×

Aviso Sobre Cookies

Ao usar este site você aceita os nossos Termos de Uso e Política de Privacidade. Este site usa cookies para disponibilizar funcionalidades personalizadas. Para mais informações visite esta página.