FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Fecha con condiciones
Hola amigos buenos dias, les comento mi problemilla resulta que estoy haciendo un programa en el cual llamo la fcha del sistema de mi pc pero ahora nose como hacer que cuando se cumpla una fecha especifica me mande un mensaje de alerta o un aviso de que la fecha que estableci se afectuado casi como un recordatorio, bueno les anexo parte del codigo y de ahi nose que hacer
Código:
procedure TBORRAR.FormActivate(Sender: TObject); begin label1.Caption:=FormatDateTime('dd/mm/yyyy ',Date); end; end. |
#2
|
||||
|
||||
Lo lógico es que utilices un componente TTimer, que cada x tiempo revise la hora del sistema y la compare con la que tú deseas.
Para mostrar el mensaje puedes utilizar los MessageBox o Dialogs.
__________________
Germán Estévez => Web/Blog Guía de estilo, Guía alternativa Utiliza TAG's en tus mensajes. Contactar con el Clubdelphi P.D: Más tiempo dedicado a la pregunta=Mejores respuestas. |
#3
|
|||
|
|||
Gracias, pero es ahi donde estoy atorado ya que pongo el timer pero no se como poner el codigo.
Código:
if timer1 then .... |
#4
|
||||
|
||||
Hola
Pero es la fecha o la hora?. Saludos
__________________
Siempre Novato |
#5
|
|||
|
|||
Es la fecha que tome mi programa de mi pc y al momento de llegar esa fecha que me realice una funcion ya sea en mostrar un mensaje u otra accion, mira les pongo algo de codigo que ya estuve haciendo pero me marca error espero lo cheque y me ayuden.
Código:
procedure TBORRAR.FormActivate(Sender: TObject); begin label1.Caption:=FormatDateTime('dd/mm/yyyy ',Date); fecha:=StrToDate['06/04/2010']; if (Date = fecha) and (Time = EncodeTime(12,08,00,00)) then Begin application.Terminate; End; end; |
#6
|
||||
|
||||
El código que estás poniendo en el Activate, colócalo en el OnTimer.
El error es posible que te esté dando por usar corchetes en lugar de los paréntesis (que se utilizan para las funciones en Delphi).
__________________
Germán Estévez => Web/Blog Guía de estilo, Guía alternativa Utiliza TAG's en tus mensajes. Contactar con el Clubdelphi P.D: Más tiempo dedicado a la pregunta=Mejores respuestas. |
#7
|
||||
|
||||
Hola
Saludos
__________________
Siempre Novato |
#8
|
||||
|
||||
Hola
O Saludos
__________________
Siempre Novato |
#9
|
|||
|
|||
Gracias amigo pero ya lo puse como me indicaste y no pasa nada mira te anexo el codigo que hasta ahorita tengo
Código:
procedure TBORRAR.Timer1Timer(Sender: TObject); begin label1.Caption:=FormatDateTime('dd/mm/yyyy ',Date); Label2.Caption := FormatDateTime('h:mm ampm',Now); fecha:=StrToDate('06/04/2010'); if (Date = fecha) and (Time = EncodeTime(12,39,00,00)) then Begin application.Terminate; End; end; end. |
#10
|
||||
|
||||
Hola
Saludos
__________________
Siempre Novato |
#11
|
|||
|
|||
Hola Caral
|
#12
|
||||
|
||||
Hola
Me pregunto: Viste el codigo que puse?. Te sirvio? Es lo que buscabas? Te lo saltaste?. Saludos
__________________
Siempre Novato |
#13
|
|||
|
|||
Gracias amigo Caral no me mostraba tus mensajes que pusiste tuve que refrescar la ventana y ya quedo muchas gracias a todos. Saludos
|
#14
|
||||
|
||||
Y que pasas si cierras el pograma....adios fecha y todo...
como te orientaron funciona Si y solo Si, el programa no se cierra. Mencionas que quieres una fecha no una hora determinada por lo que infiero que el programa: 1.- Estará siempre abierto 2.- Aunque se cierre debe poder "recordar" la fecha (y hora) que le habías indicado. Ambos casos requieren soluciones distintas..indícanos cual necesitas.
__________________
AKA "El animalito" ||Cordobés a mucha honra|| |
#15
|
|||
|
|||
Ok amigo mira te voy a dejar el codigo hasta donde quedo ya solucionado mis dudas cabe mencionar que todavia falta hacerle algunos detalles y posteriormente lo subire al club, te dejo el codigo.
Código:
procedure TBORRAR.Timer1Timer(Sender: TObject); var fecha: string; //FileOpInfo: TShFileOpStruct; begin ShortDateFormat := 'dd/mm/yyyy'; label1.Caption:= DateToStr(Date); fecha:= '06/04/2010'; if Date = StrToDate(fecha) then Begin if messagedlg('El software de prueba ya caduco,¿desea comprar la version total? ',mtconfirmation,[mbok],0)=mrok then application.Terminate; |
#16
|
||||
|
||||
Hola
Esto: No es eficiente, alguien con un poco de conocimiento y malicia se salta la fecha a placer y sigue usando el programa. Es tan simple como modificar la fecha del ordenador. Creo que para esto que buscas no va a funcionar ninguno de estos códigos. Saludos
__________________
Siempre Novato |
#17
|
||||
|
||||
Hola
Lo que yo haría si fuera programador. Haria un archivo .Bat. En este colocaria la fecha al iniciar la primera vez que se usa el programa. Una vez que se guarda la fecha, iria sumándole y guardándole a esta 1 cada vez que se use el programa hasta llegar a una fecha que se desee, por ejemplo 30 dias. Haria una comprobación con otro archivo libre y si se modifica enviaría el programa completo a la papelera y la vaciaría. Pero claro, no soy programador. Saludos
__________________
Siempre Novato |
#18
|
|||
|
|||
Gracias amigo Caral por tus comentarios aun no esta terminado lo que estoy haciendo y es cierto lo que dices un mañoso que sepa algo se vuela la fecha y listo pero es ahi donde esta el meollo del asunto este seria algo para despistar o tener mas seguridad ya que en si estoy trabajando con el archivo BAT que mencionas entre otras especificaciones de seguridad de software de todos modos cuando termine lo subo al club para que vean y me den opiniones.
|
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
if con 2 condiciones en un TQrexpr | lucasarts_18 | Impresión | 2 | 02-01-2009 23:41:37 |
Paradox--->Condiciones | lurad | Tablas planas | 2 | 19-09-2006 20:45:40 |
Condiciones | Carlex | SQL | 7 | 09-08-2004 21:15:33 |
Condiciones en SQL | agova | SQL | 5 | 20-07-2004 01:28:24 |
condiciones en interbase | squenda | Conexión con bases de datos | 5 | 29-03-2004 02:54:49 |
|