Paso.lunar:
Se trata de una Unidad donde se alternan el calendario nacional y el calendario lunar.
Todos los años están en el año de la República de China; conviértalo usted mismo (Año 1911 = Año de la República de China).
*Explicación de la tabla de correspondencia del calendario lunar chino: *
*Los dos primeros dígitos = mes bisiesto, si es 13 no hay mes bisiesto*
* Del tercero al sexto dígito = el código binario del tamaño del año -> el decimal*
* Por ejemplo: *
* 101010101010 = 2730 *
* 1: representa el mes grande (30 días) 0: representa el mes pequeño (29 días) ==> 1 mes, 2 meses pequeño, 3 meses... *
*El séptimo dígito es el número de días del mes bisiesto*
* 0: Número de días sin mes bisiesto*
*1: Un mes bisiesto es un mes pequeño (29 días)*
*2: El mes bisiesto es un mes grande (30 días) *
*Los dos últimos dígitos representan el número de días de diferencia entre el 1 de enero del calendario solar y el 1 de enero del calendario lunar*
************************************************** * *****
Esta tabla de mapeo solo cubre desde el primer año de la República de China hasta el primer año de la República de China. Si no es suficiente para su uso, agréguelo usted mismo de acuerdo con el método anterior :)
Este programa no determina si el año, mes y día que ingresó son correctos. Haga su propio juicio :(
Si el mes lunar convertido es un mes bisiesto, el valor que se le pasará será un ***número negativo***
Si desea convertir el calendario lunar al calendario nacional, si es un mes bisiesto, ingrese un ***número negativo***
Esta versión es FreeWare Versión: 0.1
Puede modificarlo usted mismo, pero es mejor enviarme por correo electrónico una copia del programa modificado.
Si desea utilizarlo con fines comerciales, envíeme un correo electrónico para indicarme su propósito y motivo.
Autor: Peng Hongjie Correo electrónico: [email protected]
//Convertir del calendario nacional al calendario lunar (año, mes, día, var año lunar, mes lunar, día lunar de la República de China)
procedimiento Solar2Lunar(SYear, SMonth, SDay: Entero; Var LYear, LMonth, LDay: Entero);
//Convertir del calendario lunar al calendario nacional (año lunar, mes lunar, día lunar, var año, mes, día de la República de China)
procedimiento Lunar2Solar(LYear, LMonth, LDay: Entero; Var SYear, SMonth, SDay: Entero);
//Ingrese el año lunar para convertir el nombre de sesenta años
función NombreAño(LAño: entero): cadena;
//Obtener el número de días del mes lunar
función DíasPorMesLunar(LYear, LMonth: Entero): Entero;
cal.Pas :
Un calendario mensual que combina el calendario nacional y el calendario lunar en uno (No requiere el componente de aplicación china Delpi 3.0).
(Rango: desde el primer año de la República de China hasta el año 100 de la República de China)
Nueva propiedad:
LAño: Año del calendario lunar de la República de China LMes: Mes del calendario lunar (los números negativos son meses bisiestos)
LDay: El número de días en el calendario lunar LYearName: El nombre del período de sesenta años en el calendario lunar (solo lectura)
Autor: Peng Hongjie Correo electrónico: [email protected]
Esta versión es FreeWare y se puede distribuir libremente, pero trate de mantener su integridad. Si hay algún error, envíeme un correo electrónico.
Si desea realizar cambios, envíeme una copia por correo electrónico.
