::Edad Lunar Batchiano ;)
@echo off
 
set /p "dia=Dia: "&set /p  "mes=Mes: "&set /p "anho=Anho: "
 
::Epacta con número áureo
set /a Epacta=((((anho + 1) %% 19) - 1) * 11) %% 30
 
if %mes% GEQ 3 (
	set /a MesesDesdeMarzo=%mes%-3
) else if %mes% EQU 2 (
	set /a MEsesDesdeMarzo=1
) else (
	set /a MEsesDesdeMarzo=0
)
 
::Edad Lunar
set /a EdadLunar = (Epacta + dia + MesesDesdeMarzo) %% 30
echo EdadLunar: %EdadLunar%
 
::Fase Lunar
set "FaseLunar=Novilunio,Cuarto creciente,Plenilunio,Cuarto menguante"
if %EdadLunar% LSS 7 (
	echo %FaseLunar:~0,9%
) else (
	if %EdadLunar% LSS 14 (
		echo %FaseLunar:~10,16%
	) else (
		if %EdadLunar% LSS 21 (
			echo %FaseLunar:~27,10%
		) else (
			if %EdadLunar% LSS 29 (
				echo %FaseLunar:~38,16%
			) else (
				echo %FaseLunar:~0,9%
			)
		)
	)
)
pause&exit/b