Lunar.Pas:
Dies ist eine Einheit, in der der nationale Kalender und der Mondkalender einander abwechseln.
Die Jahreszahlen sind alle im Jahr der Republik China, bitte selbst umrechnen (Jahr 1911 = Jahr der Republik China).
*Erläuterung der Korrespondenztabelle des chinesischen Mondkalenders: *
* Die ersten beiden Ziffern = Schaltmonat, wenn es 13 ist, gibt es keinen Schaltmonat*
* Die dritte bis sechste Ziffer = der Binärcode der Größe der 12 Monate -> die Dezimalzahl*
* Zum Beispiel: *
* 101010101010 = 2730 *
* 1: stellt den großen Monat dar (30 Tage) 0: stellt den kleinen Monat dar (29 Tage) ==> 1 Monat alt, 2 Monate klein, 3 Monate alt... *
*Die siebte Ziffer ist die Anzahl der Tage im Schaltmonat*
* 0: Anzahl Tage ohne Schaltmonat*
* 1: Ein Schaltmonat ist ein kleiner Monat (29 Tage) *
*2: Der Schaltmonat ist ein großer Monat (30 Tage) *
*Die letzten beiden Ziffern geben die Anzahl der Tage Differenz zwischen dem 1. Januar des Sonnenkalenders und dem 1. Januar des Mondkalenders an*
************************************************** ******
Diese Zuordnungstabelle deckt nur das erste Jahr der Republik China ab. Wenn dies für Ihre Verwendung nicht ausreicht, fügen Sie es bitte selbst gemäß der oben genannten Methode hinzu :)
Dieses Programm ermittelt nicht, ob das von Ihnen eingegebene Jahr, der Monat und der Tag korrekt sind. Bitte treffen Sie Ihr eigenes Urteil.
Wenn der konvertierte Mondmonat ein Schaltmonat ist, ist der an Sie übergebene Wert eine ***negative Zahl***
Wenn Sie den Mondkalender in den nationalen Kalender umwandeln möchten und es sich um einen Schaltmonat handelt, geben Sie bitte eine ***negative Zahl*** ein.
Diese Version ist FreeWare-Version: 0.1
Sie können es selbst ändern, aber am besten senden Sie mir eine Kopie des geänderten Programms per E-Mail.
Wenn Sie es für kommerzielle Zwecke nutzen möchten, senden Sie mir bitte eine E-Mail und teilen Sie mir Ihren Zweck und Grund mit.
Autor: Peng Hongjie E-Mail: [email protected]
//Vom nationalen Kalender in den Mondkalender konvertieren (Jahr, Monat, Tag, Var-Mondjahr, Mondmonat, Mondtag)
procedure Solar2Lunar(SYear, SMonth, SDay : Integer; Var LYear, LMonth, LDay : Integer);
//Konvertieren vom Mondkalender in den nationalen Kalender (Mondjahr, Mondmonat, Mondtag, var. Jahr, Monat, Tag der Republik China)
procedure Lunar2Solar(LYear, LMonth, LDay : Integer; Var SYear, SMonth, SDay : Integer);
//Geben Sie das Mondjahr ein, um den sechzigjährigen Namen umzuwandeln
function YearName(LYear : integer) : string;
//Ermitteln Sie die Anzahl der Tage im Mondmonat
Funktion DaysPerLunarMonth(LYear, LMonth : Integer) : Integer;
cal.Pas :
Ein Monatskalender, der den nationalen Kalender und den Mondkalender in einem vereint (erfordert nicht die chinesische Anwendungskomponente Delpi 3.0).
(Bereich: 1. Jahr der Republik China bis 100. Jahr der Republik China)
Neue Immobilie:
LYear: Mondkalenderjahr der Republik China LMonth: Mondkalendermonat (negative Zahlen sind Schaltmonate)
LDay: Die Anzahl der Tage im Mondkalender. LYearName: Der Name des sechzigjährigen Zeitraums im Mondkalender (schreibgeschützt)
Autor: Peng Hongjie E-Mail: [email protected]
Diese Version ist FreeWare und kann frei verbreitet werden. Versuchen Sie jedoch, ihre Integrität zu wahren. Wenn es Fehler gibt, senden Sie mir bitte eine E-Mail.
Wenn Sie Änderungen vornehmen möchten, senden Sie mir bitte eine Kopie per E-Mail :)
