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. 
 
 
          
