Obtener el dia anterior y el nombre del dia en Visual Basic

[Sponsored links]

[Tilio]

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.

estoy ocupando VB 6.0

[Tael Yang]

Option Explicit

Private Function Dia_Semana()

Dim Fecha As String 'aca almacenamos la fecha completa

Dim i As Integer 'para recorrer la variable Fecha

Fecha = Format(Date - 1, "long Date", vbSunday, vbFirstFullWeek)

Dim Dia As String
i = 1

On Error Resume Next
While i <= Len(Fecha) And Mid(Dia, i - 1, i) <> ","
Dia = Mid(Fecha, 1, i)
i = i + 1
Wend
Dia = Mid(Dia, 1, Len(Dia) - 1)
Text1 = Dia

End Function

Private Sub Form_Load()
Dia_Semana
End Sub

[Tael Yang]

Tilio (http://www.laneros.com/member.php?u=97985) al fin que le sirvio o no?