Hola,
Cita:
Iniciado por lucy_D 
... SF90000647, supongo que la SF se concatena, necesito el codigo en visual basic...
... esque veran estoy trabajando en una macro que por cada correo que llegue se genere un nuevo folio apartir de ese ultimo ...
¿Visual Basic? ¿Macro? ... Me imagino será Visual Basic Script.
¿Correo? ... Me imagino será Outlook o algo así.
¿Base de datos? ... ¿Cual?
Posiblemente ...
Código:
Dim UltimoFolio
UltimoFolio = "SF90000647"
Function SiguienteFolio(Numero)
Dim str, num
str = Mid(Numero, 1, 2)
num = CLng(Mid(Numero, 3))
SiguienteFolio = str & (num + 1)
End Function
Rem WScript.echo SiguienteFolio(UltimoFolio)
Rem Debug.WriteLine(SiguienteFolio(UltimoFolio))
Saludos,