1
Click A1 y escriba "= NOW ( ) " para obtener la fecha actual del sistema . Haga clic en la pestaña de " desarrolladores" y haga clic en "Visual Basic " para iniciar el Editor de Visual Basic . Haga clic en el menú " Insertar" y haga clic en " módulos" para insertar un nuevo módulo de código
2
Crear una nueva función con una variable de tipo de datos "Fecha" como parámetro de entrada : .
< P > Public Function GetDayOfWeek ( dateEntered Como fecha)
3
Crear una variable para contener el número de días :
dayNum Dim As Integer
4
Utilice la función de " día de la semana " para devolver el número de días con el " dateEntered " variables :
dayNum = día de la semana ( dateEntered , vbSunday )
5
Utilice un comunicado " la caja " para determinar el día y regresar el nombre del día como una cadena :
Seleccione Case dayNum
caso 1
GetDayOfWeek =
Case "Sunday " 2
GetDayOfWeek = " Lunes "
caso 3
GetDayOfWeek = " Martes "
caso 4
GetDayOfWeek = " Miércoles "
caso 5
GetDayOfWeek = " Jueves "
caso 6 personas
GetDayOfWeek =
Case "Friday" 7
GetDayOfWeek = " Sábado " End Select
6
Termine su función escribiendo " End Function " en el final. Cambie a Microsoft Excel y escriba " = GetDayOfWeek (A1 ) " en la B1 para mostrar el día actual con la fecha en la A1.