vb 统计各个月份的天数

算法的思路：

1，要获得一年中各个月的天数，这样就要判断平年还是闰年，好在你这里不需要2月份的天数。所以预先定义：

月份 天数

8月 31

9月 30

10月 31

11月 30

12月 31

1月 31

2，找规律：

在 9月12日 那一行的天数是： 8月的天数31-12+12=31

在10月12日 那一行的天数是： 9月的天数30-12+12=30

在11月12日 那一行的天数是：10月的天数31-12+12=31

在12月12日 那一行的天数是：11月的天数30-12+12=30

在 1月12日 那一行的天数是：12月的天数31-12+12=31

在 2月12日 那一行的天数是： 1月的天数31-12+12=31

3，归纳：

1，每个月12日那一行，统计的天数，是上一月的整个月份的总天数。

2，注意：平年与闰年的2月份的天数不一样分别为28和29天。

通过分析，寻找规律，问题就变得很简单了。

Dim yd(6) As Integer

Dim i As Integer

yd(1) = 31 '8月份的总天数

yd(2) = 30 '9月份的总天数

yd(3) = 31 '10月份的总天数

yd(4) = 30 '11月份的总天数

yd(5) = 31 '12月份的总天数

yd(6) = 31 '1月份的总天数

For i = 1 To 6

Print yd(i)

Next i

Year(X)，Month(X)，Day(X)：取出年，月，日

[格式]：

P=Year(X)

取出X“年”部分的数值

P=Month(X)

取出X“月”部分的数值

P=Day(X)

取出X“日”部分的数值

[说明]：Year返回的是公元年，若X里只有时间，没有日期，则日期视为#1899/12/30#

日期：DateTimeNowToShortDateString

时间：DateTimeNowToFileTime

可以这样用：

ResponseWrite(DateTimeNowToShortDateString() + "

");

ResponseWrite(DateTimeNowToShortTimeString() + "

");

输出：

2007-1-29

8:49

ResponseWrite(DateTimeNowToLongDateString() + "

");

ResponseWrite(DateTimeNowToLongTimeString() + "

");

输出：

2007年1月29日

8:49:15

不知合不合你要求

我是要VS2005下使用，很好用。可查看MSDN以下简单例出：

NET Framework 类库

DateTime 成员

请参见 构造函数 字段 方法 属性 显式接口实现

全部折叠 全部展开 成员选项：全部显示 成员选项：已筛选

包括继承的成员

包括受保护的成员

仅 NET Compact Framework 成员

表示时间上的一刻，通常以日期和当天的时间表示。

下表列出了由 DateTime 类型公开的成员。

公共构造函数

名称 说明

DateTime 已重载。初始化 DateTime 结构的新实例。

页首

公共字段

名称 说明

MaxValue 表示 DateTime 的最大可能值。此字段为只读。

MinValue 表示 DateTime 的最小可能值。此字段为只读。

页首

公共属性

名称 说明

Date 获取此实例的日期部分。

Day 获取此实例所表示的日期为该月中的第几天。

DayOfWeek 获取此实例所表示的日期是星期几。

DayOfYear 获取此实例所表示的日期是该年中的第几天。

Hour 获取此实例所表示日期的小时部分。

Kind 获取一个值，该值指示由此实例表示的时间是基于本地时间、协调通用时间 (UTC)，还是两者皆否。

Millisecond 获取此实例所表示日期的毫秒部分。

Minute 获取此实例所表示日期的分钟部分。

Month 获取此实例所表示日期的月份部分。

Now 获取一个 DateTime 对象，该对象设置为此计算机上的当前日期和时间，表示为本地时间。

Second 获取此实例所表示日期的秒部分。

Ticks 获取表示此实例的日期和时间的刻度数。

TimeOfDay 获取此实例的当天的时间。

Today 获取当前日期。

UtcNow 获取一个 DateTime 对象，该对象设置为此计算机上的当前日期和时间，表示为协调通用时间 (UTC)。

Year 获取此实例所表示日期的年份部分。

'这种题为什么要用循环做，它本身就是一个select case xx 语句题，用循环如下：

Private Sub Command1_Click()

    Dim n As Integer, a(1 To 12) As String, i As Integer

    a(1) = "冬季"

    a(2) = "冬季"

    a(3) = "春季"

    a(4) = "春季"

    a(5) = "春季"

    a(6) = "夏季"

    a(7) = "夏季"

    a(8) = "夏季"

    a(9) = "秋季"

    a(10) = "秋季"

    a(11) = "秋季"

    a(12) = "冬季"

    n = Val(InputBox("", "input a number", 3))

    For i = 1 To 12

      If i = n Then

         MsgBox a(n)

         Exit For

      End If

    Next

End Sub

你是要知道这个月最后一天是几号？

可以从下个月1号退一天：

a = DateAdd("d", -1, DateSerial(Year(Date), Month(Date) + 1, 1))

Date 这个是函数，返回当前日期，也可以指定日期，将Date换成其他日期值即可

以上就是关于vb 统计各个月份的天数全部的内容，包括:vb 统计各个月份的天数、vb中怎么样分别得到年、月、日、VB中如何获取系统时间等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！