Variável Date não salva data  [Resolvido]

Fórum para assuntos relacionados as funções de tempo do Excel, como AGORA, DATADIF, DATAM, DIATRABALHOTOTAL, etc...

Variável Date não salva data

Mensagempor WillPedd » Qui Set 12, 2019 8:13 pm

Eae galera

Estou com um pequeno problema ao tentar salvar uma data que está em uma célula em uma variável do tipo Date. Curiosamente o código estava rodando, mas fiz alterações relacionadas a outros aspectos e ele passou a não rodar mais, por conta desse problema.

O problema aparece na linha
Nasc1 = ActiveCell.Value
, mais ao final.

Segue o código
Código: Selecionar todos
Dim W As Worksheet
    Dim Y As Worksheet
    Dim ATxt As String
    Dim Cont As Integer
    Dim Nasc1 As Date
    Dim Nasc As Double
    Dim Idade As Double
   
   
    Set W = Sheets("Plan1")
    Set Y = Sheets("Plan2")
   
    ATxt = ""
    Cont = 0
    Idade = 0
    Nasc = 0
   
    W.Select
    Range("B9").Select
    Nasc1 = ActiveCell.Value
    Nasc = CDbl(Nasc1)
    Range("B5").Select

Estranhamente ao visualizar a variável Nasc1 quando está depurando o programa, ele aparece como horário e não data.

Agradeço pela ajuda

Abs
WillPedd
Membro
Membro
 
Mensagens: 5
Registrado em: Qui Set 12, 2019 7:59 pm
Has thanked: 2 times
Have thanks: 0 time

{ SO_SELECT }

Re: Variável Date não salva data

Mensagempor wagner » Sex Set 13, 2019 3:24 pm

WillPedd,

Boa tarde!

Seja muito bem vindo ao fórum.

DICAS para aproveitar ao máximo o fórum e sempre manter o mesmo de forma organizada, sugiro ler os tópico da regras abaixo:
viewtopic.php?f=7&t=16757
viewtopic.php?f=7&t=203
viewtopic.php?f=7&t=7903
viewtopic.php?f=7&t=3841
viewtopic.php?f=7&t=12600
viewtopic.php?f=7&t=3371

Algumas solicitações especiais que pedimos, por gentileza, ficar atento (a):
1 - Não inserir no titulo de suas postagens expressões como Help, Ajuda, etc. O título deve ser um resumo da sua necessidade para que outras pessoas que tenham a mesma dúvida possam efetuar a pesquisa e achar como foi resolvido.
2 - Não insira em suas mensagens frases todas escritas em letras maiúsculas. Isso, na Internet, é compreendido como gritos e muitos usuários sequer respondem somente por esse fato!
3 - Insira sempre um arquivo exemplo compactado com .ZIP aqui mesmo no fórum (suspenso temporariamente. Site passando por manutenção). Existe, logo abaixo da caixa de mensagens, uma aba chamada "Adicionar um anexo" para essa finalidade. O arquivo exemplo deve ser pequeno, com apenas 5 linhas no máximo, compactado com .ZIP e ter o mesmo layout (nome do arquivo, nome das abas/guias/folhas, mesma linha/coluna onde os dados se iniciam) do arquivo original. Links de arquivos enviados para sites de compartilhamento de arquivos, muitas vezes são bloqueados pelas empresas, por conterem muitos vírus. Alguns usuários que acessam o fórum a partir de empresas não conseguem baixar tais arquivos.
4 - Não utilize a ferramenta CITAR para inserir o inteiro teor das mensagens que lhe são encaminhadas como resposta. Citações, se estritamente necessárias ao entendimento da mensagem que você quer enviar, devem ser apenas de pequenos trechos das mensagens.
5 - Se for postar códigos VBA aqui no fórum, utilize a ferramenta CODE localizada logo no início da caixa de mensagens (quinto botão da esquerda para a direita). As linhas de código devem ficar entre as palavras "CODE e /CODE".
6 - Agradeça sempre às pessoas que lhe responderam e às mensagens que atenderam a necessidade de sua demanda. Esse agradecimento deve ser clicando na mãozinha que fica localizada ao lado da ferramenta CITAR. Lembre-se: o fórum é gratuito e esse é o único incentivo para as pessoas que prestam ajuda. Você pode agradecer a quantos usuários quiser.
7 - O título ou o texto das mensagens postadas não devem ser escritos todo em letras maiúsculas. Na internet, tudo escrito em letras maiúsculas é interpretado como gritos e muitos usuários sequer olham para esse tipo de mensagem.
8 - Não Utilize o Botão CITAR para efetuar as suas respostas. Para fazer isso use apenas o Botão RESPONDER.

Quanto a sua demanda, tente usar desta forma:
Código: Selecionar todos
Nasc1 = CDate(ActiveCell.Value)
Se a resposta foi útil para você, por gentileza, Amigo, clique na mãozinha ao lado direito da ferramenta CITAR, no canto superior direito.

Atenciosamente
Wagner Morel
Avatar do usuário
wagner
Moderador
Moderador
 
Mensagens: 5547
Registrado em: Sáb Out 20, 2012 12:49 pm
Localização: Fortaleza - CE
Has thanked: 102 times
Have thanks: 2356 times

Re: Variável Date não salva data

Mensagempor WillPedd » Sex Set 13, 2019 3:35 pm

Obrigado Wagner, tanto pelas dicas do fórum quanto do código.

Usei tua sugestão e infelizmente o erro foi o mesmo: "Tempo de execução incompatível: 13 Variáveis inconpatíveis"
WillPedd
Membro
Membro
 
Mensagens: 5
Registrado em: Qui Set 12, 2019 7:59 pm
Has thanked: 2 times
Have thanks: 0 time

Re: Variável Date não salva data

Mensagempor wagner » Sex Set 13, 2019 4:39 pm

disponibilize sua planilha em um site de compartilhamento e cole o link aqui.
Se a resposta foi útil para você, por gentileza, Amigo, clique na mãozinha ao lado direito da ferramenta CITAR, no canto superior direito.

Atenciosamente
Wagner Morel
Avatar do usuário
wagner
Moderador
Moderador
 
Mensagens: 5547
Registrado em: Sáb Out 20, 2012 12:49 pm
Localização: Fortaleza - CE
Has thanked: 102 times
Have thanks: 2356 times

Re: Variável Date não salva data

Mensagempor WillPedd » Sex Set 13, 2019 5:42 pm

WillPedd
Membro
Membro
 
Mensagens: 5
Registrado em: Qui Set 12, 2019 7:59 pm
Has thanked: 2 times
Have thanks: 0 time

Re: Variável Date não salva data

Mensagempor rlm » Sex Set 13, 2019 6:54 pm

O erro informado "... "Tempo de execução incompatível: 13 Variáveis inconpatíveis..." normalmente ocorre ao tentar atribuir a uma variavel um valor diferente do previamente definido.
por exemplo em uma variavel tipo integer ou long atribuir um 'valor" texto.
No seu exemplo a data constante em B9 é uma data invalida 15/15/1994 o que certamente gerará erro; e quando essa celula estiver em Branco ou valor 0 a varialvel Nasc1 ira apresentar valor 00:00:00
Reinaldo
Garça - SP / SCS - SP

For this post the author rlm thanked:
WillPedd (Ter Set 17, 2019 5:26 pm)
Avatar do usuário
rlm
Ninja do Excel
Ninja do Excel
 
Mensagens: 410
Registrado em: Qui Out 16, 2014 12:30 pm
Has thanked: 30 times
Have thanks: 185 times

Re: Variável Date não salva data

Mensagempor WillPedd » Seg Set 16, 2019 1:40 pm

Entendi

Mas n sei exatamente como corrijo esse problema de incompatibilidade nesse caso?
WillPedd
Membro
Membro
 
Mensagens: 5
Registrado em: Qui Set 12, 2019 7:59 pm
Has thanked: 2 times
Have thanks: 0 time

Re: Variável Date não salva data  [Resolvido]

Mensagempor rlm » Seg Set 16, 2019 2:32 pm

Primeiro você deve decidir/definir o que fazer se B9 estiver em branco/sem conteudo ou com valor invalido. Partindo dai pode-se definir que caminho seguir.
Reinaldo
Garça - SP / SCS - SP

For this post the author rlm thanked:
WillPedd (Ter Set 17, 2019 5:26 pm)
Avatar do usuário
rlm
Ninja do Excel
Ninja do Excel
 
Mensagens: 410
Registrado em: Qui Out 16, 2014 12:30 pm
Has thanked: 30 times
Have thanks: 185 times

Re: Variável Date não salva data

Mensagempor WillPedd » Ter Set 17, 2019 5:26 pm

Tranquilo. Me ajudou aqui.

Vlw galera
WillPedd
Membro
Membro
 
Mensagens: 5
Registrado em: Qui Set 12, 2019 7:59 pm
Has thanked: 2 times
Have thanks: 0 time


Voltar para Datas & Horas

Quem está online

Usuários navegando neste fórum: Nenhum usuário registrado e 3 visitantes