Calcular Año (condición cíclica)

#11

01-08-2007

MaMu

Miembro

Registrado: abr 2006

Ubicación: Argentina

Posts: 863

Poder: 21

Cita:

Empezado por luisgutierrezb

se me ocurrio esto, cuestion de probarlo bien:

Código Delphi [-]
// basado en el codigo de Delphius

function AnioALetra(Anio: integer): string;
const
LETRAS = 'KLMNPRSTVXZABCDEFHJ';
var dif: integer;
begin
dif := (Anio + 14) mod 19 + 1;
result := LETRAS[dif];
end;

SOLUCIONADO

Gracias a todos por la ayuda. Implemente esta funcion y el resultado fue optimo. Ahora bien, utilice un poco de todas las ideas para hacer una acorde a los cambios que necesitaba y logre solucionarlo.

Saludos

__________________

Código Delphi [-] 
try 
ProgramarMicro(80C52,'Intel',MnHex,True);
except
On Exception do
MicroChip.IsPresent(True);
end;

« Tema Anterior | Próximo Tema »

Normas de Publicación
no Puedes crear nuevos temas no Puedes responder a temas no Puedes adjuntar archivos no Puedes editar tus mensajes El código vB está habilitado Las caritas están habilitado Código [IMG] está habilitado Código HTML está deshabilitado

Saltar a Foro

Temas Similares
Tema	Autor	Foro	Respuestas	Último mensaje
condición de query	Dantael	SQL	3	06-06-2007 05:44:37
filtrado por condicion	aanil	OOP	3	03-08-2006 19:13:22
Finalizar una Condición	jdangosto	OOP	3	02-12-2005 08:57:38
condicion en un edit !!	romansiux	Varios	5	10-04-2005 02:25:40
condicion IF	haffo	Varios	11	06-11-2003 22:36:04

La franja horaria es GMT +2. Ahora son las 08:03:18.