Programación General > VBA

 Obtener Dia Anterior Y Nombre Del Dia

<< < (2/2)

Mollense:

--- Cita de: "mamex" --- Jejeje, en realidad no lo ocupé, pero me di cuenta después k lo puse. La función nombre día, le mandas el número del dia: lunes 1, martes 2, miercoles 3.

Pero lo que hace la función Day() es darme el número de la fecha, (ej. 23). Así que no sirve para obtener directamente que dia de la semana es, para eso necesito usar la función weekDay()

Pero bueno, pido disculpas por mi equivocación, y aqui está la funcion que debes modificar:


--- Código: Text --- Public Function FechaEnTexto(fecha As String) As String   FechaEnTexto = NombreDia(Weekday(fecha, vbMonday)) & &#34; &#34; & Day(fecha) & _        &#34; de &#34; & NombreMes(Month(fecha)) & &#34; del &#34; & Year(fecha)End Function  
--- Fin de la cita ---
Jeje. Eso me parecía  :beer:

F_Tanori:
Aqui hay otra idea de la funcion ... y claro aplicando todo el procedimento que aporto mamex  :smartass:


--- Citar ---Function NombreDia(dia As Integer) As String
Dim Resultado As String
    If dia > 0 And dia < 8 Then
        Resultado = Choose(dia, "Lunes", "Martes", "Miercoles", "Jueves", "Viernes", "Sabado", "Domingo")
    Else
        Resultado = "Error: No hay dia " & dia
    End If
NombreDia = Resultado
End Function

--- Fin de la cita ---


Saludos

Navegación

[0] Índice de Mensajes

[*] Página Anterior