<%if request.querystring("sbm")="True" then c = 360 an = 365.2422 k = 3.141632 / 180 mini = 5.145277 * k aa = "AriTauGemCanLeoVirLibEscSagCapAquPis" d = request.querystring("dia") m = request.querystring("mes") y = request.querystring("ano") J = Int(365.255 * (y - (m < 3))) + Int(30.2001 * (m + 1 + 12 * (m < 3))) + d - Int(y / 100) + Int(y / 400) + 1720996.5 If y / 100 = Int(y / 100) And y / 400 <> Int(y / 400) And m < 3 Then J = J + 1 End If ED = J - 2444239.5 z = 169.4883 + ED * 0.111442 - ED * 0.01395 / an 'mil z = c * (z / c - Int(z / c)) pos = z mini = Int((pos - Int(pos)) * 60 + 0.5) pos = Int(pos) ''milciento pos = pos - 1 For f = 30 To 360 Step 30 If pos < f Then p = Int(pos / 30) + 1 ''pos = pos - f + 30 End If Next ba = " " + Mid(aa, 3 * p - 2, 3) If Trim(ba) = "Can" Then pos = pos - 90 End If If Trim(ba) = "Tau" Then pos = pos - 30 End If If Trim(ba) = "Gem" Then pos = pos - 60 End If If Trim(ba) = "Leo" Then pos = pos - 120 End If If Trim(ba) = "Vir" Then pos = pos - 150 End If If Trim(ba) = "Lib" Then pos = pos - 180 End If If Trim(ba) = "Esc" Then pos = pos - 210 End If If Trim(ba) = "Sag" Then pos = pos - 240 End If If Trim(ba) = "Cap" Then pos = pos - 270 End If If Trim(ba) = "Aqu" Then pos = pos - 300 End If If Trim(ba) = "Pis" Then pos = pos - 330 End If ''pos = pos - 150 texto = pos & "°" & mini & "'" & ba ''pos & "-" & mini ''Text4.Text = ''response.write texto end if%> Efemerides Luna Negra - AstroDestino - La Comunidad Astrologica



Algunos astrólogos consideran que según el signo en el cual se encuentra la Luna Negra el 1º de Enero de cada año, esa será la posición que
debemos marcar en el horóscopo y que por lo tanto influirá o regirá en nuestra Carta Natal. Pero también quién así lo quiera podrá sacar la cuenta
sencilla para conocer la posición exacta de su Luna Negra en el día de su nacimiento sumando los grados o minutos necesarios para llegar a esa
posición. Para ello tomen en cuenta la siguiente información:

Para calcular la efeméride de la Luna Negra llena los casilleros y presiona el botón calcular.
Si quieres bajar un programa para calcularlas en tu casa haz click aqui para comenzar la
transferencia .

Calcula la Efeméride de la Luna Negra
Dia: Mes Año <%if len(texto)>1 then response.write "

" response.write "La posición de la Luna Negra para el "&d&"/"&m&"/"&y&" es "&texto end if%>