<%@ Page Language="VB" ContentType="text/html" ResponseEncoding="windows-874" %> http://www.siam2dev.com >> ชุมชนนักพัฒนาซอฟต์แวร์ของไทยแห่งใหม่
เข้าสู่ระบบ ::    
http://www.siam2dev.com >> ชุมชนนักพัฒนาซอฟต์แวร์แห่งใหม่
Home   
News   
Articles   
Programming Zone   
DownLoad   
Contact US   
Links   
Webboard   
ฯลฯ   
 
     สวัสดีครับทุกท่าน ผมพัฒนาเว็บนี้ขึ้นมาโดยมีวัตถุประสงค์ ที่จะเห็นโปรแกรมเมอร์ของไทย ได้มีการคิดค้นและพัฒนาซอฟต์แวร์ ของคนไทย กันมากขึ้น เพื่อเป็นการช่วยชาตของเราให้เจริญยิ่งขึ้นไป (จะได้ไม่ต้องทะเลาะกันอย่างทุกวันนี้ 555 อย่าเครียดครับ ) เนื่องจากเว็บนี้ยังเพิ่งเริ่มต้นนะครับอาจมีเนื้อหาบางงส่วนที่ยังไม่สมบูรณ์จึงขออภัยมา ณ โอกาส นี้ด้วยครับ
 
   VB.NET
     ฟังก์ ชันเกี่ยวกับ วันที่ Date , DateDiff , DateAdd , Format etc.

ในหลายครั้งของการเขียนโปรแกรมมักจะมีการทำงานกับวันที่ของระบบ ดังนั้น VB.NET จึงได้เตรียมฟังก์ชันที่ทำงานกับัวนที่ให้เลือกมากมาย ดังตัวอย่างต่อไปนี้

    ฟังก์ชัน Date.Now
    ฟังก์ชัน Date.Today
    ฟังก์ชัน DateAdd
    ฟังก์ชัน DateDiff
    ฟังก์ชัน Format

    ฟังก์ชัน Date.Now
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

      MsgBox(Date.Now)

End Sub

ผลลัพธ์ที่ได้



    ฟังก์ชัน Date.Today
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

      MsgBox(Date.Today)

End Sub

ผลลัพธ์ที่ได้

 

    ฟังก์ชัน DateAdd()

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

      ' สมมุติต้องการ ทราบ ว่าอีก 7 วันนับจากวันนี้ เป็น วันที่เท่าใหร่ สามารถเขียนคำสั่งดังนี้

MsgBox(DateAdd(DateInterval.Day, 7, Today))

 

End Sub


    ฟังก์ชัน DateDiff ใช้สำหรับหาผลต่างของ วันที่ 2 วัน ดังตัวอย่าง

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

      ' สมมุติต้องการ ผลต่างของ วัน ที่ "18/08/2007" กับ "19/09/2007" จะเขียนคำสั่งดังนี้

Dim d1 As Date = "18/08/2007"
Dim d2 As Date = "19/09/2007"
MsgBox(DateDiff(DateInterval.Day, d1, d2))

   'ผลลัพธ์ จะได้ 32 วัน

End Sub

 
 
:: http://www.siam2dev.com ::
e-mail :: xnattapong@hotmail.com , songneam@gmail.com