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

%>