FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Funcion para obterne el proximo valor
Posts: 149
Joined: Mon Oct 10, 2005 09:30 AM
Funcion para obterne el proximo valor
Posted: Mon Dec 10, 2007 07: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

Posts: 72
Joined: Tue Sep 11, 2007 03:51 PM
Re: Funcion para obterne el proximo valor
Posted: Wed Dec 12, 2007 04: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

Continue the discussion