Judging leap year, common year, 28 days, 29 days calculation method, give the beginning of the month, stop year month, judge the number of days in a year February, and automatically calculate

              

{starting from month to day enquiry}              if(Strtoint (Trim (adoquery_temp). fieldvalues['Qiyue']))=2) and(Strtoint (Trim (adoquery_temp). fieldvalues['Qiri']))= in) Then              begin                    ifDaysinamonth (Strtoint (Trim (Edit_niandu). Text)),2)= -     Then                    beginKaishiriqi:=inttostr (Strtoint (Trim (Edit_niandu). Text)) +'-'+trim (adoquery_temp. fieldvalues['Qiyue'])+'-'+' -'                    End                    Else                    beginKaishiriqi:=inttostr (Strtoint (Trim (Edit_niandu). Text)) +'-'+trim (adoquery_temp. fieldvalues['Qiyue'])+'-'+trim (adoquery_temp. fieldvalues['Qiri']); End; End; if(Strtoint (Trim (adoquery_temp). fieldvalues['Qiyue'])) <>2) and(Strtoint (Trim (adoquery_temp). fieldvalues['Qiri'])) <> in) Then              beginKaishiriqi:=inttostr (Strtoint (Trim (Edit_niandu). Text)) +'-'+trim (adoquery_temp. fieldvalues['Qiyue'])+'-'+trim (adoquery_temp. fieldvalues['Qiri']); End; {Monthly Stop Date}              if(Strtoint (Trim (adoquery_temp). fieldvalues['Zhiyue']))=2) and(Strtoint (Trim (adoquery_temp). fieldvalues['Zhiri']))= in) Then              begin                     //Query Month number of months in the month                    //Swiss Year                    ifDaysinamonth (Strtoint (Trim (Edit_niandu). Text)),2)= -   Then                    beginJieshuriqi:=inttostr (Strtoint (Trim (Edit_niandu). Text)) +1)+'-'+trim (adoquery_temp. fieldvalues['Zhiyue'])+'-'+' -'; End                    //Common year                    Else                    beginJieshuriqi:=inttostr (Strtoint (Trim (Edit_niandu). Text)) +1)+'-'+trim (adoquery_temp. fieldvalues['Zhiyue'])+'-'+trim (adoquery_temp. fieldvalues['Zhiri']); End; End              Else              begin                    if(Strtoint (Trim (adoquery_temp). fieldvalues['Qiyue']))=1) and(Strtoint (Trim (adoquery_temp). fieldvalues['Qiri']))=1) Then                    beginJieshuriqi:=inttostr (Strtoint (Trim (Edit_niandu). Text)) +'-'+' A'+'-'+' to'; End                    Else                    beginJieshuriqi:=inttostr (Strtoint (Trim (Edit_niandu). Text)) +1)+'-'+trim (adoquery_temp. fieldvalues['Zhiyue'])+'-'+trim (adoquery_temp. fieldvalues['Zhiri']); End; End;




  

Judging leap year, common year, 28 days, 29 days calculation method, give the beginning of the month, stop year month, judge the number of days in a year February, and automatically calculate