'VERIFICA SE É NUMERO
sub pcValidaNumero(vloCampo)
	if vloCampo.value<>"" and not isnumeric(vloCampo.value) then
		msgBox "Somente numeros são permitidos neste campo"
		vloCampo.value = ""
		vloCampo.focus()
	end if
end sub
'-----------------------------------------------------------------------------------------------------------------------------------------------
'VERIFICA SE É DATA
sub pcValidaData(vloCampo)
	dim vlsValorCampo
	dim vlnBarra1
	dim vlnBarra2
	dim vlnDia
	dim vlnMes
	dim vlnAno
	vlsValorCampo = vloCampo.value
	if vlsValorCampo="" then exit sub
	vlnBarra1 = inStr(vlsValorCampo,"/")
	vlnBarra2 = inStrRev(vlsValorCampo,"/")
	if vlnBarra1 = 0 or vlnBarra1 = Barra2 then
		msgbox "Data inválida (dd/mm/aaaa)"
		vloCampo.value = ""
		vloCampo.focus()
	else
		vlnDia = mid(vlsValorCampo,1,vlnBarra1 - 1)
		vlnMes = mid(vlsValorCampo, len(left(vlsValorCampo,vlnBarra1 + 1)) ,vlnBarra2 - vlnBarra1 -1 )
		vlnAno = mid(vlsValorCampo, len(left(vlsValorCampo,vlnBarra2 + 1)) ,len(vlsValorCampo))
		if not isnumeric(vlnDia) then
			msgbox "O dia deve ser numerico"
			vloCampo.value = ""
			vloCampo.focus()
		elseif not isnumeric(vlnMes) then
			msgbox "O mes deve ser numerico"
			vloCampo.value = ""
			vloCampo.focus()
		elseif not isnumeric(Ano) then
			msgBox "O ano deve ser numerico"
			vloCampo.value = ""
			vloCampo.focus()
		elseif int(vlnDia) > 31 then
			msgBox "Dia inválido: "&vlnDia
			vloCampo.value = ""
			vloCampo.focus()
		elseif int(vlnMes) > 12 then
			msgBox "Mes inválido "&vlnMes
			vloCampo.value = ""
			vloCampo.focus()
		elseif int(vlnAno) > 2100 then
			msgBox "Ano inválido: "&vlnAno
			vloCampo.value = ""
			vloCampo.focus()
		else
			vloCampo.value = fgsLpad(vlnDia,2,"0") & "/" &_
							 fgsLpad(vlnMes,2,"0") & "/" &_
							 vlnAno
		end if
	end if
end sub
'-----------------------------------------------------------------------------------------------------------------------------------------------
'VERIFICA SE É HORA
sub pcValidaHora(vloCampo)
	Dim vlsValorCampo
	Dim vlnDoisPontos1
	Dim vlnDoisPontos2
	Dim vlnHora
	Dim vlnMinuto
	Dim vlnSegundo
	vlsValorCampo = vloCampo.value
	if vlsValorCampo="" then exit sub
	vlnDoisPontos1 = inStr(vlsValorCampo,":")
	vlnDoisPontos2 = inStrRev(vlsValorCampo,":")

	if vlnDoisPontos1=0 then 
		msgbox "Hora Inválida (hh:mm)"
		vloCampo.value = ""
		vloCampo.focus()
	else	
		vlnHora = mid(vlsValorCampo,1,vlnDoisPontos1-1)
		if int(vlnDoisPontos1) = int(vlnDoisPontos2) then 'NÃO TEM SEGUNDOS
			vlnMinuto = mid(vlsValorCampo,vlnDoisPontos1+1, len(vlsvalorCampo))
			vlnSegundo = 0
		else
			vlnMinuto = mid(vlsValorCampo, len(left(vlsValorCampo,vlnDoisPontos1 + 1)) ,vlnDoisPontos2 - vlnDoisPontos1 -1 )
			vlnSegundo = mid(vlsValorCampo, len(left(vlsValorCampo,vlnDoisPontos2 + 1)) ,len(vlsValorCampo))
		end if
		if not isnumeric(vlnHora) then
			msgbox "A hora deve ser numerica "
			vloCampo.value = ""
			vloCampo.focus()
		elseif not isnumeric(vlnMinuto) then
			msgbox "O minuto deve ser numerico"&vlnMinuto
			vloCampo.value = ""
			vloCampo.focus()
		elseif not isnumeric(vlnSegundo) then
			msgbox "O segundo deve ser numerico"
			vloCampo.value = ""
			vloCampo.focus()
		elseif int(vlnHora)>23 then
			msgbox "Hora inválida: "&vlnHora
			vloCampo.value = ""
			vloCampo.focus()
		elseif int(vlnMinuto)>60 then
			msgbox "Minuto inválido: "&vlnMinuto
			vloCampo.value = ""
			vloCampo.focus()
		elseif int(vlnSegundo)>60 then
			msgbox "Segundo inválido "&vlnSegundo
			vloCampo.value = ""
			vloCampo.focus()
		else
			vloCampo.value = fgsLpad(vlnHora,2,"0") & ":" &_
							 fgsLpad(vlnMinuto,2,"0")
		end if
	end if
end sub
'-----------------------------------------------------------------------------------------------------------------------------------------------
sub pcValidaEmail(vloCampo)
end sub
'-----------------------------------------------------------------------------------------------------------------------------------------------
function fgsRPad(vlsTexto,vlnQuantidade,vlsCaracter)
	dim vlsAuxliar
	vlsAuxliar = left(vlsTexto,vlnQuantidade)
	fgsRPad = vlsAuxliar & string(vlnQuantidade - len(vlsAuxliar),vlsCaracter)
end function
'-----------------------------------------------------------------------------------------------------------------------------------------------
function fgsLPad(vlsTexto,vlnQuantidade,vlsCaracter)
	dim vlsAuxliar
	vlsAuxliar = left(vlsTexto,vlnQuantidade)
	fgsLPad = string(vlnQuantidade - len(vlsAuxliar),vlsCaracter) & vlsAuxliar
end function