Calcular la letra de un DNI (para España)

Facil rutina para calcular la letra del DNI, (valido solo para España) ...

************************************************************
*
* Funcion: LETRADNI
*
* Dado un DNI devuelve la letra
*
* Parametros:
*
* tndni - DNI en formato numerico
*
* Ejemplos:
*
* letra =letradni(32415874)
*
* Retorno
*
* caracter - la letra de verificacion
*
* Fecha de Creacion  : 21/08/2001 Pablo Roca
* Ultima Modificacion: 21/08/2001 Pablo Roca
*
************************************************************
FUNCTION letradni
LPARAMETERS tndni
RETURN SUBSTR("TRWAGMYFPDXBNJZSQVHLCKE",MOD(tndni,23)+1,1)

Pablo Roca