Ir ao conteúdo
  • Cadastre-se
doug21

Calcular data vba

Recommended Posts

Prezados, bom dia!

 

Estou tentando fazer que uma Textbox calcule a quantidade de dias por uma data específica, porém sou iniciante no VBA e não tenho a mínima ideia de como fazer isso.

 

Como exemplo, seria igual a uma célula no excel: 26/09/2016-25/09/2016 = 1

 

Se possível, adicionar um texto antes e depois: "Está com 1 dia(s)"

 

Aproveitando a situação: Seria possível alguém me indicar um curso online que mostre o que significa e para que serve "dim, stringe, interage, double..." entre outros códigos apresentados no VBA que são extremamente úteis? Sei que um é variável, outro que é uma sequencia por inteiro, outro separado por vírgulas, porém não sei como se aplica caso precise usar algum dia.

 

Desde já agradeço as respostas.

 

Atenciosamente,

Compartilhar este post


Link para o post
Compartilhar em outros sites

@doug21 seja bem vindo ao forum.

Para calcular a diferença entre datas, em dias por exemplo, voce pode usar a função "DateDiff" 

Estou enviando um exemplo de mostra o uso desta função.

 

Quanto a cursos vba, existem muitas opções na net.

Mas segue um link de um apostila para iniciantes: 

 

Vba- MacroExcel.pdf

 

 

 

 

 

Calcular_data_vba.zip

Compartilhar este post


Link para o post
Compartilhar em outros sites

Basole!!!

 

Era justamente o que eu estava procurando. Muito obrigado pela atenção, pelo exemplo postado e o curso disponibilizado.

Compartilhar este post


Link para o post
Compartilhar em outros sites

Bom dia!

 

Surgiu-me outra dúvida: Na label que apresenta o registro é possível que ela seja copiada automaticamente? Tipo apareceu o registro e ele é copiado depois de apresentado?

Compartilhar este post


Link para o post
Compartilhar em outros sites

Opa, bom dia!

 

Para área de transferência e assim poder colar em outro programa ou documento.

Compartilhar este post


Link para o post
Compartilhar em outros sites

Segue

Dim MyData As DataObject
'
Private Sub Label1_Click()
    Set MyData = New DataObject
    MyData.SetText Label1.Caption
    MyData.PutInClipboard
End Sub

 

Compartilhar este post


Link para o post
Compartilhar em outros sites

Muito obrigado pela postagem e por ter compartilhado seu conhecimento. Acredito que outros leigos como eu tens estas mesmas dúvidas.

 

Novamente muito obrigado pela postagem!

  • Curtir 1

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora





Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×