DateSerial Fechas contar ultimo dia del mes segun campo

Dudas sobre Tablas, Consultas, Formularios, Informes...
Avatar de Usuario
bryger
Nivel 4
Mensajes: 139
Registrado: Mié Jul 06, 2016 12:24 pm

DateSerial Fechas contar ultimo dia del mes segun campo

Mensajepor bryger » Vie Dic 07, 2018 10:51 pm

Buenas tardes tengo un problemita netecito contar en un formulario el ultimo dia del mes segun la fecha seleccionada en un campo del formulario lo que actualmente estoy haciendo es lo siguiente
utilizo esta función para obtener el primer dia del mes

Código: Seleccionar todo

Function PrimerDiaMes(Optional datFecha As Date) As Date
If datFecha = "0:00:00" Then datFecha = Date
PrimerDiaMes = DateSerial(Year(datFecha), Month(datFecha), 1)
End Function    ' PrimerDiaMes

luego esta para el ultimo dia del mes

Código: Seleccionar todo

Function UltimoDiaMes(Optional datFecha As Date) As Date
If datFecha = "0:00:00" Then datFecha = Date
UltimoDiaMes = DateSerial(Year(datFecha), Month(datFecha) + 1, 0)

y despues las resto y obtengo el total ultimo dia mes


pero es fija quiero que en un campo que yo coloque la fecha inicial del mes y del ultimo agarre esos dates y me saque el ultimo dia del mes
me podran ayudar


actualizo logre con esta función obtener mediante un campo la ultima fecha del mes el problema es que solo quiero el ultimo dia que puedo hacer

Código: Seleccionar todo

Public Function Final_Mes(DFec)
On Error GoTo Error_Final_Mes
Dim DDia, DMes, DFec2
If IsNull(DFec) Then Exit Function
DFec2 = DateAdd("m", 1, DFec)
DFec2 = CVDate("01/" & Month(DFec2) & "/" & Year(DFec2))
DFec2 = DateAdd("d", -1, DFec2)
Final_Mes = DFec2
Exit Function
Error_Final_Mes:
MsgBox Error$, 48, Titulo
Exit Function
End Function


Avatar de Usuario
bryger
Nivel 4
Mensajes: 139
Registrado: Mié Jul 06, 2016 12:24 pm

Re: DateSerial Fechas contar ultimo dia del mes segun campo

Mensajepor bryger » Mié Dic 12, 2018 12:22 am

Gracias


Volver a “Objetos Access”

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 1 invitado