Alexandre Neves- Moderador Global
- Respeito às regras :
Sexo :
Localização :
Mensagens : 8496
Registrado : 05/11/2009
Alexandre Neves 7/8/2014, 14:07
Boa tarde,
A função será do género:
function TransfNrLetra(dblNumero as double)as string
dim I as integer
for i=1 to len(dblnumero)
select case mid(dblnumero,1,1)
case 0
TransfNrLetra=TransfNrLetra & "O"
case 1
TransfNrLetra=TransfNrLetra & "M"
case 2
TransfNrLetra=TransfNrLetra & "A"
case 3
TransfNrLetra=TransfNrLetra & "R"
case 4
TransfNrLetra=TransfNrLetra & "T"
case 5
TransfNrLetra=TransfNrLetra & "E"
case 6
TransfNrLetra=TransfNrLetra & "L"
case 7
TransfNrLetra=TransfNrLetra & "I"
case 8
TransfNrLetra=TransfNrLetra & "N"
case 9
TransfNrLetra=TransfNrLetra & "H"
end select
next
end function
.................................................................................
Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo