FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Problema con la Fecha
Hola a todos.
estoy realizando una pequeña aplicacion y deseo que esta aplicacion solo dure un tiempo determinado y cuando la fecha se establecida alla pasado la aplicacion se cierre sola. en el elemento OnCreate del from principal le he puesto Código:
Var dd, mm, aaaa : Word; Fecha : String; Begin DecodeDate(Now, aaaa, mm, dd); Fecha:= Format('%2.2d/%2.2d/%4.4d',[dd,mm,aaaa]); If (Fecha > '01/05/2005') Then Begin ShowMessage('Fecha espirada'); Application.Terminate End else end; alguien me podria dar alguna pista???? |
#2
|
||||
|
||||
Fecha
No es necesario hacer ese decode solo tienes que comparar directamente las 2 fechas lo que podrias hacer es declarar una variable tifo fecha y luego compararla ocn la actual
Var Expira :tdatetime; Begin Expira := '10/10/2005'; If Date > Expira Then Begin ShowMessage('La Licencia ha expirado'); Application.Terminate; En; End; |
|
|
|