Funcion para obterne el proximo valor

Funcion para obterne el proximo valor

Postby manuelcalerosolis » Mon Dec 10, 2007 7:53 pm

Estoy intentando crear una función para q me devuelva el proximo valor de una cadena de caracteres que puede contener cualquier valor alfanumerico.

Creo lo explico mejor con un ejemplo.

Valor previo "0001" -> "0002"
Valor previo "ABCD" -> "ABCDE"
Valor previo "AB99" -> "AB100"

En fin creo q es un poco jodido, pero espero q alguien se haya visto ante esta situción antes.

Gracias
User avatar
manuelcalerosolis
 
Posts: 149
Joined: Mon Oct 10, 2005 9:30 am
Location: Huelva - Spain

Re: Funcion para obterne el proximo valor

Postby Antonio Martinez » Wed Dec 12, 2007 4:50 pm

manuelcalerosolis wrote:Estoy intentando crear una función para q me devuelva el proximo valor de una cadena de caracteres que puede contener cualquier valor alfanumerico.

Creo lo explico mejor con un ejemplo.

Valor previo "0001" -> "0002"
Valor previo "ABCD" -> "ABCDE"
Valor previo "AB99" -> "AB100"

En fin creo q es un poco jodido, pero espero q alguien se haya visto ante esta situción antes.

Gracias

Manuel,
Esto quiza no sea lo que tu quieres pero pruebo:
FUNCTION Siguiente(cCad)
RETURN Left(cCad, Len(cCad)- 1)+ Chr(Asc(Right(cCad, 1))+ 1)

Siguiente("001") // "002"
Siguiente("ABC") // "ABD"

Saludos
Antonio Martinez
 
Posts: 72
Joined: Tue Sep 11, 2007 3:51 pm


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: No registered users and 45 guests