PRECISO DE AJUDA COM DATA
Oi pessoal,
Estou fazendo um programa de ponto mas estou tendo problemas com a mudança de ano. Tenho um botão [Ô]MÊS ANTERIOR[Ô], como a descrição já indica MES ANTERIOR o sistema vai para o mês que antecede ao mês que a variável está. Até ai tudo bem, mais se o ano muda dá se um erro especificado abaixo junto com a linha de comando.
Linha de comando:
Me.Label6.Text = CDate(NewAbert & [Ô]/[Ô] & FormataZerosEsq(Month(Me.Label6.Text) - 1, 2) & [Ô]/[Ô] & Year(DateTime.Now))
Erro
A conversão da cadeia de caracteres [ô]01/00/2017[ô] no tipo [ô]Date[ô] não é válida.
Como vemos o mês fica [Ô]00[Ô] como faço para que o mês passe para 12 e o ano para 2016 e assim por diante:
Obrigado,
Estou fazendo um programa de ponto mas estou tendo problemas com a mudança de ano. Tenho um botão [Ô]MÊS ANTERIOR[Ô], como a descrição já indica MES ANTERIOR o sistema vai para o mês que antecede ao mês que a variável está. Até ai tudo bem, mais se o ano muda dá se um erro especificado abaixo junto com a linha de comando.
Linha de comando:
Me.Label6.Text = CDate(NewAbert & [Ô]/[Ô] & FormataZerosEsq(Month(Me.Label6.Text) - 1, 2) & [Ô]/[Ô] & Year(DateTime.Now))
Erro
A conversão da cadeia de caracteres [ô]01/00/2017[ô] no tipo [ô]Date[ô] não é válida.
Como vemos o mês fica [Ô]00[Ô] como faço para que o mês passe para 12 e o ano para 2016 e assim por diante:
Obrigado,
ELMO01,
Bom...
... como está escrito no código acima, não dá mesmo.
Você precisa subtrair datas, veja o exemplo:
http://www.macoratti.net/vbn5_udh.htm
Dessa forma vai voltar um mês e o ano.
Experimente isso:
[][ô]s,
Tunusat.
Bom...
... como está escrito no código acima, não dá mesmo.
Você precisa subtrair datas, veja o exemplo:
http://www.macoratti.net/vbn5_udh.htm
lstDataHora.Items.Add([Ô]No mês anterior : [Ô] & datahoraAtual.AddMonths(-1))Dessa forma vai voltar um mês e o ano.
Experimente isso:
Me.Label6.Text = DateTime.Now.AddMonths(-6)[][ô]s,
Tunusat.
TUNUSAT obrigado por ter respondido, deu certo
Tópico encerrado , respostas não são mais permitidas