ชุมชนคนรักภาษาเบสิค - Visual Basic Community

 ลืมรหัสผ่าน
 ลงทะเบียน
ค้นหา
ดู: 5177|ตอบกลับ: 0

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

[คัดลอกลิงก์]

308

กระทู้

498

โพสต์

5971

เครดิต

ผู้ดูแลระบบ

ทองก้อน ทับทิมกรอบ

Rank: 9Rank: 9Rank: 9

เครดิต
5971


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

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

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

  19. End Function

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

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


สิ่งที่ดีกว่าการให้ คือการให้แบบไม่มีที่สิ้นสุด
ขออภัย! คุณไม่ได้รับสิทธิ์ในการดำเนินการในส่วนนี้ กรุณาเลือกอย่างใดอย่างหนึ่ง ลงชื่อเข้าใช้ | ลงทะเบียน

รายละเอียดเครดิต

ข้อความล้วน|อุปกรณ์พกพา|ประวัติการแบน|G2GNet.com  

GMT+7, 2024-3-28 22:20 , Processed in 0.202358 second(s), 4 queries , File On.

Powered by Discuz! X3.4, Rev.62

Copyright © 2001-2020 Tencent Cloud.

ตอบกระทู้ ขึ้นไปด้านบน ไปที่หน้ารายการกระทู้