注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

樱之花

叶散的时候,你明白欢聚;花谢的时候,你明白青春.

 
 
 

日志

 
 
关于我

分类中“我的实验室”是我在日常工作中的一些知识总结,有些写的比较匆忙,可能大家在阅读时会产生困扰,后期有时间我会重新整理编辑,谢谢大家的到访,您们的支持是我前进的动力!

网易考拉推荐

024 VB.NET获取周定义的结束日期  

2012-08-24 14:30:45|  分类: 我的实验室 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |

算法:

1.判断所选月的总天数。

2.定义周的定义,即周几到周几算一周,如周日到周六算一周。

3.根据2的例子,可得到所有周六的日期。

4.判断最后一个周六的日期是否是该月最后一天,若不是,加上最后该月最后一天,算作最后一周的结束日期。

取值注意:

1.取第1周时,判断结束日期是否是1号;

2.其他,直接取数组上一个索引对应值为该周开始日期,本次索引的值为该周结束日期

    Private Function GetWeekEndDate(ByVal monthid As String, ByVal a As DayOfWeek) As String()
        Dim y As String = monthid.Substring(0, 4)
        Dim m As String = monthid.Substring(4)
        Dim days As Integer = DateTime.DaysInMonth(y, m)
        Dim thedate As String = ""
        Dim begindate As Date = CDate(y & "-" & m & "-1")
        Dim enddate As Date = CDate(y & "-" & m & "-" & days)
        Dim demodate As Date
        For i As Integer = 1 To days
            demodate = begindate.AddDays(i - 1)
            If demodate.DayOfWeek = a Then
                If thedate = "" Then
                    thedate = Format(demodate, "yyyy-MM-dd")
                Else
                    thedate = thedate & "," & Format(demodate, "yyyy-MM-dd")
                End If
            End If
            If i = days Then
                If demodate.DayOfWeek <> a Then
                    thedate = thedate & "," & Format(enddate, "yyyy-MM-dd")
                End If
            End If
        Next
        Return Split(thedate, ",")
    End Function


调用:

       Dim a() As String = GetWeekEndDate("201208", DayOfWeek.Saturday)
        Dim str As String = ""
        For i As Integer = 0 To a.Length - 1
            str = str & a(i) & vbCrLf
        Next
        MsgBox(str)

结果:
024 VB.NET获取周定义的结束日期 - yinzhihua2008 - 樱之花 yinzhihua2008
  评论这张
 
阅读(809)| 评论(0)
推荐 转载

历史上的今天

在LOFTER的更多文章

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2017