[VB6] การหาค่าวันที่เริ่มต้น และ วันสุดท้ายของแต่ละเดือน
http://www.g2gnet.com/webboard/images/vb6/GetDayFirstLastMonth.gifRun 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]