Días entre dos fechas teniendo en cuenta el semestre
Teniendo dos fechas, por ejemplo: 01/02/2019 a 17/10/2019, necesito saber cuantos días están incluidos en el primer semestre del año, y cuantos en el segundo semestre.
No dices donde ni como lo quieres ver, si en un formulario, informe, cuadro de texto, mensaje, etc. Por eso, te pongo un ejemplo. Supongamos que tengo un formulario( en este caso es independiente)
Si escribo una fecha en Texto24
Si escribo otra en texto26
El código de lo eventos Después de actualizar de los cuadros de texto 24 y 26 es
Private Sub Texto24_AfterUpdate() If [Texto24] > #1/1/2019# And [Texto24] <= #6/30/2019# Then Dif1 = #6/30/2019# - Texto24 Etiqueta36.Caption = "Son del primer semestre" Else Dif1 = Texto24 - #7/1/2019# Etiqueta36.Caption = "Son del segundo semestre" End If Etiqueta36.Visible = True End Sub Private Sub Texto26_AfterUpdate() If Texto26 > #1/1/2019# And Texto26 <= #6/30/2019# Then Dif2 = Texto26 - #1/1/2019# Etiqueta37.Caption = "Son del primer semestre" Else Dif2 = Texto26 - #7/1/2019# Etiqueta37.Caption = "Son del segundo semestre" End If Etiqueta37.Visible = True End Sub
Icue, gracias por contestar.
No me sirve así.
Lo quiero para calcular intereses de demora.
Tengo una fecha de Vencimiento y una de Pago. Entre estas dos fechas hay una diferencia de días X, pero tengo que saber cuantos corresponden al primer semestre del año y cuantos al segundo.
Entre 01/01/ & Year(Vencimiento) y 30/06 & Year(Vencimiento) y Entre 01/07/ & Year(Pago) y 31/12 & Year(Pago)
Por ejemplo, entre el 17/12/2018 y 18/02/2019 el ejemplo me da:
Es más complicado, ya que se pueden dar los casos
Fecha1 Semestre1 Fecha2 Semestre1
Fecha1 Semestre1 Fecha 2 Semestre2
Fecha1 Semestre2 Fecha2 Semestre1(Caso particular que luego explico)
Fecha1 Semestre2 Fecha2 Semestre2
La única forma en que fecha1 sea del segundo semestre y que fecha 2 sea del primero es que fecha2 tenga un año(1) mayor que fecha1. Prefiero no pensar en que pasaría si fuera más de un año.
Por otro lado, con la expresión que has puesto no te haría nada. Las fechas no funcionan así. No existen los años, meses, semanas, horas, minutos. Al día 01/01/1900 se le asignó el 1, al 02/01/1900 se le asignó el 2 y así hasta hoy. Los años, son fórmulas, dividir el número de días, por ejemplo, int(43254/365.24)+1900
Las horas y minutos son decimales de día
Por eso, la función hay que cambiarla.
Los cuadros de texto se llaman Semestre1, Semestre2 y Totaldias
Si pongo fecha 1 del primer semestre y fecha 2 del primer semestre, cuando pulso el botón
Si pongo Fecha1 del primer semestre y Fecha 2 del segundo
Si pongo Fecha1 de segundo semestre y fecha2 del primero(caso de la explicacion)
En este caso, los días del primer semestre corresponden a Fecha2 y los del segundo corresponden a Fecha1, y por último, si fecha2 es del segundo semestre y Fecha2 también es del semestre2
El código del botón es
Private Sub Comando40_Click()
Dim a1 As String, a2 As String, a3 As String, a4 As String, b1 As String, b2 As String, b3 As String, b4 As String
a1 = "01/01/" & "" & Format(Year([Fecha1]), "0000")
a2 = "30/06/" & "" & Format(Year([Fecha1]), "0000")
a3 = "01/07/" & "" & Format(Year([Fecha1]), "0000")
a4 = "31/12/" & "" & Format(Year([Fecha1]), "0000")
b1 = "01/01/" & "" & Format(Year([Fecha2]), "0000")
b2 = "30/06/" & "" & Format(Year([Fecha2]), "0000")
b3 = "01/07/" & "" & Format(Year([Fecha2]), "0000")
b4 = "31/12/" & "" & Format(Year([Fecha2]), "0000")
If Fecha1 >= CDate("" & a1 & "") And Fecha1 <= CDate("" & a2 & "") And Fecha2 >= CDate("" & b1 & "") And Fecha2 <= CDate("" & b2 & "") Then
Semestre1 = DateDiff("d", Fecha1, Fecha2)
Semestre2 = 0
ElseIf Fecha1 >= CDate("" & a1 & "") And Fecha1 <= CDate("" & a2 & "") And Fecha2 >= CDate("" & b3 & "") And Fecha2 <= CDate("" & b4 & "") Then
Semestre1 = DateDiff("d", Fecha1, CDate("" & a2 & ""))
Semestre2 = DateDiff("d", CDate("" & b3 & ""), Fecha2)
ElseIf Fecha1 >= CDate("" & a3 & "") And Fecha1 <= CDate("" & a4 & "") And Fecha2 >= CDate("" & b1 & "") And Fecha2 <= CDate("" & b2 & "") Then
Semestre2 = DateDiff("d", Fecha1, CDate("" & a4 & ""))
Semestre1 = DateDiff("d", CDate("" & b1 & ""), Fecha2)
ElseIf Fecha1 >= CDate("" & a3 & "") And Fecha1 <= CDate("" & a4 & "") And Fecha2 >= CDate("" & b3 & "") And Fecha2 <= CDate("" & b4 & "") Then
Semestre1 = 0
Semestre2 = DateDiff("d", Fecha1, Fecha2)
End If
TotalDias = Semestre1 + Semestre2
End Sub
