กลุ่มชุดคำสั่งในการแปลงค่าข้อมูล ชุด 1 ของภาษา OpenOffice/LibreOffice Basic

  

Advertise with Anonymous Ads

ชุดคำสั่ง : CCur

ประเภทชุดคำสั่ง : Function

      ทำหน้าที่ แปลงค่าข้อมูลที่กำหนด (เป็นข้อความ หรือค่าตัวเลข) ให้เป็นค่าข้อมูลตัวเลขจำนวนเงิน (Currency symbols)

รูปแบบชุดคำสั่ง :

           CCur(Expression)

ค่าที่ส่งกลับ : Currency

พารามิเตอร์ :

           Expression หมายถึง ค่าข้อมูลที่ต้องการแปลงเป็นค่าตัวเลขแบบจำนวนเงิน

ชุดคำสั่ง : CBool

ประเภทชุดคำสั่ง : Function

      ทำหน้าที่ แปลงค่าข้อมูลที่กำหนด ที่ได้จากการเปรียบเทียบของค่าข้อมูล หรือ ค่าตัวเลขให้เป็นค่าจริง (True) หรือ ค่าเท็จ (False) ในกรณีที่ค่าข้อมูลที่นำมาแปลงเป็นค่าตัวเลข ถ้ามีค่าเป็น 0 จะให้ผลเป็นค่าเท็จ ส่วนค่าตัวเลขอื่นๆ จะให้ผลเป็นค่าจริง

รูปแบบชุดคำสั่ง :

           CBool (Expression1 {= | <> | < | > | <= | >=} Expression2)

           หรือ CBool (Number)

ค่าที่ส่งกลับ : Bool

พารามิเตอร์ :

           Expression1 หมายถึง ค่าข้อมูลที่เป็นตัวตั้งในการเปรียบเทียบ

           Expression2 หมายถึง ค่าข้อมูลที่เป็นตัวดำเนินการเปรียบเทียบ

           Number หมายถึง ค่าตัวเลขที่ต้องการแปลงข้อมูล

รหัสข้อผิดพลาด :

           5 Invalid procedure call (ดูรายละเอียดเพิ่มเติมที่ชุดคำสั่ง Error)

ตัวอย่าง :

SUB subExampleCBool

         Dim iA As Integer, iB As Integer, iC As Integer, bTest As Boolean

         Dim vResult

         Dim sDisplayText As String

         iA = 5 : iB = 0 : iC = -3 : bTest = True

         sDisplayText = "iA = 5, iB = 0, iC = -3, bTest = True" & Chr(13) & Chr(13)

         vResult = CBool(iC < iA)

         sDisplayText = sDisplayText & "ค่าของคำสั่ง CBool(iC < iA) คือ " & _

         vResult & Chr(13)

         vResult = CBool(iA)

         sDisplayText = sDisplayText & "ค่าของคำสั่ง CBool(iA) คือ " & _

         vResult & Chr(13)

         vResult = CBool(iB)

         sDisplayText = sDisplayText & "ค่าของคำสั่ง CBool(iB) คือ " & _

         vResult & Chr(13)

         vResult = CBool(iC)

         sDisplayText = sDisplayText & "ค่าของคำสั่ง CBool(iC) คือ " & _

         vResult & Chr(13)

         vResult = CBool(bTest)

         sDisplayText = sDisplayText & "ค่าของคำสั่ง CBool(bTest) คือ " & _

         vResult & Chr(13)

         MsgBox sDisplayText

END SUB

รูปที่ 10 ภาพตัวอย่างการทำงานของซับรูทีน subExampleCBool

ชุดคำสั่ง : CDate

ประเภทชุดคำสั่ง : Function

      ทำหน้าที่ แปลงข้อมูลที่อยู่ในรูปข้อความหรือตัวเลขเป็นข้อมูลแบบ Date โดยในกรณีที่ข้อมูลที่จะแปลงเป็น Date เป็นข้อความเนื้อหาข้อมูลจะต้องอยู่ในรูป MM.DD.YYYY HH.MM.SS ในกรณีที่เป็นตัวเลขจะเป็นการคำนวณหาค่าวันเวลาที่โดยเริ่มนับตั้งแต่วันที่ 31 เดือนธันวาคม ค.ศ. 1899

รูปแบบชุดคำสั่ง :

           CDate (Expression)

ค่าที่ส่งกลับ : Date

พารามิเตอร์ :

           Expression หมายถึง ค่าข้อมูลที่เป็นข้อมูลแบบ Date

รหัสข้อผิดพลาด :

           5 Invalid procedure call (ดูรายละเอียดเพิ่มเติมที่ชุดคำสั่ง Error)

ตัวอย่าง :

SUB subExampleCDate

         Dim sDisplay As String

         Dim sDateString As String

         sDateString = "30.06.2007"

         sDisplay = "ค่าของ CDATE(1025.25) คือ " & cDate(1025.25) & Chr(13)

         sDisplay = sDisplay & "ค่าของ CDATE(sDateString) คือ " _

                              & CDATE(sDateString)

         MsgBox sDisplay

END SUB

รูปที่ 11 ภาพตัวอย่างการทำงานของซับรูทีน subExampleCDate

ชุดคำสั่ง : CDec

ประเภทชุดคำสั่ง : Function

      ทำหน้าที่ แปลงค่าข้อมูลที่เป็นข้อความหรือตัวเลข เป็นค่าตัวเลขแบบ decimal

