gpa random หาคะแนน


0 สมาชิก และ 1 บุคคลทั่วไป กำลังดูหัวข้อนี้

25 ก.พ. 62 , 21:57:34
อ่าน 1116 ครั้ง

mongkong

  • สมาชิกไท.Access
  • กระทู้: 11

  • ขอบคุณ ไท.Access

    • ดูรายละเอียด

gpa random หาคะแนน
« เมื่อ: 25 ก.พ. 62 , 21:57:34 »
เรียน อ. ทุกท่าน ครับ
ปกติ ผมจะมีคะแนน 0 - 100 มาแล้ว และผมก็ใช้ Function ตามข้างล่างนี้ ในการหา GPA

Function MatchGPA(gr As Double)   
    MatchGPA = Switch(gr < 50, 0, _
        gr >= 50 And gr < 55, 1, _
        gr >= 55 And gr < 60, 1.5, _
        gr >= 60 And gr < 65, 2, _
        gr >= 65 And gr < 70, 2.5, _
        gr >= 70 And gr < 75, 3, _
        gr >= 75 And gr < 80, 3.5, _
        gr >= 80, 4, True, "")
End Function

ถาม อ. ครับ
ในทางกลับกัน ถามผม มีแต่ GPA มา 0 1 1.5.... 4
ผมจะเขียน Function ให้ random หาคะแนน ตามช่วงคะแนนจำนวนใดจำนวนหนึ่ง จาก GPA ที่ได้มา เขียนอย่างไรครับ
ขอบพระคุณมากๆๆ
 

 

25 ก.พ. 62 , 23:05:38
ตอบกลับ #1

ปิ่นณรงค์

: gpa random หาคะแนน
« ตอบกลับ #1 เมื่อ: 25 ก.พ. 62 , 23:05:38 »
ลองใช้ Rnd Function ดูครับ

โค๊ด: [Select]
Function RandomGPA(gr As Double)
    RandomGPA = Switch(gr = 0, Int((50 - 0 + 1) * Rnd + 0), _
        gr = 1, Int((55 - 50 + 1) * Rnd + 50), _
        gr = 1.5, Int((60 - 55 + 1) * Rnd + 55), _
        gr = 2, Int((65 - 60 + 1) * Rnd + 60), _
        gr = 2.5, Int((70 - 65 + 1) * Rnd + 65), _
        gr = 3, Int((75 - 70 + 1) * Rnd + 70), _
        gr = 3.5, Int((80 - 75 + 1) * Rnd + 75), _
        gr = 4, Int((100 - 80 + 1) * Rnd + 80), True, "")
End Function

ส่วนการใช้งาน ลองดูจากตัวอย่างคับ ทั้งบนฟอร์ม และ ในคิวรี่
« แก้ไขครั้งสุดท้าย: 26 ก.พ. 62 , 09:26:24 โดย ปิ่นณรงค์ »
:love: :grin:
 
โพสต์นี้ได้รับคำขอบคุณจาก: mbbrid


บอร์ดเรียนรู้ Access สำหรับคนไทย


 

Sitemap 1 2 3 4 5