Como calcula cantidad de días en mora en access

Quien puede hacerme el favor de ayudarme, estoy haciendo un pequeño programa de cartera.
Donde tengo un valor y una fecha pactada. Un Valor y una fecha de pago y tengo otras dos que son Saldo y cantidad de días en mora.
El la etiqueta de Días de mora realice un código que pensé que funcionaria.. Pero nada. Que error estoy cometiendo.
Private Sub Dias_Mora_AfterUpdate()
If [Vr_ Pagado] = 0 Then
   [Dias_Mora] = Fecha() - [Fecha_Pactada]
Elself [Vr _Pagado] > [Fecha_Pactada]
    [Dias_Mora] = [Fecha _de_Pago] - [Fecha_Pactada]
Else
    [Dias_Mora] = 0
End Sub
Por favor ayuda... Si esto que hice esta mal... Como lo puedo hacer...

1 Respuesta

Respuesta
1
Seguramente necesitas utilizar la función DateDiff (DiffFecha), que calcula el numero de días que hay entre dos fechas su sintaxis es así:
DateDiff("d",[fecha1],[fecha2])
Este devuelve el numero de días entre las dos fechas. Y con este resultado calculas y comparas. Prueba con el siguiente código modificado:
Private Sub Dias_Mora_AfterUpdate()
If [Vr_ Pagado] = 0 Then
   [Dias_Mora] = DateDiff("d",Fecha(),[Fecha_Pactada])
Elself [Vr _Pagado] > [Fecha_Pactada]
    [Dias_Mora] = DateDiff("d",[Fecha _de_Pago],[Fecha_Pactada])
Else
    [Dias_Mora] = 0
End Sub
Ya realice el proceso y aun nome calcula. En anterior había un error en ElserIf pero aun corregido no funcionan. Estoy enviando link para quien me pueda ayudar con esto, se lo agradecería.
Private Sub Dias_Mora_AfterUpdate()
If [Vr_Pagado] = 0 Then
   [Dias_Mora] = DateDiff("d", Fecha(), [Fecha_Pactada])
ElseIf [Vr_Pagado] < [Vr_Pactado] Then
    [Dias_Mora] = DateDiff("d", [Fecha_de_Pago], [Fecha_Pactada])
Else
    [Dias_Mora] = 0
End Sub
https://download.yousendit.com/OHo0SU5LU1BFd2Z2Wmc9PQ
Pues nada, decirte que solo faltaba una cosilla, cerrar el if con end if, he añadido el código al botón actualizar, para que al pulsarlo se actualice. Y cambiado el orden porque ponía días de mora en negativo.
Un saludo
https://www.yousendit.com/download/YWhQV293aFJBNkZFQlE9PQ
Private Sub Comando16_Click()
On Error GoTo Err_Comando16_Click
If [Vr_Pagado] = 0 Then
   [Dias_Mora] = DateDiff("d", Date, [Fecha_Pactada])
ElseIf [Vr_Pagado] < [Vr_Pactado] Then
    [Dias_Mora] = DateDiff("d", [Fecha_Pactada], [Fecha_de_Pago])
Else
    [Dias_Mora] = 0
End If
Exit_Comando16_Click:
    Exit Sub
Err_Comando16_Click:
    MsgBox Err.Description
    Resume Exit_Comando16_Click
End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Campo calculado de fecha, meses y años acccess 2007

Quiero calcular la antigüedad de los empleados de la empresa en la que estoy con la fecha de ingreso en access, de esa manera; fecha ingreso: 10/05/2005 Antigüedad:10 meses, 8 años ¿Qué función podría usa para conseguir eso? ¿Con el texto al lado de...
1 respuesta

Función SiInm

Tengo tres campos en un consulta: un campo fecha, un campo A y un campo B. El campo B es un campo calculado que sale de multiplicar un % al campo A. Pero este % Va cambiando en función de la fecha: Es decir: entre 1/06/02 y el 01/08/02 se aplica un...
1 respuesta

Guardar fecha calculada en un campo

Estoy haciendo una base de datos. Estoy haciendo un formulario. Y lo que quiero es que dada la fecha de nacimiento de la persona, me calcule la edad. Y que este resultado no solo lo muestre en el formulario, sino que lo guarde en la tabla...
2 respuestas

Sumar casillas de verificación con valor

Primero, enhorabuena por la página, respondéis rapidísimamente y con una precisión espectacular, os lanzo mi pregunta: Quiero hacer lo siguiente, una tabla con un botón del alternar o casilla de verificación por celda, al hacer click al botón o...
1 respuesta

¿Que opción de planteo es mejor en access para esto?

Tengo un tabla de pedidos y otra de detalle de pedidos relacionada. En la tabla de pedidos hay un campo que es "Fecha de vencimiento de pago" y otro "Fecha de pago realizado" La cuestion es que dentro del formulario de pedido tengo que generar un...
1 respuesta

¿Formulario qué me saque las ITV que caducan antes de una fecha?

Tengo un formulario, donde aparece la matricula de un vehículo, y un formulario asociado a esta matricula donde están las Itv. Es decir Matricula Fecha a pasar ITV Fecha Próxima ITV O-5453-BZ 01/01/2012 30/06/2012 O-5453-BZ 01/07/2012 31/12/2012...
1 respuesta

Restar fechas

Tengo un problema tengos 3 campos fecha dos de ellos los debo de sumar y me deben de dar cierta cantidad en años, meses y días, esa es la primera duda, como le hago para que salga así, y luego el resultado de estos dos campos mencionados los debo de...
3 respuestas

Problema al comparar dos cadenas de caracteres

Quiero comparar dos cadenas de caracteres de la siguiente forma: Private Sub NombreUsuario_Exit(Cancel As Integer) Dim UsuarioValido As Variant Dim rst As Recordset Set rst = CurrentDb.OpenRecordset("Select TIP From tblpermis where TIP = '" &...
1 respuesta

Ayuda de Inventario

Estoy haciendo un proyecto en access 2000 es de un inventario y facturación quisiera saber como poder afectar las cantidades de venta de un producto es decir para sacar la existencia de tal o cual producto, tengo una tabla que es de productos en...
1 respuesta

Calcular los años en un campo independiente

Tengo un campo fecha de nacimiento DD/MM/AAAA, me gustaría saber cual es la fórmula para que me calcule automáticamente en un campo independiente la edad que tiene esa persona actualmente.
1 respuesta