Rellenar calendario
Publicado por Angel (90 intervenciones) el 11/03/2017 14:11:04
Hola, estoy interesado en hacer una base de datos con mi cuadrante de trabajo y buscando ejemplos encontré esta función de Necckito que rellena los días de un año o más en una tabla según pongamos. Pero yo quisiera que me repitiera cada día tres veces, es decir la siguiente sucesión: 01/01/2017 - 01/01/2017 - 01/01/2017 - 02/01/2017 - 02/01/2017 - 02/02/2017 .......). Gracias.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Public Sub generaFechas()
Dim laFecha As Date
Dim laFechaFin As Date
Dim rst As DAO.Recordset'Indicamos la fecha inicial en formato inglés
laFecha = #1/1/2017#
'Indicamos la fecha final en formato inglés
laFechaFin = #12/31/2017#
'Creamos el recordset sobre la tabla
Set rst = CurrentDb.OpenRecordset("TFechas", dbOpenTable)
'Iniciamos el proceso de rellenado
Do Until laFecha = laFechaFin + 1
With rst
.AddNew.Fields("cFecha").Value = Format(laFecha, "dd/mm/yy")
.UpdateEnd With
laFecha = laFecha + 1
Loop
'Lanzamos un mensaje de aviso
MsgBox "Proceso de llenado finalizado correctamente", vbInformation, "OK"
End Sub
Valora esta pregunta
0
