Register Register Member Login Member Login Member Login Forgot Password ??
PHP , ASP , ASP.NET, VB.NET, C#, Java , jQuery , Android , iOS , Windows Phone
 

Registered : 109,036

HOME > .NET Framework > Forum > VB.Net การใช้ Select Case คำนวณหาภาษี งง ช่วยดูให้ทีครับ



 

VB.Net การใช้ Select Case คำนวณหาภาษี งง ช่วยดูให้ทีครับ

 



Topic : 096679



โพสกระทู้ ( 328 )
บทความ ( 0 )



สถานะออฟไลน์




พึ่งหัดลองใช้ vb เลยไม่ค่อยเข้าใจเท่าใหร่ช่วยแก้ให้ทีครับ ทำไมผลลัพธ์มันไม่ถูกต้องอ่ะครับ

Code (VB.NET)
Dim saraly As Integer = Integer.Parse(TextBox2.Text)
        Select Case saraly
            Case Is <= 80000
                MessageBox.Show("คุณ" & TextBox1.Text & "คุณต้องเสียภาษีปีนี้" & "=" & "0" & "บาท")
            Case Is >= 80001 And saraly <= 100000
                MessageBox.Show("คุณ" & TextBox1.Text & "คุณต้องเสียภาษีปีนี้" & "=" & (saraly * 5) / 100 & "บาท")
            Case Is >= 100001 And saraly <= 500000
                MessageBox.Show("คุณ" & TextBox1.Text & "คุณต้องเสียภาษีปีนี้" & "=" & (saraly * 10) / 100 & "บาท")
            Case Is >= 500001 And saraly <= 1000000
                MessageBox.Show("คุณ" & TextBox1.Text & "คุณต้องเสียภาษีปีนี้" & "=" & (saraly * 20) / 100 & "บาท")
            Case Is >= 1000001 And saraly <= 4000000
                MessageBox.Show("คุณ" & TextBox1.Text & "คุณต้องเสียภาษีปีนี้" & "=" & (saraly * 30) / 100 & "บาท")
            Case Is >= 4000001
                MessageBox.Show("คุณ" & TextBox1.Text & "คุณต้องเสียภาษีปีนี้" & "=" & (saraly * 37) / 100 & "บาท")
        End Select
    End Sub




Tag : .NET, Win (Windows App), VB.NET






Move To Hilight (Stock) 
Send To Friend.Bookmark.
Date : 2013-06-17 21:32:32 By : piz View : 9152 Reply : 10
 

 

No. 1



โพสกระทู้ ( 74,058 )
บทความ ( 838 )

สมาชิกที่ใส่เสื้อไทยครีเอท

สถานะออฟไลน์
Twitter Facebook

คิดว่าควรจะเก็บ Rate อัตราการเสียภาษีลงใน Table ดีกว่าน่ะครับ ตอน WHERE ก็แค่ไปดูว่าตกอยู่ใน Rank ไหนครับ


แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2013-06-18 06:16:59 By : mr.win
 


 

No. 2



โพสกระทู้ ( 821 )
บทความ ( 0 )



สถานะออฟไลน์


Select Case เอาค่ามากไว้ข้างบนครับ
ถ้าเอาค่าน้อยไว้ตัวแรก เวลารายได้มันมากกว่ามันก็จะเข้าข้อแรกเสมอครับ (ทำไมเขียนเอง งงเองหว่า)
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2013-06-18 07:52:32 By : fonfire
 

 

No. 3

Guest


ตอบความคิดเห็นที่ : 1 เขียนโดย : mr.win เมื่อวันที่ 2013-06-18 06:16:59
รายละเอียดของการตอบ ::
คิดว่าควรจะเก็บ Rate อัตราการเสียภาษีลงใน Table ดีกว่าน่ะครับ ตอน WHERE ก็แค่ไปดูว่าตกอยู่ใน Rank ไหนครับ


#No1 วิธีนี้น่าจะยืดหยุ่นมากที่สุดแล้วครับ


*****************************************************
HACK VB.NET Select Case
*****************************************************
Code
Dim Salary As Single  = 82000.49
Select Case "Thai" > "Jim"
        Case (Salary >= 0.00 AndAlso Salary <= 80000)
        Case (Salary >= 80000.01 AndAlso Salary <= 100000)
        Case (Salary >= 100000.01 AndAlso Salary <= 500000)
        Case (Salary >= 500000.01 AndAlso Salary <= 1000000)
        Case (Salary >= 1000000.01 AndAlso Salary <= 4000000)
        Case Else                 
End Select


[x] คำเตือน หัวใจของระบบ PAYROLL คือ เงินทอง โดยปกติคนเรา ไม่มีใครอยากจ่ายมาก และไม่มีใครอยากได้น้อย
การคำนวณแบบ ปัดเศษทศนิยม จะต้องไม่มีข้อสงสัยใดฯตามมาอีก
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2013-06-18 07:57:01 By : ผ่านมา
 


 

