Achar a próxima dezena de um número

[dataset 0]

Boa tarde...Preciso de ajuda:Como achar a próxima dezena de um número ?Alguns exemplos:238 - A próxima dezena é: 240651 - A próxima dezena é: 66023 - A próxima dezena é: 30Capite ?Como achar ? Valeu pela ajuda.

[jrcardozo 4]

se existe uma maneira mais pratica eu não sei, mas isso aqui faz o que você quer

 

<%var = "15"if len(var)>1 then	Response.Write(mid(var,1,len(var)-2)&left(right(var,2) + 10,1)&"0")else	Response.Write(var)end if%>

[birobirosk8 0]

<% option explicit dim intValor intValor = 999999 response.write "Valor: " & intValor & "<br><br>" response.write intValor + (10 - right(intValor, 1))%>

[vagner.net 0]

dezena = false numero = 351 while dezena = false numero = numero + 1 if numero mod 10 = 0 then dezena = true end if wend Response.Write numero

[dataset 0]

Valeu pessoal... obrigado.

Essa função acha a Dígito Verificador da: Agência, Tipo e Conta do banco Santander Banespa, se alguém precisar, tá na mão:

 

<%@ language=VBscript %><%Option Explicitdim vConta, vQtd, vAux, arrConta(12), vSoma, vDezfunction GetAgencia ( vConta )	arrConta(0)	 = 9	arrConta(1)	 = 7	arrConta(2)	 = 3	arrConta(3)	 = 1	arrConta(4)	 = 9	arrConta(5)	 = 7	arrConta(6)	 = 1	arrConta(7)	 = 3	arrConta(8)	 = 1	arrConta(9)	 = 9	arrConta(10)	= 7	arrConta(11)	= 3		vQtd = len(vConta)	for vAux = 1 to vQtd		 vSoma = vSoma + mid(vConta,vAux,1) * arrConta(vAux-1)	next		vDez = vSoma + (10 - right(vSoma, 1))		if (vSoma mod vDez) = 0 then		vSoma = 0	else		vSoma = vDez - vSoma	end if		GetAgencia = vSoma	end function'Onde: 2177=Agência; 13=Tipo; 000040=Contaresponse.Write GetAgencia("217713000040")'Retorno da Função passando esse parâmentro é: 9 (Este número é o dígito Verificador)%>

Valeu a ajuda.