亚洲欧美第一页_禁久久精品乱码_粉嫩av一区二区三区免费野_久草精品视频

? 歡迎來(lái)到蟲(chóng)蟲(chóng)下載站! | ?? 資源下載 ?? 資源專(zhuān)輯 ?? 關(guān)于我們
? 蟲(chóng)蟲(chóng)下載站

?? calfunc.pas

?? 以前寫(xiě)的一個(gè)利用P2P 技術(shù)的一個(gè)通訊的例子。里面用到了 DBISAM 、INDY 控件。
?? PAS
?? 第 1 頁(yè) / 共 2 頁(yè)
字號(hào):
unit calfunc;

{用Delphi處理公歷到農(nóng)歷的轉(zhuǎn)換
boymaster

摘 要:公歷到農(nóng)歷的轉(zhuǎn)換
關(guān)鍵字:日歷,農(nóng)歷,轉(zhuǎn)換
類(lèi) 別:Object Pascal
 }
interface

uses SysUtils, Windows;

const
   START_YEAR = 1901;
   END_YEAR = 2050;

   //返回iYear年iMonth月的天數(shù) 1年1月 --- 65535年12月
function MonthDays(iYear, iMonth: Word): Word;

//返回陰歷iLunarYer年陰歷iLunarMonth月的天數(shù),如果iLunarMonth為閏月,
//高字為第二個(gè)iLunarMonth月的天數(shù),否則高字為0  1901年1月---2050年12月
function LunarMonthDays(iLunarYear, iLunarMonth: Word): Longword;

//返回陰歷iLunarYear年的總天數(shù) 1901年1月---2050年12月
function LunarYearDays(iLunarYear: Word): Word;

//返回陰歷iLunarYear年的閏月月份,如沒(méi)有返回0  1901年1月---2050年12月
function GetLeapMonth(iLunarYear: Word): Word;

//把iYear年格式化成天干記年法表示的字符串
procedure FormatLunarYear(iYear: Word; var pBuffer: string); overload;
function FormatLunarYear(iYear: Word): string; overload;

//把iMonth格式化成中文字符串
procedure FormatMonth(iMonth: Word; var pBuffer: string; bLunar: Boolean = True); overload;
function FormatMonth(iMonth: Word; bLunar: Boolean = True): string; overload;

//把iDay格式化成中文字符串
procedure FormatLunarDay(iDay: Word; var pBuffer: string); overload;
function FormatLunarDay(iDay: Word): string; overload;

//計(jì)算公歷兩個(gè)日期間相差的天數(shù)  1年1月1日 --- 65535年12月31日
function CalcDateDiff(iEndYear, iEndMonth, iEndDay: Word; iStartYear: Word = START_YEAR; iStartMonth: Word = 1; iStartDay: Word = 1): Longword; overload;
function CalcDateDiff(EndDate, StartDate: TDateTime): Longword; overload;

//計(jì)算公歷iYear年iMonth月iDay日對(duì)應(yīng)的陰歷日期,返回對(duì)應(yīng)的陰歷節(jié)氣 0-24
//1901年1月1日---2050年12月31日

function GetLunarHolDay(InDate: TDateTime): string; overload;
function GetLunarHolDay(iYear, iMonth, iDay: Word): string; overload;

//計(jì)算公歷iYear年iMonth月iDay日對(duì)應(yīng)的'巨蟹座'
function GetConstellationName(const Constellation: Integer): string; overload;
function GetConstellationName(const DateTime: TDateTime): string; overload;

//private function--------------------------------------

//計(jì)算從1901年1月1日過(guò)iSpanDays天后的陰歷日期
procedure l_CalcLunarDate(var iYear, iMonth, iDay: Word; iSpanDays: Longword);

//計(jì)算公歷iYear年iMonth月iDay日對(duì)應(yīng)的節(jié)氣 0-24,0表不是節(jié)氣
function l_GetLunarHolDay(iYear, iMonth, iDay: Word): Word;

implementation

