2012年3月3日 星期六

如何取得每月的最後一天


  1. '做法都是用隔月的第一天減一天
  2.  
  3. 'VB
  4.  
  5. Private Sub Command1_Click()
  6. Dim d As Date
  7. d = "2006/05/03"
  8. MsgBox (DateAdd("M", 1, Format(d, "YYYY/MM") & "/01") - 1)
  9. End Sub
  10. 'VB.NET
  11.  
  12. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  13. Dim d As Date
  14. d = "2006/05/03"
  15. MsgBox(Date.Parse(d.AddMonths(1).ToString("yyyy/MM") & "/01").AddDays(-1))
  16.  
  17. End Sub

沒有留言:

張貼留言