none
Selecionar Data e apresentar Estação do Ano numa TextBox RRS feed

  • Pergunta

  • Boa Tarde!

    O meu problema é o seguinte: eu numa comboboxdate tenho já definido que posso selecionar a data de "hoje" e mais qualquer uma data nos próximos 7 dias e o código é o seguinte: 


    Sub CarregaData()
    Dim i As Integer
    Dim data As Date
    Dim data_texto As String
    i = 0
    data = Date data_texto = ""
    Me.ComboBoxDate.Clear
    For i = 1 To 7
    data_texto = data Me.ComboBoxDate.AddItem
    data_texto data = data + 1
    Next i
    End Sub


    Eu pretendo agora que na useform tenha uma TextBoxPeriodoDoAno que me apresente, conforme a data escolhida, em que período do ano se encontra. Na Text Box só quero que apareça se é Inverno ou Verão . Considera-se como Inverno o período de 1 de Outubro a 30 de Março; de Verão considera-se o período de 1 de Abril a 30 de Setembro e queria que desse para qualquer ano. 

    Alguém me pode ajudar?

    sexta-feira, 17 de maio de 2013 15:44

Respostas

  • Coloca no Evento Click da combobox:

    Private Sub ComboBoxDate_Click()
        Dim D As Date, D1 As Date, D2 As Date
        
        D = ComboBoxDate.Value
        D1 = DateSerial(Year(D), 4, 1) '1 de Abril
        D2 = DateSerial(Year(D), 10, 1) '1 de Outubro
        If D < D1 Or D >= D2 Then
            TextBoxPeriodoDoAno = "Inverno"
        Else
            TextBoxPeriodoDoAno = "Verão"
        End If
    End Sub

    Embora não seja a forma ideal, penso que para o que pretendes serve.

    sábado, 18 de maio de 2013 07:53

Todas as Respostas

  • Coloca no Evento Click da combobox:

    Private Sub ComboBoxDate_Click()
        Dim D As Date, D1 As Date, D2 As Date
        
        D = ComboBoxDate.Value
        D1 = DateSerial(Year(D), 4, 1) '1 de Abril
        D2 = DateSerial(Year(D), 10, 1) '1 de Outubro
        If D < D1 Or D >= D2 Then
            TextBoxPeriodoDoAno = "Inverno"
        Else
            TextBoxPeriodoDoAno = "Verão"
        End If
    End Sub

    Embora não seja a forma ideal, penso que para o que pretendes serve.

    sábado, 18 de maio de 2013 07:53
  • Muito obrigado...para o que eu pretendo, serve perfeitamente :D
    segunda-feira, 20 de maio de 2013 14:12