DIMINUIR MES DE UM MASKBOX
Boa Tarde
Fiz uma caixa de texto usando o MSKBOx para usar como mês:
EX: mskmes.mask = "99/99"
Agora eu gostaria de pegar tres meses abaixo do que o usuário inserir na caixa de texto :
EX: Usuário digita [ 05/04 ] e eu pego [02/04]
Desde já obrigado!!!
Fiz uma caixa de texto usando o MSKBOx para usar como mês:
EX: mskmes.mask = "99/99"
Agora eu gostaria de pegar tres meses abaixo do que o usuário inserir na caixa de texto :
EX: Usuário digita [ 05/04 ] e eu pego [02/04]
Desde já obrigado!!!
faça assim, acho que funcionará:
dim MESANO as date
MESANO = cdate("01"+mskmes.text)
mskmes.promptinclude=false
mskmes.text=format(dateserial(yea(mesano),month(mesano)-2, "01"),"MM/YY")
mskmes.promptinclude=true
Acho que isso funcionará, talvez tenha que fazer pequenos ajustes, mas acho que funciona perfeitamente...
dim MESANO as date
MESANO = cdate("01"+mskmes.text)
mskmes.promptinclude=false
mskmes.text=format(dateserial(yea(mesano),month(mesano)-2, "01"),"MM/YY")
mskmes.promptinclude=true
Acho que isso funcionará, talvez tenha que fazer pequenos ajustes, mas acho que funciona perfeitamente...
Tópico encerrado , respostas não são mais permitidas