thongkorn โพสต์ 2017-10-26 21:57:21

[VB6] การหาค่าวันที่เริ่มต้น และ วันสุดท้ายของแต่ละเดือน

http://www.g2gnet.com/webboard/images/vb6/GetDayFirstLastMonth.gif
Run Time ... แสดงวันแรกและวันสุดท้ายของเดือนกุมภาพันธ์ พ.ศ.2557

Private Sub Form_Load()
    Dim MyDate As String
    MyDate = "01/02/2557"
    MsgBox "วันที่เริ่มต้นของเดือน: " & GetFirstDayOfMonth(MyDate) & vbCrLf & _
      "วันที่สุดท้ายของเดือน: " & GetLastDayOfMonth(MyDate)
   
    '//หากต้องการหาค่าวันของเดือนปัจจุบัน
    'MsgBox "วันที่เริ่มต้นของเดือน: " & GetFirstDayOfMonth(Now()) & vbCrLf & _
      "วันที่สุดท้ายของเดือน: " & GetLastDayOfMonth(Now())
    End
End Sub

'// หาค่าวันแรกของเดือน
Function GetFirstDayOfMonth(MyDate As String) As String
    Dim GetDate As Date
   
    GetDate = CDate(MyDate)
   
    GetFirstDayOfMonth = Format(DateSerial(Year(GetDate), Month(GetDate), 1), "dd/MM/yyyy")

End Function

'// หาค่าวันสุดท้ายของเดือน
Function GetLastDayOfMonth(MyDate As String) As String

    Dim GetDate As Date
   
    '//วันเดือนปีปัจจุบัน (หรือเดือนที่ต้องการ แล้วส่งมาฟังค์ชั่นก็ได้)
    GetDate = CDate(MyDate)
   
    '// หาค่าเดือนต่อไป
    GetDate = DateAdd("m", 1, MyDate)
   
    GetLastDayOfMonth = Format(DateAdd("d", -1 * DatePart("d", GetDate), GetDate), "dd/MM/yyyy")
   
End Function

หน้า: [1]
ดูในรูปแบบกติ: [VB6] การหาค่าวันที่เริ่มต้น และ วันสุดท้ายของแต่ละเดือน