howmany_days_a_month.htm

来自「对于学习很有帮助」· HTM 代码 · 共 42 行

HTM

42 行

<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 + =

减小字号Ctrl + -

显示快捷键?

howmany_days_a_month.htm

howmany_days_a_month.htm - 源码说明

⌨️ 快捷键说明