Calendario lunar

[sqa212]

Dispone alguien del codigo para obtener el calendario lunar, estoy intentando hacer uno, pero no encuentro ni si quiera la informacion necesaria para crear yo el codigo.
Saludos

[Myakire]

¿Calendario lunar?, ¿es ese que cada mes tiene 29 días y medio y años de 354 o 355 días?

[Myakire]

¿O es uno normal que muestra las faces de la luna?: http://www.castillalamancha.es/clmca...ario_lunar.asp

Aca hay unas ligas a lo que parecen script que saque de google.
http://www.hotscripts.com/search/1449860.html
http://www.handyarchive.com/Home-Edu...se-Finder.html

Saludos

[sqa212]

Iniciado por Myakire

http://www.handyarchive.com/Home-Edu...se-Finder.html
Saludos

Si busco algo como esto pero en Asp (esto es un programa), que te muestre para cada dia la luna que hay.
He visto uno aqui:
http://www.club-caza.com/luna/luna.asp

[sqa212]

He encontrado esto, pero esta en ASp.Net (ni idea de net ),
no se si los resultados que arroja la funcion son correctos).
Alguien sabria pasar esto a asp no Net???
<%Public Const Synod = 29.53058867

Public Const BaseNewMoonDateString As String = "18/11/1998 9:36:00 pm"
'Test a date for moon phase:
'Returns:
' 0: None
' 1: new moon
' 2: Quarter moon
' 3: Full moon
' 4: Three-quarter moon

Public Function MoonPhase(dDate As Date) As Integer

Select Case MoonAge(dDate)

'Day of a new moon
Case Is > Synod - 1:
MoonPhase = 1

'Day of a 1/4 moon
Case Synod / 4 - 1 To Synod / 4:
MoonPhase = 2

'Day of a full moon
Case Synod / 2 - 1 To Synod / 2:
MoonPhase = 3

'Day of a 3/4 moon
Case 3 * Synod / 4 - 1 To 3 * Synod / 4:
MoonPhase = 4

'No special day
Case Else:
MoonPhase = 0

End Select
End Function

Public Function MoonAge(dDate As Date) As Single
Dim BaseDate As Date
BaseDate = CDate(BaseNewMoonDateString)

MoonAge = Remainder((dDate - BaseDate), Synod)

End Function
Public Function Remainder(Number As Variant, DivideBy As _
Variant) As Variant
If Number = 0 Then
Remainder = 0
Else
Remainder = Number - DivideBy * Int(Number / DivideBy)
End If

End Function
%>

[flacoluis]

encontre esto espero te sirva


Uno de los problemas con los que los aficionados a la astronomía nos encontramos habitualmente es el de conocer la fase lunar de una fecha dada: No siempre se tiene a mano un calendario con las fases, pero mediante una sencilla operación matemática podemos calcular el aspecto de la Luna en la fecha deseada.

Para ver la forma de hacerlo utilizaremos un ejemplo, ¿cuál será la fase lunar el día 6 de Diciembre de 2004?



En primer lugar, sumamos las cifras del año actual ( 2004=2+0+0+4=6 )

Multiplicamos el resultado por 11: ( 6x11=66 )

A la cifra anterior, le sumamos la cifra correspondiente al día y la cifra correspondiente al mes que nos interesan: ( 66+6+12=84 )

Al resultado le restamos 30 sucesivamente hasta que no se puedan seguir realizando sustracciones: ( 84-30=54 ; 54-30=24 - ya no podemos seguir )

Este resultado es la edad de la Luna el día buscado


Así pues el día 6 de diciembre la edad de la Luna es de 24 días, lo cual corresponde a 3 días después del cuarto menguante. Si el resultado es 0 tendremos luna nueva, si es 7 cuarto creciente, para 14 tenemos luna llena, para 21 cuarto menguante. Los resultados intermedios determinan los valores entre fases correspondientes.

El método es válido desde el año 2000 al 2009.

[sqa212]

Gracias flacoluis , lo compruebo y os comento.