![]() |
![]() |
![]() |
![]() |
![]() |
FTP | ![]() |
![]() |
CCD | ![]() |
![]() |
Buscar | ![]() |
![]() |
Trucos | ![]() |
![]() |
Trabajo | ![]() |
![]() |
Foros | ![]() |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Buscar | Temas de Hoy | Marcar Foros Como Leídos |
![]() |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
||||
|
||||
No trabajo con las RX pero prueba con este cambio:
Código:
procedure TForm1.DateEdit1KeyPress() var nDias:Variant; begin if Key = #13 then begin nDias:=Date - StrToDate(DateEdit1.Text) ; if nDias > 0 and nDias < 93 then begin Edit5.Text := 'COMPLETA'; end else if nDias > 93 and nDias < 272 then begin Edit5.Text := 'SERVICIOS'; end else Edit5.Text := 'NINGUNA'; end; end; end; |
![]() |
Herramientas | Buscar en Tema |
Desplegado | |
|
|
![]() |
|