| Pregunta: | 63879 - COMPARACIÓN FECHA |
| Autor: | Isa |
| Tengo un inconveniente al comparar fechas que estan incluida en un tipo objeto
fr0 = THISFORM.txtfec.VALUE fr1 = CTOD(DTOC(THISFORM.txtfecr.OBJECT.VALUE)) IF fr1 >= fr0 WAIT WINDOW NOWAIT " LA FECHA DE REQUISICION DEBE SER MENOR O IGUAL A LA FECHA DE REMISION " THISFORM.txtfecr.SETFOCUS THISFORM.txtfecr.ENABLED =.T. ENDIF Cuando la fecha es igual se presenta error y a mi parecer el comparador esta bien. Le agradezco su ayuda ISA | |
| Respuesta: | Jose Maria Vilar |
| 1. En el inicio del formulario tengo definido lo siguiente
public v_fecha_d,v_fecha_h v_fecha_d = DATE()-DAY(DATE())+1 v_fecha_h = date() con lo que le pongo a cada olecontrol el rango de fechas que deseo inicialmente 2. en el olecontrol de cada una le establesco el nombre correspondiente en CONTROLSOURCE = "v_fecha_d "al primero y "v_fecha_h" al segundo 3.- en el LOSTFOCUS del segundo va lo siguiente v_fecha_d = thisform.fecha_desde.object.value v_fecha_h = thisform.fecha_hasta.object.value do case case v_fecha_h < v_fecha_d =messagebox("La Fecha debe ser MAYOR o IGUAL al "+dtoc v_fecha_d),"Error de Ingreso") return endcase Cualquier cosa si no te sale escribime y te envio una muestra | |