Comparacion en un IF de fechas

Tengo problemas al comparar un campo fecha en una instrucción IF, necesito saber si esta vacío el campo para asignarle la fecha del sistema, mi instrucción es esta:
IF (FechaApunte = "") Then FechaApunte=Date
End If
No funciona ni de coña, please si tienes alguna ayuda te lo agradecería.
Gracias de antemano. DJT

1 respuesta

Respuesta
1
DJT: mira, si tienes un campo declarado como date entonces el valor por default que toma es "00:00:00" por lo tanto tu código debería ser:
IF (FechaApunte = "00:00:00") Then FechaApunte=Date
End If
Así te funcionará. Existen varias formas de tratar con fechas, pero siempre recuerda que las fechas en realidad son un numero entero que representan la cantidad de días que han transcurrido desde una fecha determinada la cual depende del motor de vase de datos. Por lo tanto siempre puede pregunctar por el valor de este numero haciendo val(campo_fecha) lo que te devolverá un numero, en el caso del ejemplo si fecha es "vacio" el val(fechaapunte) =0
Esto "val(campofecha)" te puede servir cuando tienes problemas del formato de la fecha y no quieres lidiar con eso puedes entonces usar su valor numérico.-
Suerte
AZB

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Consulta de Fecha vacía

Toy poco pez, necesito hacer un IF para saber si un campo Fecha esta vacío, como puedo hacerlo. Esto es lo que he hecho y no funciona ni pa tras. IF (FechaApunte = "" ) Then FechaApunte = Date End IF.
1 respuesta

Campo o variable de fecha con valor nulo

La pregunta tal vez sea una tontería, pero no sé como ver si un campo o variable de tipo date es null. Se trata de un campo o variable que le paso a una función, pero que no sé si es Null o bien está vacía y me da error al pasarla a la función. Si...
1 respuesta

Validar fechas

Como puedo cambiar el formato de fecha cuando, del recordset viene en blanco la fecha y no lo reconoce mi variable a un que es del mismo tipo. Osea: Variable tipo DATE UCOUTBOUND_CLI="" esta asignaciòn manda errror por que dice que es un string como...
1 respuesta

Correlativo bd sql 2008

Estoy desarrollando un pequeño programa para registrar pagares, el tema es que el la bd tengo la tabla "pagares", con el codp_id como int y se autoincremente cuando grabo en la bd, el tema es si puedo mostrar en un textbox el ultimo registro +1.-...
1 respuesta

Contador regresivo en vb

Aunque existen funciones en el visual basic que te dan la diferencia entre dos fechas, éstas fallan más que una escopeta de feria. Yo de ti lo haría así(como pide pistas, t digo el funcionamiento y tu lo traduces a código): -Calculo los segundos que...
1 respuesta

Décimas o milésimas de segundo

Tengo una aplicación que usa un campo hora larga de access para apuntar la hora de entrada y salida de un rally, He de intentar que en este campo se pueda poner también las décimas o milésimas, pues si no varios coches pueden entrar en un segundo,...
1 respuesta

Campos Null en visual basic

Resulta que en mi desarrollo web necesito subir un archivo en excel con 8 campos pero el ultimo campo debo hacerlo vacío para poder tomar la fecha del servidor cuando haga una gestión. En este momento lo hago pero si le pongo una fecha cualquiera a...
1 respuesta

Validación y mantenimiento de datos

Antes que nada mis felicitaciones por ser uno de los favoritos de todoexpertos, mi pregunta es como hacer mantenimiento de datos en power builder, se que existen muchas formas pero me gustaría que tu me dieras la mejor opción para poder hacerlo y me...
5 respuestas

¿Textbox No suma Decimales?

Hla, tengo un formulario con 4 textbox alineados en dos columnas de dos textbox c/u y un botón entre ellos, o que hace mi formulario es esto: Escribo un Valor en el Textbox1, presiono el botón que esta entre los dos textbox, el botón busca ese valor...
3 respuestas

Problema: dar de alta un registro en vb 6

Que me surge en vb 6, utilizando una base de datos access 97. El código es el siguiente: Private Sub Command1_Click() If Text0 = "" Then MsgBox "El campo ID es el identificador del nuevo cliente, es obligatorio que complete con valores numericos...
1 respuesta