Obtener que dia cae el ultimo domingo de un mes

"Jaime" escribió en el mensaje
news:

Hola amigos, en esta oportunidad requiero me puedan ayudar con lo

siguiente:

Necesito obtener que numero de dia cae el ultimo domingo de un mes
especifico, eh estado averiguando pero aun no he tenido exito, por lo que
recurro a su ayuda

Me pillaste inspirado y desocupado, asi que ahi te va... ;)

<%

response.Write DiaUltimoDomingo(3,2005)


Function UltimoDia(mes,ano)

if IsDate(ano & "/" & mes & "/" & "31") then UltimoDia1: Exit function
if IsDate(ano & "/" & mes & "/" & "30") then UltimoDia0: Exit function
if IsDate(ano & "/" & mes & "/" & "29") then UltimoDia): Exit function
if IsDate(ano & "/" & mes & "/" & "28") then UltimoDia): Exit function

UltimoDia="ERR"

End function

Function DiaUltimoDomingo(mes,ano)

for i=UltimoDia(mes,ano) to 20 step -1

if weekday(ano & "/" & mes & "/" & i)=1 then DiaUltimoDomingo=Cdate(ano
& "/" & mes & "/" & i): Exit function

next


End function

%>

<%
dim Mes
dim Year

Mes=7
Year 05

dim DiasMes
DiasMes = Day(DateSerial(Year, Mes + 1, 0))

do while weekday(year & "/" & Mes & "/" & DiasMes)<>1
DiasMes=DiasMes-1
loop
response.Write("Ultimo Domingo del mes " & Mes & " es el " & DiasMes)
%>

Saludos ... Miguel Angel Martínez Morgan ... 8-)
[ MS-MVP-VB ] [ Cancún, Quintana Roo, México ]

Jaime wrote:

Hola amigos, en esta oportunidad requiero me puedan ayudar con lo
siguiente: Necesito obtener que numero de dia cae el ultimo domingo
de un mes especifico, eh estado averiguando pero aun no he tenido
exito, por lo que recurro a su ayuda

Gracias,

Jaime