Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Coloboración Paypal con ClubDelphi

 
 
Herramientas Buscar en Tema Desplegado
  #4  
Antiguo 13-03-2014
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Poder: 38
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola mantraxer21.

No conozco el control JvDateTimePickerEdit, pero con un TDateTimePicker podrías hacer:
Código Delphi [-]
...

uses DateUtils;

procedure TForm1.DateTimePicker1Exit(Sender: TObject);
var
  d1,d2: TDateTime;
begin
  d1:= DateTimePicker1.DateTime;
  d2:= Now;
  // Si la fecha ingresada es menor o igual a la fecha actual o es día no hábil ...
  if ((d1 <= d2) or (DayOfTheWeek(d1)>5)) then
    raise Exception.Create('El día seleccionado no es válido'); // Mostrar error
  //...
end;
No usé el evento OnChange por que el control TDateTimePicker lo dispara dos veces cuando se cambia la fecha desplegando el calendario, por lo que obtendrías duplicado el mensaje de error. Tal vez el control que usas no tenga ese comportamiento y puedas incluir el código de verificación en él.

Saludos
__________________
Daniel Didriksen

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



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
Total=Fecha Actual - Fecha Elegida lKinGl Varios 2 12-09-2008 01:37:04
fecha actual en interbase lledesma Firebird e Interbase 3 28-05-2006 23:34:20
Busqueda segun el mes de una fecha(no la fecha completa) federiconqn21 Firebird e Interbase 1 05-05-2006 15:39:53
Fecha Actual en DateTimePicker Barzaugc Varios 1 15-11-2005 17:29:20
Comparar una fecha de n campo date contra fecha actual amadis SQL 2 27-06-2005 21:37:41


La franja horaria es GMT +2. Ahora son las 23:24:57.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi