Rogar por puntuaciones altas: utilice la programación vb para mostrar el calendario de cualquier mes.

Opción explícita

Private subform_Click()

PrintML

Conector final

p>

Subform_Load privado()

i. AutoRedraw = Verdadero

i. Tamaño de fuente = 14

i. Caption = "Haga clic en el formulario para cambiar de mes"

i. ancho = 10360

i. Altura = 6300

PrintML

Conector final

Private SubPrintML()

Const ws As String = "Uno Dos Tres Cuatro Cinco Seis días"

Etiqueta I como un número entero

Etiqueta w como un número entero

m es un número entero, ms es un número entero

M = Val(InputBox("Ingrese el mes:"))

Si m & lt1 entonces m = 1

Si m & gt12 entonces m = 12

w =Día laboral("2011-" & m & "-1")

Si w = 1, entonces w = 8

w = w - 1

Cls

Imprimir

Imprimir

Pestaña Imprimir (8);

Imprimir "2011"&m &"mes"

imprimir cadena(67, " = ")

imprimir

i. FontSize = 14

Para i = 1 a 7

i. ForeColor = IIf(I>5,vbRed,vbBlue)

Pestaña Imprimir (I * 8);

Imprimir "Semana"&Mid(ws,I,1);

A continuación,

Imprimir

Imprimir

Para i = 1 en GetMS(m)

Si w = 8, entonces

w = 1

Imprimir

Imprimir

Terminará si...

i. ForeColor = IIf(w & gt; 5, vbRed, vbBlack)

Pestaña Imprimir (ancho * 8);

Imprimir I;

w = w + 1

Siguiente I

Conector final

Función privada GetMS (m es un número entero) es un número entero

Seleccione caso m p>

Caso 1, 3, 5, 7, 8, 10, 12

GetMS = 31

Caso 2

GetMS = 29

Otras situaciones

GetMS = 30

Finalizar selección

Finalizar función