Unidad 6. Creación de formularios de usuario (XII)

Private Sub CmdFin_Click()

End

End Sub

Private Sub CmdGenera_Click()

Dim Fecha As Variant

Dim Mes(12) As Variant

Dim Dia(7) As Variant

'  Meses y Dias son cadenas de texto a partir del cual extraeremos los nombres

'  de los meses y los días

Meses = "Enero    Febrero  Marzo    Abril    Mayo     Junio    Julio    Agosto   SetiembreOctubre  NoviembreDiciembre"

Dias = "Lunes    Martes   MiercolesJueves   Viernes  Sábado   Domingo  "

' A continuación se extrae 9 caracteres de estas cadenas para almacenarlos

' en dos cuadros de listas y dos arreglos

For I = 1 To 12

    LstMeses.AddItem Trim(Mid(Meses, 9 * (I - 1) + 1, 9))

    Mes(I) = Trim(Mid(Meses, 9 * (I - 1) + 1, 9))

Next

For I = 1 To 7

    LstDias.AddItem Trim(Mid(Dias, 9 * (I - 1) + 1, 9))

    Dia(I) = Trim(Mid(Dias, 9 * (I - 1) + 1, 9))

Next

' Las siguientes líneas extraen Día, Mes y Año de la fecha actual

Fecha = Date

NDia = Mid(Fecha, 1, 2)

NMes = Mid(Fecha, 4, 2)

NAño = Mid(Fecha, 7, 4)

' La siguiente línea guarda en el cuadro de texto la cadena literal de la fecha

TxtFecha.Text = Trim(Dia(Weekday(Date, 2))) + " " + NDia + " de " + Trim(Mes(NMes)) + " del " + NAño

End Sub