Unidad 5. Programación usando objetos del Excel (XV)

Ejemplo 05: Conversión de fechas

Ingresar una determinada fecha a una celda y luego obtener los nombres del mes y día de la semana

Sub Ej05

'

' Declaración de variable y arreglos de tipo cadena (String)

'

Dim Fecha  As String

Dim Ames(12) As String

Dim ADia(7) As String

'

' Se define constantes de tipo cadena. Debe tomar em cuenta los espacio em blanco ya que cada nombre de mês será manejado como texto de 9 caracteres.

'

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

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

'

' Asignación a um arreglo 9 caracteres para cada uno de los 12 elementos

' Lo mismo se hace com los días de la semana

'

For I = 1 To 12

    Ames(I) = Mid(TMes, 9 * (I - 1) + 1, 9)

Next

For I = 1 To 7

    ADia(I) = Mid(TDias, 9 * (I - 1) + 1, 9)

Next

'

' Se pide ingresar una fecha y se extrae por partes como valor numérico

'

Fecha = InputBox("Ingrese la fecha DD/MM/YYYY")

Año = Val(Right(Fecha, 4))

Mes = Val(Mid(Fecha, 4, 2))

Dia = Val(Left(Fecha, 2))

'

' Luego se emite los valores separados y convertidos a texto

'

Range("A2") = "La fecha ingresada es: "

Range("B2") = Fecha

DiaSem = Weekday(Cells(2, 2), 1)

MsgBox "Corresponde al " & ADia(DiaSem) & Dia & " de " & Ames(Mes) & " del " & Año

End Sub

 Cursos Informática Gratuitos