Bulan.Pas:
Ini adalah Unit di mana kalender nasional dan kalender lunar bergantian satu sama lain.
Tahun-tahun tersebut semuanya dalam tahun Republik Tiongkok, silakan dikonversi sendiri (Tahun 1911 = Tahun Republik Tiongkok).
*Penjelasan Tabel Korespondensi Kalender Imlek Cina: *
*Dua angka pertama = bulan kabisat, jika 13 maka tidak ada bulan kabisat*
*Digit ketiga sampai keenam = kode biner ukuran 12 bulan -> desimal*
* Misalnya: *
*101010101010 = 2730*
*1 : mewakili bulan besar (30 hari) 0 : mewakili bulan kecil (29 hari) ==> 1 bulan, 2 bulan kecil, 3 bulan... *
*Digit ketujuh adalah jumlah hari pada bulan kabisat*
*0 : Jumlah hari tanpa bulan kabisat*
*1 : Bulan kabisat adalah bulan kecil (29 hari)*
*2: Bulan kabisat adalah bulan besar (30 hari)*
*Dua digit terakhir menunjukkan perbedaan jumlah hari antara tanggal 1 Januari kalender matahari dan tanggal 1 Januari kalender lunar*
******************************************************* * *****
Tabel pemetaan ini hanya mencakup tahun pertama Republik Tiongkok hingga tahun pertama Republik Tiongkok. Jika dirasa kurang, silakan tambahkan sendiri sesuai cara di atas :).
Program ini tidak menentukan apakah tahun, bulan, dan hari yang Anda masukkan sudah benar. Silakan menilai sendiri.
Jika bulan lunar yang dikonversi adalah bulan kabisat, nilai yang diberikan kepada Anda akan menjadi ***angka negatif***
Jika Anda ingin mengubah kalender lunar menjadi kalender nasional, jika bulan kabisat, silakan masukkan ***angka negatif***
Versi ini adalah Versi FreeWare: 0.1
Anda dapat memodifikasinya sendiri, tetapi yang terbaik adalah mengirimkan salinan program yang dimodifikasi melalui email kepada saya.
Jika Anda ingin menggunakannya untuk tujuan komersial, silakan kirim email kepada saya untuk memberi tahu saya tujuan dan alasan Anda.
Penulis: Peng Hongjie Email: [email protected]
//Konversi dari kalender nasional ke kalender lunar (tahun, bulan, hari republik Tiongkok, tahun lunar var, bulan lunar, hari lunar)
procedure Solar2Lunar(SYear, SMonth, SDay : Integer; Var LYear, LMonth, LDay : Integer);
//Konversi dari kalender lunar ke kalender nasional (tahun lunar, bulan lunar, hari lunar, var tahun, bulan, hari Republik Tiongkok)
prosedur Lunar2Solar(LYear, LMonth, LDay : Integer; Var SYear, SMonth, SDay : Integer);
//Masukkan tahun lunar untuk mengonversi nama enam puluh tahun
fungsi NamaTahun(Tahun : bilangan bulat) : string;
//Dapatkan jumlah hari dalam bulan lunar
fungsi HariPerBulan Bulan(LYear, LMonth : Integer) : Integer;
cal.Pas :
Kalender bulanan yang menggabungkan kalender nasional dan kalender lunar menjadi satu (Tidak memerlukan komponen aplikasi Delpi 3.0 Cina)
(Kisaran: tahun pertama Republik Tiongkok hingga tahun ke-100 Republik Tiongkok)
Properti Baru:
LTahun: Tahun kalender lunar Republik Tiongkok LBulan: Bulan kalender lunar (angka negatif adalah bulan kabisat)
LDay: Jumlah hari dalam kalender lunar LYearName: Nama periode enam puluh tahun dalam kalender lunar (hanya dapat dibaca)
Penulis: Peng Hongjie Email: [email protected]
Versi ini FreeWare dan dapat didistribusikan secara bebas, namun usahakan tetap menjaga integritasnya. Jika ada bug, silakan kirim email kepada saya.
Jika Anda ingin melakukan perubahan, silakan kirim salinannya ke email saya :)
