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

¿Puedo mostrar un subformulario diferente según el valor de un campo para un registro access?

Necesito mostrar un subformulario diferente, según el valor de un campo que llamo "Hecho Extraordinario". Si el hecho es un accidente de transito quiero captar los nombre de los heridos, fallecidos, etc. Si el hecho es un robo de ganado poder captar...
2 respuestas

Como hacer una consulta de access que me arroje suma por niveles de cuenta.

Un gusto saludarlos. Les comento, estoy haciendo un pequeño programa contable para un pequeño negocio que abrí, el asunto es que no se como crear una consulta, que me permita visualizar. 1. La suma por niveles (nivel 1 primer dígito del campo...
3 respuestas

Error en consulta de unión SQL en Access

Tengo una consulta de union SQL en la cuál obtengo todos los datos de dos Tablas llamadas tbEquipos y tbActualizaciones y quiero que esa consulta solo muestre los registros que sean iguales al valor de un cuadro de texto de un formulario. El error...
4 respuestas

Agregar campos de texto en un formulario en ejecución.

Un gusto saludarlos. Tengo un formulario llamado estudiante que viene de una tabla llamada estudiante. Cada estudiante ve un número diferente de asignaturas y asignaturas diferentes. El formulario arranca con los siguientes Campos número de cédula...
2 respuestas

¿Usar MongoDB como base de datos en vez de Mysql?

Mi duda es si Mondodb es también para utilizar como una base de datos "NORMAL" donde puedo almacenar distintos archivos, usuarios, etc en vez de utilizar MYSQL . Si tienen el mismo objetivo y orientación de almacenar datos persistentes.
1 respuesta

Alguien tendría un ejemplo de citas para clínicas, ¿En access 2007?

Me gustaría tener un ejemplo de access, base de datos de una clínica para citas.
3 respuestas

Abrir formulario desde cuadro combinado

Tengo un cuadro combinado que su nombre es cboForms al que le puesto una lista de varios formularios, el nombre de cada formulario es F_Papeleta_de_sitio_2022, F_Papeleta_del_sitio_2023, F_Papeleta_de_sitio_2024, etc me gustaría que al desplegar el...
4 respuestas

Suma tiempos en consulta - Access 2003

He estado buscando esta duda y no localizo nada para poder realizar lo que quiero. Lo primero decirles que trabajo con Access 2003. Lo que tengo es una BD con una clasificación de corredores, que tiene el DNI como Id y los siguientes campos PUESTO,...
3 respuestas

Vincular Access con MariaDB. Conflicto de escritura

Trabajo con una base de datos Acces dividida con Back-end en un Nas Qunap TS-464, como servidor. Este un su AppCenter tiene MariaDB como gestor de bases de datos y PhpMyAdmin para crear las bases de datos con sus tablas. Pues quiero utilizar la...
2 respuestas

Se puede usar Nas Qunap TS-464 como servidor para migrar BBDD Access a sql server

Trabajo con una BD Access en red y uso el Nas, además de almacenamiento, de servidor. Tengo uns 20 equipos y el back-end tiene unos 50 KB. Quisiera migrar las tablas a sql server y mantener la interfaz de formularios e informes Access. Puedo instalar...
2 respuestas