FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Validar Fecha StrToDate
Hola a todos,
Teno un problema que no he podido solucionar, Necesito hacer validaciones de fechas a partir de String: Try FechaArchivo.Date := StrToDate(StrFecha); bandFecha := True; Except On EConvertError Do ShowMessage('Error'); End; A lo que he leido si existe una fecha invalida (p. ejem. 30/02/2004) se genera una excepción y se captura con EConvertError, el detalle es que no lo hace. Alguien podría ayudarme si estoy mal o alguna otra opción para poder hacer la validación de las fechas? Gracias de antemano Saludos, Francisco Javier Bucio |
#2
|
|||
|
|||
mmmmmm
y si validaras el string antes de pasarlo osea si chechas que si estas en el mes 1,3,5,7,8,10,12 el numero mayo de dias sera 31 y si son el mes 4,6,9,11 el numero sera 30 si es el mes es el 2 sera 28 pero si le aplicas mod al año y sale 0 esto quiere decir que es año bisiesto y sera de 29, esto es lo que se me ocurre en este instante. espero te sirva de algo |
#3
|
|||
|
|||
RW: Validar Fecha
Gracias Quetzal,
Si, esa sería un forma de hacerlo, aunque pensé que si podía capturar la excepcion delphi, pero mientras encuentro algo, tendré que hacerle así, jeje Muchas gracias |
#4
|
||||
|
||||
Si deseas capturar la excepcion, porque no simplemente pones la clausula EXCEPT sin el tipo de error que pones, es decir el codigo inicial quedaria asi:
Código:
Try FechaArchivo.Date := StrToDate(StrFecha); bandFecha := True; Except ShowMessage('Error'); End;
__________________
Optimus Prime |
#5
|
||||
|
||||
Cita:
// Saludos |
#6
|
||||
|
||||
Cita:
En un caso sencillo quizá no pase nada pero para prevenir futuros dolores de cabeza es bueno evitar este tipo de técnicas. // Saludos |
|
|
|