|
|
Postada em 31/10/2005 10:53 hs
Olá amigos, mais uma vez estou precisando da ajuda de vocês. Estou precisando validar uma data, mas não estou conseguindo. Gostaria de validar em uma textbox apenas os meses e anos no seguinte formato mm/yyyy Obrigado |
|
|
|
|
|
Daniel
|
SÃO PAULO
SP - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 31/10/2005 11:46 hs
Porque voce não trabalha com um campo tipo Maskedbox e no formato coloca mm/yyyy, é muito mais simples
dsmn
|
|
|
|
William
|
PALMAS
TO - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 31/10/2005 11:54 hs
Técnico em Manutenção de computadoresFone: (63) 8411-1464Palmas Tocantins Email: williampenaforte@gmail.com
|
|
|
|
Moreti
não registrado
|
|
|
ENUNCIADA !
|
|
|
Postada em 31/10/2005 12:33 hs
É por que o meu projeto está todo em textbox, teria que alterar todas as outras, rg, cpf/cnpj, tel etc.. alem das datas Mas teria como fazer na textbox ? Obrigado |
|
|
|
Daniel
|
SÃO PAULO
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 31/10/2005 12:59 hs
não precisaria alterar os outros controles, só o do mês. Senão acho que voce vai ter que testar a resposta via programação exemplo: texto1.text="mm/yyyy" if left(texto1.text,3)<>"01/" and left(texto1.text,3)<>"02/" and ..... left(texto1.text,3)<>"12/" then Msgbox("O Mês não foi digitado corretamente") texto1.setfocus exit sub end if if val(right(texto1.text,4))<2005 then Msgbox("O Ano não foi digitado corretamente") texto1.setfocus exit sub end if |
|
|
|
|
|
Postada em 31/10/2005 13:22 hs
public functio comparadata() dim mes , ano mes = mid(date , 4, 2)
ano = mid(date , 7 , 4) if mid(txtdata, 4, 2) <> mes or mid(date , 7 , 4) <> ano then
msgbox "Mês ou Ano estão diferentes"
end if end function
dim KL , JI , MA , BG KL = Homem JI = Morre MA = Lutar BG = Objetivos == * O KL só JI quando deixa de MA Pelos Seus BG *==
|
|
|
|
