FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
||||
|
||||
Hola TheNew.
Mil disculpas, cometí un error al copiar y pegar. Puse una versión anterior de mis pruebas. Pero como todavía no pudiste probarla, estoy a tiempo. Esta es la que funciona: Código:
procedure TForm1.PonerFechas(AYear: string); {$J+} const DiasMes: array[1..12] of string=('31','28','31','30','31','30', '31','31','30','31','30','31'); Mes: array[1..12] of string=('01','02','03','04','05','06','07', '08','09','10','11','12'); {$J-} var i,Anio: Integer; BM: TBookMarkStr; begin Anio:= StrToInt(AYear); if ((Anio mod 4 = 0)and(Anio mod 100 <> 0))or(Anio mod 400 = 0) then DiasMes[2]:= '29'; with tbPrueba do begin Last; // al último para agregar, guardar 1er fecha BM:= Bookmark; // guardar posicion para ingreso for i:= 1 to 12 do begin Append; // agregar dia 15 del mes 'i' FieldByName('FECHA').Value:= '15/' + Mes[i] + '/' +AYear; Post; Append; // agregar dia 'N' del mes 'i' FieldByName('FECHA').Value:= DiasMes[i]+'/'+ Mes[i] + '/' +AYear; Post; end; Bookmark:= BM; // en posición de ingreso end; end;
__________________
Daniel Didriksen Guía de estilo - Uso de las etiquetas - La otra guía de estilo .... |
#2
|
|||
|
|||
Mil Gracias amigo.
|
#3
|
||||
|
||||
De nada, ha sido un gusto.
__________________
Daniel Didriksen Guía de estilo - Uso de las etiquetas - La otra guía de estilo .... |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
bucle para fechas de pagos | chino150 | Varios | 5 | 19-05-2008 15:01:28 |
Como Insertar por Procedimiento 10 o mas registros para un calendario de pagos? | IcebergDelphi | Firebird e Interbase | 1 | 20-05-2007 22:23:56 |
"Pagos por publicidad" | jhonny | Debates | 15 | 22-09-2005 02:10:20 |
Imprimir Pagos en Matriz de Punto y Papel Continuo ? | BlueSteel | Impresión | 0 | 28-04-2005 16:17:32 |
|