Cómo averiguar el domingo de cada mes

[davape9]

Hola.

Me gustaría saber como hago para hacer una función que averigue los días restantes hasta el primer domingo de cada mes. Por ejemplo, si estamos a primer sabado, que de 1. Y si estamos a primer domingo, que de 0.

He estado mirando por ahí y estoy perdidísimo. No se como hacerlo.

¿Alguna ayuda?

Gracias! :)

[dicuenca77]

Davape9, te pongo un código que he escrito, pero no he comprobado si funciona, pero por ahí van los tiros. A ver si te sirve. Ya me contarás si funciona:

Código:

<%
k=primerdomingo()
Response.write(k)


Function primerdomingo() 'DEVUELVE -1 SI YA HA PASADO EL PRIMER DOMINGO. EN CASO CONTRARIO DEVUELVE EL Nº DE DIAS
Dim cuantosdias, i, diactual, rfecha, pasado, k
 
 cuantosdias=UltimoDiaDeMes(month(date()), year(date()))
 i=0
 diactual=day(date())
 ' COMPROBAMOS SI YA HA PASADO EL 1º DOMINGO
 pasado=0
 do while (i<diactual)
 i=i+1
 rfecha=i&"/"&month(date())&"/"&year(date())
  if weekday(rfecha)=1 then
   pasado=-1
   i=diactual
  End if
 Loop
  ' SI NO HA PASADO EL 1º DOMINGO, CALCULAMOS EL Nº DE DIAS HASTA EL DOMINGO
 if pasado=0 then
 i=diactual-1
 k=-1
 do while (i<cuantosdias)
 i=i+1
 k=k+1
 rfecha=i&"/"&month(date())&"/"&year(date())
  if weekday(rfecha)=1 then
   pasado=k
   i=cuantosdias
  End if
 Loop 
 
 primerdomingo=pasado
 End if
 
End function

  ' FUNCION PARA CALCULAR EL Nº DE DIAS DEL MES
Function UltimoDiaDeMes(iMonth, iYear)

SDate = DateSerial(iYear, iMonth, "01")
MesSiguiente = DateAdd("m", 1, SDate)
UltimoDiaDeMes = Day(DateAdd("d", -1, MesSiguiente))
 
End Function
%>