
Extraer el mes de una variable fecha dentro de un bucle
Publicado por andres (42 intervenciones) el 27/12/2022 14:18:56
Hola, tengo un bucle que me genera tantos registros como cantidad de cuotas se ingrese con fecha de vencimiento. Necesito extraer el mes de cada fecha generada.
Por ejemplo
mmes = Format(mfecha, "mmmm") Aca nose como hacer para que vaya cambiando
For Bucle = 1 To Me.Pag_Cuot_Cant_Cuot
CurrentDb.Execute "Insert into T_cuota ( Cuot_Apell, Cuot_Id_Juga, Cuot_dni, Cuot_fecha_Venc, Cuot_Cuot_de, Cuot_mes) Values ('" & jugador & "', " & Pag_Id & ", " & Me.Pag_Cuot_Dni & ", " & CDbl(DateAdd("m", Bucle - 1, Me.Pag_Cuot_ano)) & ", '" & " Cuota de " & Bucle & "-"
& Me.Pag_Cuot_Cant_Cuot & "', '" & Format(mfecha, "mmmm") & "')"
mmes = +1 ' se que esto no es asi.
Next Bucle

Aca tengo la tabla T_cuota
Campo
texto texto texto fecha
Cuot_Apell Cuot_ano Cuot_mes Cuot_fecha_Venc
Pedro 2022 diciembre 24/12/2022
Pedro 2022 diciembre 24/1/2023 acá tuviese que extraer enero
Pedro 2022 diciembre 24/2/2023 acá tuviese que extraer febrero
Por ejemplo
mmes = Format(mfecha, "mmmm") Aca nose como hacer para que vaya cambiando
For Bucle = 1 To Me.Pag_Cuot_Cant_Cuot
CurrentDb.Execute "Insert into T_cuota ( Cuot_Apell, Cuot_Id_Juga, Cuot_dni, Cuot_fecha_Venc, Cuot_Cuot_de, Cuot_mes) Values ('" & jugador & "', " & Pag_Id & ", " & Me.Pag_Cuot_Dni & ", " & CDbl(DateAdd("m", Bucle - 1, Me.Pag_Cuot_ano)) & ", '" & " Cuota de " & Bucle & "-"
& Me.Pag_Cuot_Cant_Cuot & "', '" & Format(mfecha, "mmmm") & "')"
mmes = +1 ' se que esto no es asi.
Next Bucle

Aca tengo la tabla T_cuota
Campo
texto texto texto fecha
Cuot_Apell Cuot_ano Cuot_mes Cuot_fecha_Venc
Pedro 2022 diciembre 24/12/2022
Pedro 2022 diciembre 24/1/2023 acá tuviese que extraer enero
Pedro 2022 diciembre 24/2/2023 acá tuviese que extraer febrero
Valora esta pregunta


0