No. 4

Guest


ตอบความคิดเห็นที่ : 2 เขียนโดย : fonfire เมื่อวันที่ 2013-06-18 07:52:32
รายละเอียดของการตอบ ::
Select Case เอาค่ามากไว้ข้างบนครับ
ถ้าเอาค่าน้อยไว้ตัวแรก เวลารายได้มันมากกว่ามันก็จะเข้าข้อแรกเสมอครับ (ทำไมเขียนเอง งงเองหว่า)


เท่าที่ทราบ ส่วนใหญ่แล้วรายได้หลังหักค่าลดหย่อน/อื่นฯ จะตกอยู่ในช่วง 100,000 - 500,000 บาท
เอาค่าน้อยฯ ขึ้นก่อนก็ถูกต้องแล้วครับ
(ผลพลอยได้หมายความว่า คนไทยส่วนใหญ่ รวยกระจุก จนกระจาย กันถ้วนหน้า)


[x]

ประกาศของกรมสับพกร ฉบับที่ 65/2556 Rev. (ผู้ชายได้เฮ)
ชายใดมีภรรยา > 5 คน สามารถนำภรรยามาหักค่า ลด หย่อน ได้ไม่เกิน 4 คน
ชายใดมีภรรยา <= 3 คน สามารถนำภรรยามาหักค่า ลด หย่อน ได้ไม่เกิน 1 คน


ต้องขอชื่นชม กรมสับพกร มา ณ.ที่นี้ด้วยครับ
ในนามตัวแทนของผู้เสียภาษี ทั้ง ทางตรงและทางอ้อม
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2013-06-18 08:32:16 By : ผ่านมา
 


 

No. 5



โพสกระทู้ ( 1,348 )
บทความ ( 1 )



สถานะออฟไลน์


ทำไม saraly เป็น Integer ล่ะ
ไหงไม่เป็น Double หรือ Decimal
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2013-06-18 08:53:42 By : watcharop
 


 

No. 6

Guest


ตอบความคิดเห็นที่ : 5 เขียนโดย : watcharop เมื่อวันที่ 2013-06-18 08:53:42
รายละเอียดของการตอบ ::
ทำไม saraly เป็น Integer ล่ะ
ไหงไม่เป็น Double หรือ Decimal


ผมคิดว่า เป็นเพราะโชคชะตา และบน .NET ก็ไม่มีประเภทข้อมูล (Data Type) ให้เลือกใช้ได้มากพอเพื่อความเหมาะสม
Single, Double, Decimal ผมไม่แน่ใจว่ามันเก็บข้อมูลและจำนวนทศนิยม ได้ละเอียดถึงระดับที่เท่าไหร่?
แต่ผมคิดว่า มันสามารถเก็บข้อมูลเงินฝากของมนุษย์ ทั้งจักรวาลได้เหลือเฟือ
ซึ่งในกรณี เงินได้หลังหักค่าลดหย่อน/อื่นฯ แล้ว มันไม่มีประเภทข้อมูลที่เหมาะสม


Fixed Bug.

Code
*****************************************************
HACK  VB.NET Select Case
 *****************************************************
Code
Dim Salary As Single  = 82000.49
Select Case "ThaiMan" > "JimFace"
        Case (Salary >= 0.00 AndAlso Salary <= 80000)
        Case (Salary >= 80000.01 AndAlso Salary <= 100000)
        Case (Salary >= 100000.01 AndAlso Salary <= 500000)
        Case (Salary >= 500000.01 AndAlso Salary <= 1000000)
        Case (Salary >= 1000000.01 AndAlso Salary <= 4000000)
        Case Else                 
End Select


แก้ไขข้อความประกาศของกรมสับพกร

Code
ประกาศของกรมสับพกร ฉบับที่ 65/2556 Rev. (ผู้ชายโฉดได้เฮ)
ชายใดมีภรรยา > 5 คนขึ้นไป สามารถนำภรรยามาหักค่า ลด หย่อน ได้ไม่จำกัด (แต่ไม่รวม ยาน)
ชายใดมีภรรยา <= 3 คน สามารถนำภรรยามาหักค่า ลด หย่อน ได้ไม่เกิน 1 คน

ต้องขอชื่นชมและกราบขอบคุณเป็นอย่างต่ำ กรมสับพกร มา ณ.ที่นี้ด้วยครับ
ในนามของตัวแทนผู้เสียภาษี ทั้ง ทางตรงและทางอ้อม

แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2013-06-18 09:15:49 By : ผ่านมา
 


 

No. 7

Guest


ผมไม่เคยเขียนโปรแกรมระบบเงินเดือน (บริหารงานบุคคล) แต่ถ้าผมคิดจะทำ วิธีการของผมมีดังนี้

