AYUDA : Viernes de cada semana

Hola adicto,

No tengo Excel para probarlo, pero creo que algo asi haria el truco:

¡-DIASEM(A1;2)+5

donde A1 contiene la fecha en cuestion.

Saludos,
KL


"adicto" wrote in message news:
Mostrar la cita

Hola amigos :

Nuevamente con una duda de excel que ojala puedan ayudarme..

Queria ver la forma de obtener el dia viernes de la semana en la cual esta una fecha, por ejemplo :

Tengo la fecha 01/03/2006, en este caso, quiero que una funcion me devuelva 03/03/2006, esto lo quiero hacer por medio de codigo vba, veia las funciones DATEDIFF y DATEPART, pero no veia por donde sacarlo...

De antemano, muchas gracias...


adicto


Ver este tema: http://www.softwaremix.net/viewtopic-492899.html

Enviado desde http://www.softwaremix.net

hola, chicos !

Mostrar la cita

adicto escribio en el mensaje ...
... forma de obtener el dia viernes de la semana en la cual esta una fecha, por ejemplo:
Tengo la fecha 01/03/2006, en este caso, quiero que una funcion me devuelva 03/03/2006
esto lo quiero hacer por medio de codigo vba, veia las funciones DATEDIFF y DATEPART, pero no veia por donde sacarlo...

Mostrar la cita

KL escribio en el mensaje ...
... algo asi haria el truco:
¡-DIASEM(A1;2)+5
donde A1 contiene la fecha en cuestion.

despues de la propuesta de KL, [creo que] no tiene sentido usar codigo para definir una funcion :D
si de todas maneras requieres que sea por vba... algunas alternativas [misma propuesta de KL] pudieran ser:

1) si vas a 'tomar' de una celda 'la fecha'...
Function Viernes(ByVal Fecha As Range) As Date
Viernes = Fecha.Cells(1) - Application.WeekDay(Fecha.Cells(1), 2) + 5
End Function

2) si vas a 'pasar' el argumento 'Fecha' desde otras 'llamadas' en el codigo...
Function Viernes(ByVal Fecha As Date) As Date
Viernes = Evaluate(CLng(Fecha) & "-weekday(" & CLng(Fecha) & ",2)+5")
End Function

saludos,
hector.