📄 howmany_days_a_month.htm

📁 对于学习很有帮助

💻 HTM

字号:

<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type="text/css">
<!--
body {  font-size: 9pt}
-->
</style></head>

<body bgcolor="#FFFFFF">
<p align="center"><b><br>
  如何计算任意一个月份的天数呢？</b></p>
<p>procedure TForm1.Button1Click(Sender: TObject);<br>
  var<br>
  MyDate : TDateTime;<br>
  tmpStr : String;<br>
  tmpInt : Integer;<br>
  begin<br>
  MyDate := Date() + 365 - (30*5);<br>
  tmpStr := FormatDateTime('mmmm yyyy',MyDate);<br>
  tmpInt := DaysInMonth(MyDate);<br>
  ShowMessage(tmpStr + '有 ' + IntToStr(tmpInt) + '天');<br>
  end;</p>
<p>function TForm1.DaysInMonth(ADate:TDateTime):Integer;<br>
  var<br>
  MyMonth,<br>
  MyYear,<br>
  MyDay : Word;<br>
  MyDayTable : TDayTable;<br>
  tmpBool : Boolean;<br>
  begin<br>
  DecodeDate(ADate, MyYear, MyMonth, MyDay);<br>
  tmpBool := IsLeapYear(MyYear);<br>
  MyDayTable := MonthDays[tmpBool];<br>
  Result := MyDayTable[MyMonth];<br>
  end;<br>
</p>
<p></p>
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -