11766.html

来自「VB技巧问答10000例 VB技巧问答10000例」· HTML 代码 · 共 31 行

HTML
31 行
字号 
<html>
  <head>
    <title>写个Function供各位参考！</title>
  </head>
  <body bgcolor="#FFFFFF" vlink="#808080">
    <center>
      <h1>写个Function供各位参考！</h1>
    </center>
<hr size=7 width=75%>

<hr size=7 width=75%><p>
Posted by <a href="mailto:subird@ms20.url.com.tw">SuBird</a> on April 08, 1999 at 10:40:14:<p>
In Reply to: <a href="11722.html">如何利用年月资料得知当月的总天数</a> posted by mosa on April 07, 1999 at 15:42:37:<p>
: 请问如何利用取得的年与月的资料来判定当月的天数? <p>Re:<br>因为有闰年的问题(二月)，故需加以判断<br>Public Function DaysOfMonth(D As Date) As Long <br>    Dim m As Long, y As Long  <br>    m = Month(D)  <br>    y = Year(D)  <br>    Select Case m     <br>    Case 1, 3, 5, 7, 8, 10, 12          <br>        DaysOfMonth = 31     <br>    Case 4, 6, 9, 11          <br>        DaysOfMonth = 30      <br>    Case 2          <br>        DaysOfMonth = IIf((y Mod 4 = 0 And y Mod 100 <> 0) Or (y Mod 400) = 0, 29, 28)  <br>    End Select<br>End Function<p>
<br>
<br><hr size=7 width=75%><p>
<a name="followups">Follow Ups:</a><br>
<ul><!--insert: 11766-->
<!--top: 11770--><li><a href="11770.html">另一方法....DatePart() 与 DateAdd()函数</a> <b>SuBird</b> <i>10:53:27 4/08/99</i>
(<!--responses: 11770-->0)
<ul><!--insert: 11770-->
</ul><!--end: 11770-->
<!--top: 11769--><li><a href="11769.html">Re: 心得 show 一下 !</a> <b>安宝</b> <i>10:52:27 4/08/99</i>
(<!--responses: 11769-->0)
<ul><!--insert: 11769-->
</ul><!--end: 11769-->
</ul><!--end: 11766-->
<br><hr size=7 width=75%><p>

</body></html>

11766.html - 源码说明

本页面展示了「VB技巧问答10000例 VB技巧问答10000例」中的 11766.html 源码文件，采用 HTML 编程语言编写，共 31 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与10000相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?