Macros

FUNCION WEEKDAY, WEEKDAYNAME

1. WEEKDAY.-
* Esta función se utiliza para devolver un número que representa el día de la semana, teniendo en cuenta un valor de fecha.
* La función WEEKDAYda como resultado los días de la semana: De Lunes a Domingo.
En el siguiente ejemplo podemos apreciar el resultado de WEEKDAY.

Para que aparesca el cuadrito en el cual rellenamos la fecha serealiza de la siguiente manera:

Sub Quediaes()
Dim dayNr As Integer
If procedimiento = True Then
dayNr = Weekday(InputBox("Entre la fecha, por ejemplo 11/12/2011")) (Este cuadritoInputBox nos permite que no tengamos que insertar en el vba una userform y sea mas simple)
MsgBox "Sera " & DayOfWeek(dayNr) & "."
Else
WeekdayName (resultado del día dela semana)
End If

2. WEEKDAYNAME.-

La function devuelve una cadena WEEKDAYNAME, que representa el dia de la semana.
Weekname es un valor numérico del 1 al 7, lo que representa un dia de lasemana.

En el siguiente pantallazo podemos observar como unimos las 2 funciones WEEKDAY y WEEKDAYNAME.

Function DayOfWeek(dayNr As Integer) As String
DayOfWeek = Choose(dayNr, "Domingo","Lunes", "Martes", _
"Miércoles", "Jueves", "Viernes", "Sabado")
End Function

Function WeekdayName() As String
Select Case Weekday(InputBox("Escribir dia,por ejemplo,11/12/2011"))(Utilizamos select case ya que es un tema especifico por definir)
Case 1 weekdayname (Toma un día de la semana como valor numérico)
WeekdayName = "Lunes"
Case 2WeekdayName = "Martes"
Case 3
WeekdayName = "Miercoles"
Case 4
WeekdayName = "Jueves"
Case 5
WeekdayName = "Viernes"
Case6
WeekdayName = "Sabado"
Case 7
WeekdayName = "Domingo"
End Select
MsgBox "Dia de la semana deberia ser " & WeekdayName & "."


End...