เขียนโปรแกรมหาวันสุดท้ายของทุกเดือนใน 1 ปี ด้วย VB

15 Dec 2017,
Share: 

สวัสดีครับกลับมาพบกันอีกในบทความนี้ เนื่องจากมีเพื่อนคนนึงมาปรึกษาผมว่าอยากจะเขียนโปรแกรมด้วยภาษา vb เพื่อหาวันที่สุดท้ายของทุกๆเดือนในปีที่เรากําหนดได้อย่างไร ผมจึงหาวิธีการเขียนจนได้ และนํามาแบงปันเพื่อนๆ ได้ศึกษากันครับ ตัวอย่าง ถ้าเราต้องการหาวันสุดท้ายของแต่ละเดือนในปี 2017 เราจะได้ผลออกมาประมาณนี้ครับ

Image

วิธีที่ผมจะนําเสนอดังต่อไปนี้สามารถบอกได้ถึงแม้ว่าเป็นปี Leave Year มาดู function ที่ผมเขียนเป็นตัวอย่าง

Function getLastDayOfAllMunth(ByVal year As Long) As String()
    Dim thisYear = New DateTime(year, 1, 1)
    Dim lastDayOfAllMonth(11) As String

    For i As Integer = 0 To lastDayOfAllMonth.Length - 1
        lastDayOfAllMonth(i) = thisYear.AddMonths(i + 1).AddDays(-1).ToString("dd/MM/yyyy")
    Next

    Return lastDayOfAllMonth
End Function

จริงๆแล้วสามารถนํา Function นี้ไปใช้ได้เลยครับ โดย Function จะ Return เป็น Array ออกมา แต่ผมจะอธิบาย Code คร่าวๆ เพื่อใครจะนําไปประยุกต์ใช้ การทํางานของ Code คือ เริ่มด้วยสร้าง Object ของ DateTime เป็นวันที่ 1/1/ปีที่ต้องการ หลังจากนั้นเราจะเพิ่มเดือนเข้าไป 1 เดือน แล้วลบจํานวนวันไป 1 วัน เราจะได้วันสุดท้ายของเดือน 1 เพิ่มเดือนลักษณะนี้ไปเรื่อยๆจนครบ 12 เดือน เราก็จะได้วันสุดท้ายของทุกๆเดือนในปีนั้นๆ Project ตัวอย่างที่นี่ครับ github.com/mrthiti/LastDayOfEachMonth

Suggestion blogs

การอ่านค่าความจุของตัวเก็บประจุ Capacitor

ปัจจุบันตัวเก็บประจุถูกผลิตออกมามากมายหลายแบบ ประเภทของตัวเก็บประจุที่พบส่วนใหญ่มีดังนี้Tantalum electrolytic capacitorsCeramic capacitorsSilver mica capacitorsMylar capacitorsBipolar capacitorsElectrolytic capacitors

จัดการ Data flow ด้วย Redux ใน React

Redux เป็น Library ที่จะช่วยควบคุมการไหลของข้อมูลใน Application ของเราให้ดีขึ้น ซึ่งจะช่วยให้เราคาดการได้ว่าเมื่อเกิดเหตุการณ์ใดใน Component แล้วจะมีผลอะไรกับ Application ของเราบ้าง ถ้ายังนึกภาพไม่ออกให้ดูรูปนี้

เหรียญ 1 บาท เนื่องในวันอาหารโลก

เหรียญ 1 บาท เนื่องในวันอาหารโลก พ.ศ.2525 องค์การอาหารและเกษตรแห่งสหประชาชาติขอความร่วมมือให้กรมธนารักษ์จัดทำเหรียญกษาปณ์ที่ระลึกเนื่องในวันอาหารโลก องค์การอาหารและเกษตรแห่งสหประชาชาติเป็นองค์การระหว่างประเทศที่ดำเนินการเกี่ยวกับการเพิ่มผลผลิตในการเกษตรให้มากยิ่งขึ้น เพื่อมิให้ประชากรของโลกขาดแคลนอาหาร และเนื่องด้วยวันที่ 16 ตุลาคม พ.ศ. 2524 เป็นวันฉลองการก่อตั้งองค์การอาหารและการเกษตรแห่งสหประชาชาติ ครบปีที่ 36 องค์การ ฯ จึงถือเอาวันที่


Copyright © 2019 - 2025 thiti.dev |  v1.57.0 |  Privacy policy | 

Build with ❤️ and Astro.

Github profile   Linkedin profile   Instagram   X profile   Nostr   Youtube channel   Telegram   Email contact   วงแหวนเว็บ