zoukankan      html  css  js  c++  java
  • 判断闰年、平年,28天,29天的计算方法,给出起年起月,止年止月,判断某一年的2月份的天数,并自动计算

                  

    {
    起月起日查询} if (StrToInt(Trim(ADOQuery_temp.FieldValues['qiyue']))=2) and (StrToInt(Trim(ADOQuery_temp.FieldValues['qiri']))=29) then begin if DaysInAMonth(strtoint(Trim(Edit_niandu.Text)), 2)=28 then begin kaishiriqi:=IntToStr(StrToInt(Trim(Edit_niandu.Text)))+'-'+Trim(ADOQuery_temp.FieldValues['qiyue'])+'-'+'28' end else begin kaishiriqi:=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']))<>29) then begin kaishiriqi:=IntToStr(StrToInt(Trim(Edit_niandu.Text)))+'-'+Trim(ADOQuery_temp.FieldValues['qiyue'])+'-'+Trim(ADOQuery_temp.FieldValues['qiri']); end; {止月止日查询} if (StrToInt(Trim(ADOQuery_temp.FieldValues['zhiyue']))=2) and (StrToInt(Trim(ADOQuery_temp.FieldValues['zhiri']))=29) then begin //查询当月的月份天数 //瑞年 if DaysInAMonth(strtoint(Trim(Edit_niandu.Text)), 2)=28 then begin jieshuriqi:=IntToStr(StrToInt(Trim(Edit_niandu.Text))+1)+'-'+Trim(ADOQuery_temp.FieldValues['zhiyue'])+'-'+'28'; end //平年 else begin jieshuriqi:=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 begin jieshuriqi:=IntToStr(StrToInt(Trim(Edit_niandu.Text)))+'-'+'12'+'-'+'31'; end else begin jieshuriqi:=IntToStr(StrToInt(Trim(Edit_niandu.Text))+1)+'-'+Trim(ADOQuery_temp.FieldValues['zhiyue'])+'-'+Trim(ADOQuery_temp.FieldValues['zhiri']); end; end;











  • 相关阅读:
    linux系统中对SSD硬盘优化的方法
    正则
    自己写的博客上线啦
    create-react-app部署到GitHub Pages时报错:Failed to get remote。origin.url
    使用react-redux开发的简单步骤
    使用redux开发的简单步骤
    使用combineReducers注意事项
    在前端页面展示Markdown文件
    React Router V4.0学习笔记
    为什么React事件处理函数必须使用Function.bind()绑定this?
  • 原文地址:https://www.cnblogs.com/lantianhf/p/6127655.html
Copyright © 2011-2022 走看看