Fecha en access

Le agradecería me informe, alguna forma de hacer cálculos con las fechas en access. Por ejemplo, tengo un formulario donde un casillero es fecha actual o una cierta fecha y necesito que cuando se ingrese una fecha en esta, en otro casillero aparezca automáticamente la fecha de 30 días o por días después. O sea incrementarle por días a la fecha ingresada.
Desde ya muchas gracias
Manuel

1 Respuesta

Respuesta
1
Internamente las fechas se guardan como números enteros. Entonces si restas dos fechas te dará como resultado la cantidad de días que hay entre una y otra. Si a una fecha le sumas 30 te dará la fecha correspondiente a 30 días después. Pero también puedes usar las funciones de fecha que te permiten manipular el mes, el día de la semana, etc. Si lo aceptas te enviaré el código correspondiente a un cálculo de vencimientos. Espero tu respuesta. También puedes describirme el cáclulo que necesitas. Suerte- Marciana
Si, te agradeceré si me envías el código.
Muchas gracias
Public Function Vence(Proveedor As Long, FechaFactura As Date) As Date
'Calcula FEcha de vencimiento de acuerdo con proveedor
'Se usa en Formulario FacturaCompra2
Dim dia As Integer
Dim mes As Integer
Dim Anio As Integer
dia = Weekday(FechaFactura)
'Si proveedor no está definido
Vence = FechaFactura
' EGSA
If Proveedor = 1 Then
If dia = 6 Then
Vence = FechaFactura + 35
Exit Function
End If
If dia = 7 Then
Vence = FechaFactura + 6 + 35
Else
Vence = FechaFactura + 6 - dia + 35
End If
End If
'Wurth Rindem etman AGORA
If Proveedor = 3 Or Proveedor = 2 Or Proveedor = 4 Or Proveedor = 6 Then
Vence = FechaFactura + 30
End If
'DIBA
If Proveedor = 5 Then
dia = Day(FechaFactura)
mes = Month(FechaFactura) + 2
Anio = Year(FechaFactura)
If mes > 12 Then
mes = mes - 12
Anio = Anio + 1
End If
If dia <= 15 Then
Vence = DateValue("15/" & Str(mes) & "/" & Str(Anio) & "")
'Vence = FechaFactura + 15 - dia + 60
Exit Function
End If
If dia > 15 Then
mes = mes + 1
If mes = 13 Then
Vence = DateValue("31/" & Str(mes - 1) & "/" & Str(Anio))
Else
Vence = DateValue("1/" & Str(mes) & "/" & Str(Anio)) - 1
End If
End If
End If
End Function

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Tengo una base de datos en access para cobrar cuotas

En la cual genere formulario que muestra un resumen de las cuotas pagadas ¿Cómo puedo enviar cada formulario por mail?
2 respuestas

Tengo una duda access 2010 Reporte vba

Tengo la siguiente sintaxis para filtrar un reporte pero no se filtra no se que tenga mal. DoCmd.OpenReport "ALLM2CONTEDOR", acViewPreview, "FECHA = #" & Format(Me.FECHAOK, "mm-dd-yyyy") & " # AND CONTENEDOR= " & Me.NUMEROCONTENEDOR.Column(1) & ""...
2 respuestas

Como hacer que un campo de fecha sea numero

Una pregunta tengo un problemita tengo un campo fecha que al exportarlo a excel la fecha de quedar como numero les doy el ejemplo para ver si es posible y como se hace mientras gracias por su atención aquí en ejemplo esta es la fecha que se escribe...
2 respuestas

¿Cómo se puede añadir subformularios a Access?

He creado a través del asistente de formularios de Access un formulario principal con dos subformularios, Pero requiero añadir más subformulario y el asistente no lo permite, he intentado añadirlo pero el problema es que no funcionan de la misma...
4 respuestas

Imprimir en varios formatos desde formularios en access 2021

Tengo una base de datos, en el formulario, he puesto un botón de imprimir, para imprimir el registro activo en el formulario, pero me lo imprime en el tamaño que se ve en la pantalla, que es mas o menos un Din A4, y quiero que se imprima en un Din...
2 respuestas

Como resolver conflicto de escritura en Access

Tengo un problema con una base de datos de Access que tengo con tablas vinculadas con post-gres y cuando intento insertar o modificar un dato, Access me muestra el error que aparece en la imagen. Pienso que será un terma de permisos, pero no estoy...
1 respuesta

Actualizar datos automáticamente al modificar un registro de un formulario access

Tengo un formulario principal con un subformulario ahí se registran datos... Y tengo otro formulario2 con subformulario qué ahí se anexan los datos mediante una consulta de anexar... Entonces lo que quiero es como hacer que al modificar un dato en el...
2 respuestas

Línea de subformulario en otro color

Me gastaría saber como puedo cambiar de color toda la línea de un subformulario cuando esta esta activa, ejemplo, al introducir un nuevo registro que toda la sea de color diferente.
3 respuestas

Establecer valor de un campo en otro

Necesito establecer el valor de un campo en un formulario1 (CAMPO A) en el CAMPO B de otro formulario2. La idea es que al abrir el formulario2 en el nuevo registro el CAMPO A tome el valor del CAMPOB y luego el cursor se mueva a un campo C para...
3 respuestas

Imágenes en Informes Access 365 igual que en formularios

Siguiendo las indicaciones de Neckkito, introduje imágenes en formularios access para que aparecieran en cada registro. Quisiera hacer lo mismo con un informe pero las magnificas aclaraciones de Neckkito para formularios no valen para los informes....
1 respuesta