none
Formatação de data RRS feed

  • Pergunta

  • Boa a todos.

    Tenho o códogo abaixo que está em um formulário no excel. Ele funciona da seguinte forma:

    Eu digito a data de aniversário da pessoa e ela é gravada na coluna G de minha planilha, esta coluna esta formatada como data para exibir a data no formato dia/mês/ano.

    O problema é que quando eu digito a data e o dia é menor que 12 exemplo (11/02/1978 - dia/mê/ano) ele grava a data na planilha da seguite forma 02/11/1078, ou seja, mês/dia/ano.

    Quando o dia é maior que 12, exemplo 20/02/1978 - dia/mês/ano, ai ele grava meio certo. Ele grava assim, 20-02-1978.

    Como faço para que a formatação fique igual para qualquer data que eu colocar?

    1. Sub AtualizaPlanilha()

      Dim a As String
      Dim b As String
      Dim c As String
      Dim d As String
      Dim e As String
      Dim f As String


      With Dados

           'tratamento para escrever tudo em maiuscolo na planinha, exceto o email
           'que será escrito tudo em minúsculo.

              a = TextBox_Referencia.value
              b = TextBox_Email.value
              c = TextBox_Endereco.value
              d = TextBox_Nome.value


              .Cells(DadosLinha, 7).value = TextBox_Aniversario.Text
              .Cells(DadosLinha, 6).value = UCase(a)
              .Cells(DadosLinha, 5).value = LCase(b) 'minusculo
              .Cells(DadosLinha, 3).value = UCase(c)
              .Cells(DadosLinha, 2).value = UCase(d)
              .Cells(DadosLinha, 1).value = TextBox_Codigo.value


              e = MonthName(Month(TextBox_Aniversario.value))
              .Cells(DadosLinha, 8).value = e

      f = Day(TextBox_Aniversario.value) & "/" & Month(TextBox_Aniversario.value)
              .Cells(DadosLinha, 10).value = f

      'tratamento do telefone

              .Cells(DadosLinha, 4).value = TextBox_Telefone 'TextBox_Telefone.value

      End With

      End Sub
                                                                       

    grato,

    terça-feira, 25 de março de 2014 23:45

Respostas

  • Olá, boa noite.

    Veja se a solução a seguir resolve seu problema:

    http://social.msdn.microsoft.com/Forums/pt-BR/c467c1e8-f2fa-4bbc-8ac5-7ace74ff1df2/problema-com-data-vbaexcel?forum=vbapt

    Abraço.


    Filipe Magno

    • Marcado como Resposta rsant quarta-feira, 26 de março de 2014 23:11
    quarta-feira, 26 de março de 2014 00:57