Como puedo hacer esto - Foros Club Delphi

12-06-2010

ecfisa

Moderador

Registrado: dic 2005

Ubicación: Tres Arroyos, Argentina

Posts: 10.508

Poder: 38

Hola rufo.

Código:

function TForm1.ProxCod(Numero: Integer): string;
begin
  Result:= Copy(DateToStr(Date), 7, 4) + '-' +
    Copy('000000', 1, 6 - Length(IntToStr(Numero))) + IntToStr(Numero);
end;

Saludos.

__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....

Última edición por ecfisa fecha: 12-06-2010 a las 07:54:54.

« 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
Como puedo hacer esto en fast report...	AFilth	Impresión	6	15-02-2017 16:59:02
como hacer esto	gulder	JAVA	1	15-02-2007 11:30:39
como puedo hacer esto con mi FireBird 1.5	ELINK	Firebird e Interbase	6	13-04-2005 20:30:46
¿Como podria hacer esto?	slat	Conexión con bases de datos	5	26-06-2004 18:08:51
Como puedo hacer esto ?	IVAND	Conexión con bases de datos	1	21-07-2003 23:23:24

La franja horaria es GMT +2. Ahora son las 03:26:10.