Code
1. ผมยึดหลักการเป็นหลัก (ร้อยแตกต่าง แต่หลักการเดียวกัน)
2. ผมดูโปรแกรม TOP 10 ที่ใช้งานจริง ผมดูแค่หน้าจอต่างฯ แล้วเอามาเปรียบเทียบกัน
    อันไหนขาดผมก็เติมลงไป
    อันไหนเกินผมก็ตัดออก
    อันไหนไม่มีผมก็เพิ่มเติมไปอีก (ขึ้นอยู่กับจินตนาการ)



ผมคิดว่าผมคนเดียวใช้เวลาไม่น่าจะเกิน 15 วัน
สร้างโปรแกรมเิงินเดือน (ไม่นับงานที่นอกเหนือจากงาน ประจำวัน/ประจำเดือน/ประจำปี)
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2013-06-19 09:47:28 By : ผ่านมา
 


 

No. 8

Guest


เท่าที่ผมดูผ่านฯ ระบบเงินเดือน TOP 10 โยงเ้ข้ากับระบบ GL ไม่มีหรือมีน้อยมากฯ
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2013-06-19 09:56:17 By : ผ่านมา
 


 

No. 9

Guest


Code
[/coding]Select Case True
[coding]ขอให้โชคดีครับ
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2013-06-19 10:05:49 By : ผ่านมา
 


 

No. 10

Guest


คำนวณภาษ๊ไม่เป็นต้องทำไง ช่วยหน่อยครับ
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2014-02-07 14:54:37 By : pim
 

   

ค้นหาข้อมูล
   
 

แสดงความคิดเห็น
Re : VB.Net การใช้ Select Case คำนวณหาภาษี งง ช่วยดูให้ทีครับ
 
 
รายละเอียด
 
ตัวหนา ตัวเอียง ตัวขีดเส้นใต้ ตัวมีขีดกลาง| ตัวเรืองแสง ตัวมีเงา ตัวอักษรวิ่ง| จัดย่อหน้าอิสระ จัดย่อหน้าชิดซ้าย จัดย่อหน้ากึ่งกลาง จัดย่อหน้าชิดขวา| เส้นขวาง| ขนาดตัวอักษร แบบตัวอักษร
ใส่แฟลช ใส่รูป ใส่ไฮเปอร์ลิ้งค์ ใส่อีเมล์ ใส่ลิ้งค์ FTP| ใส่แถวของตาราง ใส่คอลัมน์ตาราง| ตัวยก ตัวห้อย ตัวพิมพ์ดีด| ใส่โค้ด ใส่การอ้างถึงคำพูด| ใส่ลีสต์
smiley for :lol: smiley for :ken: smiley for :D smiley for :) smiley for ;) smiley for :eek: smiley for :geek: smiley for :roll: smiley for :erm: smiley for :cool: smiley for :blank: smiley for :idea: smiley for :ehh: smiley for :aargh: smiley for :evil:
Insert PHP Code
Insert ASP Code
 Insert VB.NET Code Insert C#.NET Code Insert JavaScript Code Insert C#.NET Code
Insert Java Code
Insert Android Code
Insert Objective-C Code
Insert XML Code
Insert SQL Code
Insert Code
เพื่อความเรียบร้อยของข้อความ ควรจัดรูปแบบให้พอดีกับขนาดของหน้าจอ เพื่อง่ายต่อการอ่านและสบายตา และตรวจสอบภาษาไทยให้ถูกต้อง

อัพโหลดแทรกรูปภาพ

Notice

เพื่อความปลอดภัยของเว็บบอร์ด ไม่อนุญาติให้แทรก แท็ก [img]....[/img] โดยการอัพโหลดไฟล์รูปจากที่อื่น เช่นเว็บไซต์ ฟรีอัพโหลดต่าง ๆ
อัพโหลดแทรกรูปภาพ ให้ใช้บริการอัพโหลดไฟล์ของไทยครีเอท และตัดรูปภาพให้พอดีกับสกรีน เพื่อความโหลดเร็วและไฟล์ไม่ถูกลบทิ้ง

   
  เพื่อความปลอดภัยและการตรวจสอบ กระทู้ที่แทรกไฟล์อัพโหลดไฟล์จากที่อื่น อาจจะถูกลบทิ้ง
 
โดย
อีเมล์
บวกค่าให้ถูก
<= ตัวเลขฮินดูอารบิก เช่น 123 (หรือล็อกอินเข้าระบบสมาชิกเพื่อไม่ต้องกรอก)







Exchange: นำเข้าสินค้าจากจีน, Taobao, เฟอร์นิเจอร์, ของพรีเมี่ยม, ร่ม, ปากกา, power bank, แฟลชไดร์ฟ, กระบอกน้ำ

Load balance : Server 03
ThaiCreate.Com Logo
© www.ThaiCreate.Com. 2003-2024 All Rights Reserved.
ไทยครีเอทบริการ จัดทำดูแลแก้ไข Web Application ทุกรูปแบบ (PHP, .Net Application, VB.Net, C#)
[Conditions Privacy Statement] ติดต่อโฆษณา 081-987-6107 อัตราราคา คลิกที่นี่