Autor Tema: Obtener Dia Anterior Y Nombre Del Dia (Leído 2628 veces)

Martillo · « **en:** Jueves 8 de Febrero de 2007, 01:50 »

Hola a todos:

Necesito saber si existe la forma de hacer una funcion que me retorne el dia anterior que correponde por fecha y su dia de la semana, por ejemplo:

funcion_dia_anterior(01-02-2007)

y que retorne el dia anterior que seria el 31-1-2007 y que diga que es miercoles, alguien sabe como atacar este problema o por lo menos una parte de el, por favor seria de mucha ayuda, saludos.

ArKaNtOs

realmente la logica de la función es simple primero validas si la fecha que recibes es valida, después puedes ingresar ese valor a un dtpicker y que te diga el dia de la semana que es

mamex

Aki tienes un ejemplo usando unas funciones mías:

Código: Text

 
Private Sub cmdCalcular_Click()
    MsgBox FechaEnTexto(CDate(txtFecha.Text) - 1)
End Sub
 
Public Function FechaEnTexto(fecha As String) As String
    FechaEnTexto = Day(fecha) & &#34; de &#34; & NombreMes(Month(fecha)) & &#34; del &#34; & Year(fecha)
End Function
 
Public Function NombreMes(mes As Integer) As String
    Select Case mes
        Case 1
            NombreMes = &#34;Enero&#34;
        Case 2
            NombreMes = &#34;Febrero&#34;
        Case 3
            NombreMes = &#34;Marzo&#34;
        Case 4
            NombreMes = &#34;Abril&#34;
        Case 5
            NombreMes = &#34;Mayo&#34;
        Case 6
            NombreMes = &#34;Junio&#34;
        Case 7
            NombreMes = &#34;Julio&#34;
        Case 8
            NombreMes = &#34;Agosto&#34;
        Case 9
            NombreMes = &#34;Septiembre&#34;
        Case 10
            NombreMes = &#34;Octubre&#34;
        Case 11
            NombreMes = &#34;Noviembre&#34;
        Case 12
            NombreMes = &#34;Diciembre&#34;
    End Select
End Function
 
Public Function NombreDia(dia As Integer) As String
    Select Case dia
        Case 1
            NombreDia = &#34;Lunes&#34;
        Case 2
            NombreDia = &#34;Martes&#34;
        Case 3
            NombreDia = &#34;Miercoles&#34;
        Case 4
            NombreDia = &#34;Jueves&#34;
        Case 5
            NombreDia = &#34;Viernes&#34;
        Case 6
            NombreDia = &#34;Sabado&#34;
        Case 7
            NombreDia = &#34;Domingo&#34;
    End Select
End Function
 
 

Cualquier duda, pues escribe de nuevo. Saludos

Mollense

Citar

Public Function FechaEnTexto(fecha As String) As String
FechaEnTexto = Day(fecha) & " de " & NombreMes(Month(fecha)) & " del " & Year(fecha)
End Function

¿y cuando haces uso de NombreDia(dia As Integer)?
¿Quisiste poner esto?

Código: Text

Public Function FechaEnTexto(fecha As String) As String
   FechaEnTexto = NombreDia(Day(fecha)) & &#34; de &#34; & NombreMes(Month(fecha)) & &#34; del &#34; & Year(fecha)
End Function
 

Si es así, ¿Que rango de valores arroja Day(fecha)? Es que no lo recuerdo y no tengo instalado VB.-

Saludos

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

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)) & " " & Day(fecha) & _
" de " & NombreMes(Month(fecha)) & " del " & Year(fecha)
End Function

Jeje. Eso me parecía

F_Tanori

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

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

Saludos

SoloCodigo

Autor Tema: Obtener Dia Anterior Y Nombre Del Dia (Leído 2628 veces)

Martillo

Obtener Dia Anterior Y Nombre Del Dia

ArKaNtOs

Re: Obtener Dia Anterior Y Nombre Del Dia

mamex

Re: Obtener Dia Anterior Y Nombre Del Dia

Mollense

Re: Obtener Dia Anterior Y Nombre Del Dia

mamex

Re: Obtener Dia Anterior Y Nombre Del Dia

Mollense

Re: Obtener Dia Anterior Y Nombre Del Dia

F_Tanori

Re: Obtener Dia Anterior Y Nombre Del Dia