var
   //數(shù)組gLunarDay存入陰歷1901年到2100年每年中的月天數(shù)信息,
   //陰歷每月只能是29或30天,一年用12(或13)個(gè)二進(jìn)制位表示,對(duì)應(yīng)位為1表30天,否則為29天
   gLunarMonthDay: array[0..149] of Word = (
      //測(cè)試數(shù)據(jù)只有1901.1.1 --2050.12.31
      $4AE0, $A570, $5268, $D260, $D950, $6AA8, $56A0, $9AD0, $4AE8, $4AE0, //1910
      $A4D8, $A4D0, $D250, $D548, $B550, $56A0, $96D0, $95B0, $49B8, $49B0, //1920
      $A4B0, $B258, $6A50, $6D40, $ADA8, $2B60, $9570, $4978, $4970, $64B0, //1930
      $D4A0, $EA50, $6D48, $5AD0, $2B60, $9370, $92E0, $C968, $C950, $D4A0, //1940
      $DA50, $B550, $56A0, $AAD8, $25D0, $92D0, $C958, $A950, $B4A8, $6CA0, //1950
      $B550, $55A8, $4DA0, $A5B0, $52B8, $52B0, $A950, $E950, $6AA0, $AD50, //1960
      $AB50, $4B60, $A570, $A570, $5260, $E930, $D950, $5AA8, $56A0, $96D0, //1970
      $4AE8, $4AD0, $A4D0, $D268, $D250, $D528, $B540, $B6A0, $96D0, $95B0, //1980
      $49B0, $A4B8, $A4B0, $B258, $6A50, $6D40, $ADA0, $AB60, $9370, $4978, //1990
      $4970, $64B0, $6A50, $EA50, $6B28, $5AC0, $AB60, $9368, $92E0, $C960, //2000
      $D4A8, $D4A0, $DA50, $5AA8, $56A0, $AAD8, $25D0, $92D0, $C958, $A950, //2010
      $B4A0, $B550, $B550, $55A8, $4BA0, $A5B0, $52B8, $52B0, $A930, $74A8, //2020
      $6AA0, $AD50, $4DA8, $4B60, $9570, $A4E0, $D260, $E930, $D530, $5AA0, //2030
      $6B50, $96D0, $4AE8, $4AD0, $A4D0, $D258, $D250, $D520, $DAA0, $B5A0, //2040
      $56D0, $4AD8, $49B0, $A4B8, $A4B0, $AA50, $B528, $6D20, $ADA0, $55B0); //2050

   //數(shù)組gLanarMonth存放陰歷1901年到2050年閏月的月份,如沒(méi)有則為0,每字節(jié)存兩年
   gLunarMonth: array[0..74] of Byte = (
      $00, $50, $04, $00, $20, //1910
      $60, $05, $00, $20, $70, //1920
      $05, $00, $40, $02, $06, //1930
      $00, $50, $03, $07, $00, //1940
      $60, $04, $00, $20, $70, //1950
      $05, $00, $30, $80, $06, //1960
      $00, $40, $03, $07, $00, //1970
      $50, $04, $08, $00, $60, //1980
      $04, $0A, $00, $60, $05, //1990
      $00, $30, $80, $05, $00, //2000
      $40, $02, $07, $00, $50, //2010
      $04, $09, $00, $60, $04, //2020
      $00, $20, $60, $05, $00, //2030
      $30, $B0, $06, $00, $50, //2040
      $02, $07, $00, $50, $03); //2050

   //數(shù)組gLanarHoliDay存放每年的二十四節(jié)氣對(duì)應(yīng)的陽(yáng)歷日期
   //每年的二十四節(jié)氣對(duì)應(yīng)的陽(yáng)歷日期幾乎固定,平均分布于十二個(gè)月中
   //   1月          2月         3月         4月         5月         6月
   //小寒 大寒   立春  雨水   驚蟄 春分   清明 谷雨   立夏 小滿(mǎn)   芒種 夏至
   //   7月          8月         9月         10月       11月        12月
   //小暑 大暑   立秋  處暑   白露 秋分   寒露 霜降   立冬 小雪   大雪 冬至
   {*********************************************************************************
    節(jié)氣無(wú)任何確定規(guī)律,所以只好存表,要節(jié)省空間,所以....
   **********************************************************************************}
   //數(shù)據(jù)格式說(shuō)明:
   //如1901年的節(jié)氣為
   //  1月     2月     3月   4月    5月   6月   7月    8月   9月    10月  11月     12月
   // 6, 21, 4, 19,  6, 21, 5, 21, 6,22, 6,22, 8, 23, 8, 24, 8, 24, 8, 24, 8, 23, 8, 22
   // 9, 6,  11,4,   9, 6,  10,6,  9,7,  9,7,  7, 8,  7, 9,  7,  9, 7,  9, 7,  8, 7, 15
   //上面第一行數(shù)據(jù)為每月節(jié)氣對(duì)應(yīng)日期,15減去每月第一個(gè)節(jié)氣,每月第二個(gè)節(jié)氣減去15得第二行
   // 這樣每月兩個(gè)節(jié)氣對(duì)應(yīng)數(shù)據(jù)都小于16,每月用一個(gè)字節(jié)存放,高位存放第一個(gè)節(jié)氣數(shù)據(jù),低位存放
   //第二個(gè)節(jié)氣的數(shù)據(jù),可得下表
   gLunarHolDay: array[0..1799] of Byte = (
      $96, $B4, $96, $A6, $97, $97, $78, $79, $79, $69, $78, $77, //1901
      $96, $A4, $96, $96, $97, $87, $79, $79, $79, $69, $78, $78, //1902
      $96, $A5, $87, $96, $87, $87, $79, $69, $69, $69, $78, $78, //1903
      $86, $A5, $96, $A5, $96, $97, $88, $78, $78, $79, $78, $87, //1904
      $96, $B4, $96, $A6, $97, $97, $78, $79, $79, $69, $78, $77, //1905
      $96, $A4, $96, $96, $97, $97, $79, $79, $79, $69, $78, $78, //1906
      $96, $A5, $87, $96, $87, $87, $79, $69, $69, $69, $78, $78, //1907
      $86, $A5, $96, $A5, $96, $97, $88, $78, $78, $69, $78, $87, //1908
      $96, $B4, $96, $A6, $97, $97, $78, $79, $79, $69, $78, $77, //1909
      $96, $A4, $96, $96, $97, $97, $79, $79, $79, $69, $78, $78, //1910
      $96, $A5, $87, $96, $87, $87, $79, $69, $69, $69, $78, $78, //1911
      $86, $A5, $96, $A5, $96, $97, $88, $78, $78, $69, $78, $87, //1912
      $95, $B4, $96, $A6, $97, $97, $78, $79, $79, $69, $78, $77, //1913
      $96, $B4, $96, $A6, $97, $97, $79, $79, $79, $69, $78, $78, //1914
      $96, $A5, $97, $96, $97, $87, $79, $79, $69, $69, $78, $78, //1915
      $96, $A5, $96, $A5, $96, $97, $88, $78, $78, $79, $77, $87, //1916
      $95, $B4, $96, $A6, $96, $97, $78, $79, $78, $69, $78, $87, //1917
      $96, $B4, $96, $A6, $97, $97, $79, $79, $79, $69, $78, $77, //1918
      $96, $A5, $97, $96, $97, $87, $79, $79, $69, $69, $78, $78, //1919
      $96, $A5, $96, $A5, $96, $97, $88, $78, $78, $79, $77, $87, //1920
      $95, $B4, $96, $A5, $96, $97, $78, $79, $78, $69, $78, $87, //1921
      $96, $B4, $96, $A6, $97, $97, $79, $79, $79, $69, $78, $77, //1922
      $96, $A4, $96, $96, $97, $87, $79, $79, $69, $69, $78, $78, //1923
      $96, $A5, $96, $A5, $96, $97, $88, $78, $78, $79, $77, $87, //1924
      $95, $B4, $96, $A5, $96, $97, $78, $79, $78, $69, $78, $87, //1925
      $96, $B4, $96, $A6, $97, $97, $78, $79, $79, $69, $78, $77, //1926
      $96, $A4, $96, $96, $97, $87, $79, $79, $79, $69, $78, $78, //1927
      $96, $A5, $96, $A5, $96, $96, $88, $78, $78, $78, $87, $87, //1928
      $95, $B4, $96, $A5, $96, $97, $88, $78, $78, $79, $77, $87, //1929
      $96, $B4, $96, $A6, $97, $97, $78, $79, $79, $69, $78, $77, //1930
      $96, $A4, $96, $96, $97, $87, $79, $79, $79, $69, $78, $78, //1931
      $96, $A5, $96, $A5, $96, $96, $88, $78, $78, $78, $87, $87, //1932
      $95, $B4, $96, $A5, $96, $97, $88, $78, $78, $69, $78, $87, //1933
      $96, $B4, $96, $A6, $97, $97, $78, $79, $79, $69, $78, $77, //1934
      $96, $A4, $96, $96, $97, $97, $79, $79, $79, $69, $78, $78, //1935
      $96, $A5, $96, $A5, $96, $96, $88, $78, $78, $78, $87, $87, //1936
      $95, $B4, $96, $A5, $96, $97, $88, $78, $78, $69, $78, $87, //1937
      $96, $B4, $96, $A6, $97, $97, $78, $79, $79, $69, $78, $77, //1938
      $96, $A4, $96, $96, $97, $97, $79, $79, $79, $69, $78, $78, //1939
      $96, $A5, $96, $A5, $96, $96, $88, $78, $78, $78, $87, $87, //1940
      $95, $B4, $96, $A5, $96, $97, $88, $78, $78, $69, $78, $87, //1941
      $96, $B4, $96, $A6, $97, $97, $78, $79, $79, $69, $78, $77, //1942
      $96, $A4, $96, $96, $97, $97, $79, $79, $79, $69, $78, $78, //1943
      $96, $A5, $96, $A5, $A6, $96, $88, $78, $78, $78, $87, $87, //1944
      $95, $B4, $96, $A5, $96, $97, $88, $78, $78, $79, $77, $87, //1945
      $95, $B4, $96, $A6, $97, $97, $78, $79, $78, $69, $78, $77, //1946
      $96, $B4, $96, $A6, $97, $97, $79, $79, $79, $69, $78, $78, //1947
      $96, $A5, $A6, $A5, $A6, $96, $88, $88, $78, $78, $87, $87, //1948
      $A5, $B4, $96, $A5, $96, $97, $88, $79, $78, $79, $77, $87, //1949
      $95, $B4, $96, $A5, $96, $97, $78, $79, $78, $69, $78, $77, //1950
      $96, $B4, $96, $A6, $97, $97, $79, $79, $79, $69, $78, $78, //1951
      $96, $A5, $A6, $A5, $A6, $96, $88, $88, $78, $78, $87, $87, //1952
      $A5, $B4, $96, $A5, $96, $97, $88, $78, $78, $79, $77, $87, //1953
      $95, $B4, $96, $A5, $96, $97, $78, $79, $78, $68, $78, $87, //1954
      $96, $B4, $96, $A6, $97, $97, $78, $79, $79, $69, $78, $77, //1955
      $96, $A5, $A5, $A5, $A6, $96, $88, $88, $78, $78, $87, $87, //1956
      $A5, $B4, $96, $A5, $96, $97, $88, $78, $78, $79, $77, $87, //1957
      $95, $B4, $96, $A5, $96, $97, $88, $78, $78, $69, $78, $87, //1958
      $96, $B4, $96, $A6, $97, $97, $78, $79, $79, $69, $78, $77, //1959
      $96, $A4, $A5, $A5, $A6, $96, $88, $88, $88, $78, $87, $87, //1960
      $A5, $B4, $96, $A5, $96, $96, $88, $78, $78, $78, $87, $87, //1961
      $96, $B4, $96, $A5, $96, $97, $88, $78, $78, $69, $78, $87, //1962
      $96, $B4, $96, $A6, $97, $97, $78, $79, $79, $69, $78, $77, //1963
      $96, $A4, $A5, $A5, $A6, $96, $88, $88, $88, $78, $87, $87, //1964
      $A5, $B4, $96, $A5, $96, $96, $88, $78, $78, $78, $87, $87, //1965
      $95, $B4, $96, $A5, $96, $97, $88, $78, $78, $69, $78, $87, //1966
      $96, $B4, $96, $A6, $97, $97, $78, $79, $79, $69, $78, $77, //1967
      $96, $A4, $A5, $A5, $A6, $A6, $88, $88, $88, $78, $87, $87, //1968
      $A5, $B4, $96, $A5, $96, $96, $88, $78, $78, $78, $87, $87, //1969
      $95, $B4, $96, $A5, $96, $97, $88, $78, $78, $69, $78, $87, //1970
      $96, $B4, $96, $A6, $97, $97, $78, $79, $79, $69, $78, $77, //1971
      $96, $A4, $A5, $A5, $A6, $A6, $88, $88, $88, $78, $87, $87, //1972
      $A5, $B5, $96, $A5, $A6, $96, $88, $78, $78, $78, $87, $87, //1973
      $95, $B4, $96, $A5, $96, $97, $88, $78, $78, $69, $78, $87, //1974
      $96, $B4, $96, $A6, $97, $97, $78, $79, $78, $69, $78, $77, //1975
      $96, $A4, $A5, $B5, $A6, $A6, $88, $89, $88, $78, $87, $87, //1976
      $A5, $B4, $96, $A5, $96, $96, $88, $88, $78, $78, $87, $87, //1977
      $95, $B4, $96, $A5, $96, $97, $88, $78, $78, $79, $78, $87, //1978
      $96, $B4, $96, $A6, $96, $97, $78, $79, $78, $69, $78, $77, //1979
      $96, $A4, $A5, $B5, $A6, $A6, $88, $88, $88, $78, $87, $87, //1980
      $A5, $B4, $96, $A5, $A6, $96, $88, $88, $78, $78, $77, $87, //1981
      $95, $B4, $96, $A5, $96, $97, $88, $78, $78, $79, $77, $87, //1982
      $95, $B4, $96, $A5, $96, $97, $78, $79, $78, $69, $78, $77, //1983
      $96, $B4, $A5, $B5, $A6, $A6, $87, $88, $88, $78, $87, $87, //1984
      $A5, $B4, $A6, $A5, $A6, $96, $88, $88, $78, $78, $87, $87, //1985
      $A5, $B4, $96, $A5, $96, $97, $88, $78, $78, $79, $77, $87, //1986
      $95, $B4, $96, $A5, $96, $97, $88, $79, $78, $69, $78, $87, //1987
      $96, $B4, $A5, $B5, $A6, $A6, $87, $88, $88, $78, $87, $86, //1988
      $A5, $B4, $A5, $A5, $A6, $96, $88, $88, $88, $78, $87, $87, //1989
      $A5, $B4, $96, $A5, $96, $96, $88, $78, $78, $79, $77, $87, //1990
      $95, $B4, $96, $A5, $86, $97, $88, $78, $78, $69, $78, $87, //1991
      $96, $B4, $A5, $B5, $A6, $A6, $87, $88, $88, $78, $87, $86, //1992
      $A5, $B3, $A5, $A5, $A6, $96, $88, $88, $88, $78, $87, $87, //1993
      $A5, $B4, $96, $A5, $96, $96, $88, $78, $78, $78, $87, $87, //1994
      $95, $B4, $96, $A5, $96, $97, $88, $76, $78, $69, $78, $87, //1995
      $96, $B4, $A5, $B5, $A6, $A6, $87, $88, $88, $78, $87, $86, //1996
      $A5, $B3, $A5, $A5, $A6, $A6, $88, $88, $88, $78, $87, $87, //1997
      $A5, $B4, $96, $A5, $96, $96, $88, $78, $78, $78, $87, $87, //1998
      $95, $B4, $96, $A5, $96, $97, $88, $78, $78, $69, $78, $87, //1999
      $96, $B4, $A5, $B5, $A6, $A6, $87, $88, $88, $78, $87, $86, //2000
      $A5, $B3, $A5, $A5, $A6, $A6, $88, $88, $88, $78, $87, $87, //2001
      $A5, $B4, $96, $A5, $96, $96, $88, $78, $78, $78, $87, $87, //2002
      $95, $B4, $96, $A5, $96, $97, $88, $78, $78, $69, $78, $87, //2003
      $96, $B4, $A5, $B5, $A6, $A6, $87, $88, $88, $78, $87, $86, //2004
      $A5, $B3, $A5, $A5, $A6, $A6, $88, $88, $88, $78, $87, $87, //2005
      $A5, $B4, $96, $A5, $A6, $96, $88, $88, $78, $78, $87, $87, //2006
      $95, $B4, $96, $A5, $96, $97, $88, $78, $78, $69, $78, $87, //2007
      $96, $B4, $A5, $B5, $A6, $A6, $87, $88, $87, $78, $87, $86, //2008
      $A5, $B3, $A5, $B5, $A6, $A6, $88, $88, $88, $78, $87, $87, //2009
      $A5, $B4, $96, $A5, $A6, $96, $88, $88, $78, $78, $87, $87, //2010
      $95, $B4, $96, $A5, $96, $97, $88, $78, $78, $79, $78, $87, //2011
      $96, $B4, $A5, $B5, $A5, $A6, $87, $88, $87, $78, $87, $86, //2012
      $A5, $B3, $A5, $B5, $A6, $A6, $87, $88, $88, $78, $87, $87, //2013
      $A5, $B4, $96, $A5, $A6, $96, $88, $88, $78, $78, $87, $87, //2014
      $95, $B4, $96, $A5, $96, $97, $88, $78, $78, $79, $77, $87, //2015
      $95, $B4, $A5, $B4, $A5, $A6, $87, $88, $87, $78, $87, $86, //2016
      $A5, $C3, $A5, $B5, $A6, $A6, $87, $88, $88, $78, $87, $87, //2017
      $A5, $B4, $A6, $A5, $A6, $96, $88, $88, $78, $78, $87, $87, //2018
      $A5, $B4, $96, $A5, $96, $96, $88, $78, $78, $79, $77, $87, //2019
      $95, $B4, $A5, $B4, $A5, $A6, $97, $87, $87, $78, $87, $86, //2020
      $A5, $C3, $A5, $B5, $A6, $A6, $87, $88, $88, $78, $87, $86, //2021
      $A5, $B4, $A5, $A5, $A6, $96, $88, $88, $88, $78, $87, $87, //2022
      $A5, $B4, $96, $A5, $96, $96, $88, $78, $78, $79, $77, $87, //2023
      $95, $B4, $A5, $B4, $A5, $A6, $97, $87, $87, $78, $87, $96, //2024
      $A5, $C3, $A5, $B5, $A6, $A6, $87, $88, $88, $78, $87, $86, //2025
      $A5, $B3, $A5, $A5, $A6, $A6, $88, $88, $88, $78, $87, $87, //2026
      $A5, $B4, $96, $A5, $96, $96, $88, $78, $78, $78, $87, $87, //2027
      $95, $B4, $A5, $B4, $A5, $A6, $97, $87, $87, $78, $87, $96, //2028
      $A5, $C3, $A5, $B5, $A6, $A6, $87, $88, $88, $78, $87, $86, //2029
      $A5, $B3, $A5, $A5, $A6, $A6, $88, $88, $88, $78, $87, $87, //2030
      $A5, $B4, $96, $A5, $96, $96, $88, $78, $78, $78, $87, $87, //2031
      $95, $B4, $A5, $B4, $A5, $A6, $97, $87, $87, $78, $87, $96, //2032
      $A5, $C3, $A5, $B5, $A6, $A6, $88, $88, $88, $78, $87, $86, //2033
      $A5, $B3, $A5, $A5, $A6, $A6, $88, $78, $88, $78, $87, $87, //2034
      $A5, $B4, $96, $A5, $A6, $96, $88, $88, $78, $78, $87, $87, //2035
      $95, $B4, $A5, $B4, $A5, $A6, $97, $87, $87, $78, $87, $96, //2036
      $A5, $C3, $A5, $B5, $A6, $A6, $87, $88, $88, $78, $87, $86, //2037
      $A5, $B3, $A5, $A5, $A6, $A6, $88, $88, $88, $78, $87, $87, //2038
      $A5, $B4, $96, $A5, $A6, $96, $88, $88, $78, $78, $87, $87, //2039
      $95, $B4, $A5, $B4, $A5, $A6, $97, $87, $87, $78, $87, $96, //2040
      $A5, $C3, $A5, $B5, $A5, $A6, $87, $88, $87, $78, $87, $86, //2041
      $A5, $B3, $A5, $B5, $A6, $A6, $88, $88, $88, $78, $87, $87, //2042
      $A5, $B4, $96, $A5, $A6, $96, $88, $88, $78, $78, $87, $87, //2043
      $95, $B4, $A5, $B4, $A5, $A6, $97, $87, $87, $88, $87, $96, //2044
      $A5, $C3, $A5, $B4, $A5, $A6, $87, $88, $87, $78, $87, $86, //2045
      $A5, $B3, $A5, $B5, $A6, $A6, $87, $88, $88, $78, $87, $87, //2046
      $A5, $B4, $96, $A5, $A6, $96, $88, $88, $78, $78, $87, $87, //2047
      $95, $B4, $A5, $B4, $A5, $A5, $97, $87, $87, $88, $86, $96, //2048
      $A4, $C3, $A5, $A5, $A5, $A6, $97, $87, $87, $78, $87, $86, //2049
      $A5, $C3, $A5, $B5, $A6, $A6, $87, $88, $78, $78, $87, $87); //2050

