VB.NET根据年月获得总周数
来源:互联网 发布:ubuntu吧 编辑:程序博客网 时间:2024/05/29 19:13
Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click MsgBox("总周数:" & GetTotalWeeks(Me.monthid.Text)) End Sub Private Function GetTotalWeeks(ByVal monthid As String) As Integer Dim y, m As String y = monthid.Substring(0, 4) m = monthid.Substring(4) Dim totalweeks As Integer Dim FirstDayOfMonth As Date = New DateTime(y, m, 1) Dim LastDayOfMonth As Date = New DateTime(y, m, Date.DaysInMonth(y, m)) Dim d As Date = FirstDayOfMonth Dim ed(0) As Date Dim j As Int16 For i As Int16 = 0 To Date.DaysInMonth(y, m) - 1 If d.DayOfWeek = DayOfWeek.Saturday Then ReDim Preserve ed(j) ed(j) = d j = j + 1 End If d = d.AddDays(1) Next For i As Int16 = 0 To ed.Length - 1 MsgBox(ed(i)) Next totalweeks = ed.Length If ed(ed.Length - 1) <= LastDayOfMonth Then totalweeks = totalweeks + 1 End If Return totalweeks End Function
VB.NET根据年月获得总周数
- VB.NET根据年月获得总周数
- JS根据年月实现获得当月天数
- VB.NET根据年月和选择的第几周,得到次周日起范围
- 根据字段间比较获得指定单元的颜色的类(vb.net)
- 获得计算机硬件信息(VB.net)
- [VB.NET]获得拨号网络项目
- sql根据年月分组
- vb.net获得dataset的内容
- [转载]获得计算机硬件信息(VB.net)
- [VB.NET]获得主机名和IP地址
- [VB.NET]获得Windows运行时间
- 获得一段时间中所有年月
- javascript 根据年月计算天数
- 根据年月生成日历函数
- 根据年月生成日历函数
- ef根据年月进行分组
- 根据身份证获取出生年月
- VB和VB.NET中获得其他窗体控件句柄
- android listview 控件的美化
- myeclipse注册机代码
- Android中的BaseAdapter使用说明
- Java也能写木马~(附源码!)
- Teradata Data Types
- VB.NET根据年月获得总周数
- 黑马程序员 java学习笔记4-Io流学习后可能会用到的实例
- 中山大学 1238: 兵临城下//优先队列
- C# Implementation-of-Mime-De-encode
- C++指向类成员函数的指针
- 再学C++ Primer(2)-变量与基本类型
- Linux多线程编程
- Erlang mnesia(一) 生成sequence 查错过程
- 简单网络协议SNMP之net-snmp开发snmpget