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

thongkorn

Run Time ... แสดงวันแรกและวันสุดท้ายของเดือนกุมภาพันธ์ พ.ศ.2557

1. 
   
2. Private Sub Form_Load()
   
3.     Dim MyDate As String
   
4.     MyDate = "01/02/2557"
   
5.     MsgBox "วันที่เริ่มต้นของเดือน: " & GetFirstDayOfMonth(MyDate) & vbCrLf & _
   
6.         "วันที่สุดท้ายของเดือน: " & GetLastDayOfMonth(MyDate)
   
7.    
   
8.     '//  หากต้องการหาค่าวันของเดือนปัจจุบัน
   
9.     'MsgBox "วันที่เริ่มต้นของเดือน: " & GetFirstDayOfMonth(Now()) & vbCrLf & _
   
10.         "วันที่สุดท้ายของเดือน: " & GetLastDayOfMonth(Now())
    
11.     End
    
12. End Sub
    
13. 
    
14. '// หาค่าวันแรกของเดือน
    
15. Function GetFirstDayOfMonth(MyDate As String) As String
    
16.     Dim GetDate As Date
    
17.    
    
18.     GetDate = CDate(MyDate)
    
19.    
    
20.     GetFirstDayOfMonth = Format(DateSerial(Year(GetDate), Month(GetDate), 1), "dd/MM/yyyy")
    
21. 
    
22. End Function
    
23. 
    
24. '// หาค่าวันสุดท้ายของเดือน
    
25. Function GetLastDayOfMonth(MyDate As String) As String
    
26. 
    
27.     Dim GetDate As Date
    
28.    
    
29.     '//  วันเดือนปีปัจจุบัน (หรือเดือนที่ต้องการ แล้วส่งมาฟังค์ชั่นก็ได้)
    
30.     GetDate = CDate(MyDate)
    
31.    
    
32.     '// หาค่าเดือนต่อไป
    
33.     GetDate = DateAdd("m", 1, MyDate)
    
34.    
    
35.     GetLastDayOfMonth = Format(DateAdd("d", -1 * DatePart("d", GetDate), GetDate), "dd/MM/yyyy")
    
36.    
    
37. End Function

คัดลอกไปที่คลิปบอร์ด