รูปแบบชุดคำสั่ง :

           CDec(Expression)

ค่าที่ส่งกลับ : Decimal number.

พารามิเตอร์ :

           Expression หมายถึง ค่าข้อมูลที่ต้องการแปลงเป็นค่าตัวเลขแบบ decimal

ชุดคำสั่ง : CDbl

ประเภทชุดคำสั่ง : Function

      ทำหน้าที่ แปลงค่าข้อมูลที่เป็นข้อความหรือตัวเลข เป็นค่าตัวเลขแบบ double โดยค่าข้อมูลที่เป็นข้อความที่จะแปลงเป็นค่าตัวเลขแบบ double จะต้องเป็นข้อความของตัวเลขเช่น “1735.2” เป็นต้น

รูปแบบชุดคำสั่ง :

            CDbl (Expression)

ค่าที่ส่งกลับ : Double

พารามิเตอร์ :

            Expression หมายถึง ค่าข้อความที่ต้องการแปลงเป็นค่าตัวเลขแบบ Double

รหัสข้อผิดพลาด :

            5 Invalid procedure call (ดูรายละเอียดเพิ่มเติมที่ชุดคำสั่ง Error)

ชุดคำสั่ง : CInt

ประเภทชุดคำสั่ง : Function

      ทำหน้าที่แปลงค่าข้อมูลที่เป็นข้อความ หรือ ค่าตัวเลขให้เป็นค่าตัวเลขแบบ Integer โดยกรณีที่เป็นเลขทศนิยม ผลลัพธ์ที่ได้จะเป็นเลขจำนวนเต็มที่ใกล้เคียงกับค่าเดิมมากที่สุด (โดยการปัดค่าตัวเลข) และในกรณีที่เป็นค่าตัวเลขที่อยู่นอกช่วง -32768 ถึง 32767 OpenOffice.org Basic จะแสดงข้อผิดพลาดเป็น overflow error สำหรับกรณีที่เป็นข้อความจะต้องอยู่ในรูปข้อความตัวเลข เช่น “135.5” เป็นต้น

รูปแบบชุดคำสั่ง :

            CInt (Expression)

ค่าที่ส่งกลับ : Integer

พารามิเตอร์ :

            Expression หมายถึง ค่าข้อมูลที่จะแปลงค่าเป็นตัวเลขแบบ Integer

รหัสข้อผิดพลาด :

            5 Invalid procedure call (ดูรายละเอียดเพิ่มเติมที่ชุดคำสั่ง Error)

บันทึกประจำวันที่ 18 พฤษภาคม พ.ศ. 2557 (2014)

เวลา	เหตุการณ์
06:00 น.	ตื่นนอน
06:30 น.	งานของกิจกรรมอาชีพ กสิกรรมธรรมชาติ บ้านแม่ทำ สีทา (3/2557):ผสมดินเพาะชำต้นไม้
08:30 น.	งานของกิจกรรมอาชีพ กสิกรรมธรรมชาติ บ้านแม่ทำ สีทา (3/2557):ทดลองปลูกข้าวโพดในบริเวณที่เป็นร่มเงา
09:30 น.	กรอกน้ำเครื่องปั้มน้ำ เนื่องจากฟุตวาวไม่กักน้ำ
10:00 น.	0. งานของกิจกรรมอาชีพ กสิกรรมธรรมชาติ บ้านแม่ทำ สีทา (3/2557):สูบน้ำรดต้นไม้ที่เพาะชำไว้ ด้วยปั้มชักพลังงานโซลาร์เซลล์ 1.กินข้าวเช้า 2.กับข้าว:หน่อไม้ต้มน้ำใบย่านาง, สะตอสด, น้ำบูดู, แกงส้มฟักเขียวปลาดุก
10:30 น.	งานของกิจกรรมอาชีพ กสิกรรมธรรมชาติ บ้านแม่ทำ สีทา (3/2557):สูบน้ำรดต้นไม้ที่เพาะชำไว้ ด้วยปั้มชักพลังงานโซลาร์เซลล์
11:15 น.	สูบน้ำใช้ด้วยปั้มชักพลังงานโซลาร์เซลล์
12:15 น.	ทำบันทึกประจำวันของวันก่อน
12:30 น.	0.กินข้าว พักผ่อน 2.กับข้าว:หน่อไม้ต้มน้ำใบย่านาง, สะตอสด, น้ำบูดู, แกงส้มฟักเขียวปลาดุก
13:30 น.	งานของกิจกรรมอาชีพ งานอินเตอร์เน็ต (18/2557):ทำต้นฉบับบทความ
14:45 น.	0.สภาพอากาศ : ฝนตกต่อเนื่อง	1.ทำโปรไฟล์ประวัติการทำงาน เนื่องจากมีคนจะหางานเขียนโปรแกรมให้
17:00 น.		1.งานของกิจกรรมอาชีพ งานคอมพิวเตอร์ (15/2557):อ่านเอกสารเตรียมทำบทความเรื่องใหม่
18:00 น.	0.อาบน้ำ กินข้าว พักผ่อน ดูทีวี 1.กับข้าว:สะตอสด, น้ำบูดู, แกงส้มฟักเขียวปลาดุก, ผัดยอดฟักทอง
20:00 น.	เข้านอน