function MonthDays(iYear, iMonth: Word): Word;
begin
   case iMonth of
      1, 3, 5, 7, 8, 10, 12: Result := 31;
      4, 6, 9, 11: Result := 30;
      2: //如果是閏年
         if IsLeapYear(iYear) then
            Result := 29
         else
            Result := 28
      else
         Result := 0;
   end;
end;

function GetLeapMonth(iLunarYear: Word): Word;
var
   Flag: Byte;
begin
   Flag := gLunarMonth[(iLunarYear - START_YEAR) div 2];
   if (iLunarYear - START_YEAR) mod 2 = 0 then
      Result := Flag shr 4
   else
      Result := Flag and $0F;
end;

function LunarMonthDays(iLunarYear, iLunarMonth: Word): Longword;
var
   Height, Low: Word;
   iBit: Integer;
begin
   if iLunarYear < START_YEAR then
      begin
         Result := 30;

?? 快捷鍵說(shuō)明

復(fù)制代碼 Ctrl + C
搜索代碼 Ctrl + F
全屏模式 F11
切換主題 Ctrl + Shift + D
顯示快捷鍵 ?
增大字號(hào) Ctrl + =
減小字號(hào) Ctrl + -
亚洲欧美第一页_禁久久精品乱码_粉嫩av一区二区三区免费野_久草精品视频
亚洲精品va在线观看| 视频一区中文字幕| 久久精品免视看| 成人免费高清视频在线观看| 亚洲一区二区在线播放相泽 | 日韩欧美卡一卡二| av成人免费在线| 久久精品国产免费| 夜夜操天天操亚洲| 中文成人av在线| 久久久美女艺术照精彩视频福利播放| 91成人网在线| 成人黄色一级视频| 精品在线一区二区三区| 亚洲综合成人在线视频| 国产精品久久福利| 久久精品夜夜夜夜久久| 欧美一区二区三区性视频| 欧日韩精品视频| 91丝袜美女网| 成人午夜av在线| 国产另类ts人妖一区二区| 免费高清不卡av| 视频一区视频二区中文| 亚洲高清免费视频| 一区二区三区欧美日韩| 自拍偷拍国产精品| 国产精品传媒在线| 国产精品水嫩水嫩| 国产精品伦理在线| 中文字幕av一区二区三区高| 欧美精品一区二区在线观看| 日韩一区二区三区视频在线观看 | 欧美视频完全免费看| 成人av午夜影院| 国产精品一区二区在线观看不卡 | 中文无字幕一区二区三区| 久久综合999| 午夜视频在线观看一区| 亚洲女同一区二区| 亚洲精品视频在线观看网站| 18涩涩午夜精品.www| ...xxx性欧美| 最新中文字幕一区二区三区 | 亚洲精品国产a久久久久久| 1024国产精品| 亚洲欧美日韩综合aⅴ视频| 一区二区免费在线播放| 亚洲精品高清在线| 亚洲6080在线| 免费成人在线观看视频| 韩国av一区二区| 国产麻豆91精品| 成人激情动漫在线观看| 91啪在线观看| 欧美日韩日日夜夜| 在线91免费看| 久久伊99综合婷婷久久伊| 久久精品视频免费| 亚洲婷婷综合色高清在线| 亚洲精品va在线观看| 丝瓜av网站精品一区二区 | 久久久精品免费网站| 久久在线观看免费| 国产精品久久毛片| 依依成人精品视频| 偷拍日韩校园综合在线| 狠狠网亚洲精品| www.色综合.com| 欧美日韩性生活| 久久午夜国产精品| 一区视频在线播放| 午夜视频一区二区| 国产美女视频91| av电影在线观看完整版一区二区| 欧美性色黄大片手机版| 欧美一区二区在线播放| 久久久久久**毛片大全| 亚洲精品伦理在线| 麻豆一区二区三| 99久久精品国产毛片| 在线播放亚洲一区| 亚洲国产高清不卡| 五月天欧美精品| 国产成人精品亚洲777人妖| 欧美在线综合视频| 精品国产乱码久久久久久久| 综合婷婷亚洲小说| 免费高清不卡av| 色悠久久久久综合欧美99| 日韩欧美www| 自拍视频在线观看一区二区| 日本一道高清亚洲日美韩| 国产suv一区二区三区88区| 色欧美88888久久久久久影院| 日韩精品中文字幕一区二区三区| 国产精品福利av| 精品制服美女丁香| 欧美网站一区二区| 亚洲国产激情av| 美腿丝袜亚洲色图| 日本道免费精品一区二区三区| 欧美成人一级视频| 亚洲成人动漫在线观看| 懂色中文一区二区在线播放| 777久久久精品| 亚洲色图欧洲色图| 国产麻豆9l精品三级站| 日韩一区二区在线播放| 亚洲妇女屁股眼交7| 高清国产午夜精品久久久久久| 欧美一区二区三区日韩视频| 亚洲精品日日夜夜| 成人av影院在线| 五月天网站亚洲| 99久久婷婷国产综合精品电影| 精品国产一区二区亚洲人成毛片| 亚洲h精品动漫在线观看| 99久久国产综合精品麻豆| 国产偷v国产偷v亚洲高清| 免费高清不卡av| 欧美伦理影视网| 一区二区三区91| 99久精品国产| 国产精品传媒入口麻豆| 国产高清视频一区| 欧美精品一区二| 麻豆一区二区在线| 日韩欧美高清dvd碟片| 日本欧美一区二区在线观看| 欧美日韩一二三| 亚洲主播在线观看| 在线免费不卡视频| 亚洲女人****多毛耸耸8| a美女胸又www黄视频久久| 国产精品美女久久久久久| 懂色av一区二区在线播放| 国产女人aaa级久久久级 | 9i在线看片成人免费| 国产精品网站一区| av在线不卡免费看| 亚洲日穴在线视频| 欧美在线不卡视频| 亚洲不卡av一区二区三区| 欧美电影一区二区| 美女一区二区三区在线观看| 日韩一区二区免费高清| 久久福利视频一区二区| 久久综合一区二区| 粉嫩13p一区二区三区| √…a在线天堂一区| 欧美日韩中文字幕一区二区| 日本不卡的三区四区五区| 精品国产污网站| 国产成人午夜精品5599 | 国产欧美视频一区二区| 成人av在线资源网| 一区二区三区**美女毛片| 欧美日韩精品一区二区三区蜜桃| 人人精品人人爱| 国产色综合久久| 99re热视频精品| 午夜欧美大尺度福利影院在线看| 欧美人动与zoxxxx乱| 狠狠色综合日日| 亚洲色图另类专区| 777午夜精品免费视频| 国产精品夜夜嗨| 亚洲四区在线观看| 69精品人人人人| 国产夫妻精品视频| 亚洲影视在线播放| 久久久午夜精品| 欧美在线观看一二区| 麻豆国产精品官网| 亚洲欧美另类图片小说| 日韩欧美一级片| 93久久精品日日躁夜夜躁欧美| 亚洲成人av一区| 国产日韩欧美高清在线| 欧美午夜免费电影| 国产乱一区二区| 亚洲一区二区三区四区在线| 欧美成人在线直播| 92国产精品观看| 美女网站在线免费欧美精品| 国产精品欧美久久久久无广告 | 在线影院国内精品| 国内不卡的二区三区中文字幕| 一区二区三区在线播放| 久久久高清一区二区三区| 欧美午夜一区二区| www.亚洲免费av| 激情丁香综合五月| 亚洲成人中文在线| 亚洲视频精选在线| 欧美激情自拍偷拍| 日韩丝袜美女视频| 欧洲色大大久久| 成人免费看片app下载|