หน้าแรก
 การบ้าน
  C/C++ new
  Java new
 Sourcecode.TV
  Android
  Blackberry
  C/C++
  Java
  Linux
  Windows Phone
  แจ้งเรื่องที่ต้องการ
 บทความ
  .NET
  Android
  Blackberry
  C++Builder
  Delphi
  Java
  Mobile
  Open Source
  Pocket PC
  Visual Basic
  Web
  Windows Phone
  Others
 แบบเรียนฟรี
  ASP
  ASP.NET Webmatrix
  C++
  eVB
  J2ME
  Java
  PHP
 ซอร์สโค้ด
  Android
  ASP
  C++
  VC++
  CGI-Perl
  Delphi
  Java
  jQuery
  PHP
  Visual Basic
  .NET
 บริการจากเรา
  เปิดท้าย... ขายโค้ด
  DoodeeHosting
  รับออกแบบ พัฒนาเว็บไซต์
  Freeware
  อัตราค่าโฆษณา
  รายชื่อลูกค้า
  สถิติผู้เข้าเว็บ
 ดาว์นโหลด
 ค้นหาข้อมูล
 กระดานสนทนา
  .NET
  C/C++
  Delphi
  Java
  Palm/PocketPC
  Visual Basic
  Web
  อื่นๆ
 กระดานงาน
 ลิงค์เว็บ
 เกี่ยวกับผม
 อัตราค่าโฆษณา
Social Network

Facebook  Twitter  YouTube
 New Article
 Webboard
 Freelanceboard
Freeware
โปรแกรมเบอร์ดี (BerDee)
โปรแกรมเบอร์ดี (Android)
เกมส์เป่ายิ้งฉุบ
เกมส์เป่ายิ้งฉุบ(Android)
WebcamMonitor
WebcamMonitor(Windows)
scSendMail
scSendMail(Windows)
MSN Caption
MSN Caption(Windows)
  Freelance comment
  ติดต่อสอบถามมาได้ตลอดนะ...
2015-07-29 13:35:58
  ถ้าผมต้องการเว็บที่พัฒน...
2015-01-18 15:33:54
  ถ้าผมต้องการเว็บที่พัฒน...
2015-01-18 15:32:51
  ติดต่อสอบถามเข้ามาได้นะ...
2014-01-06 12:47:38
  ถ้ายังหาคนสอนไม่ได้ ก็ลอ...
2013-07-06 01:04:37
  สนใจส่งขอบเขตมาคุยราคาก...
2013-03-24 18:54:20
  ถ้ายังไม่มีคนรับงานติดต...
2012-12-16 19:18:14
  สนใจคะ ติดต่อ 0905076277...
2012-11-12 11:07:46
  รับทำโปรเจ็คนักศึกษาหรื...
2012-10-29 03:10:46
  sukit_te34@hotmail.com...
2012-10-29 03:09:36
  Webboard comment
  พอดีผมเห...
2020-05-31 21:49:43
  ช่วย แสดง...
2020-04-27 11:21:00
  ได้การบ้...
2020-04-27 11:18:56
  ได้การบ้...
2020-04-27 11:02:44
  <a href="https://www.g...
2020-03-10 17:07:03
  ไม่อยากเ...
2020-03-10 17:05:36
  ขอโคํดเก...
2020-02-09 22:50:58
  ขอโค้ดเก...
2020-01-28 23:42:26
  uuu...
2020-01-24 11:54:34
  ก็ต้องลง ...
2019-10-22 01:56:28
  Homework comment
  โจทย์การบ้าน c++ เขียนรูปแ...
2020-04-06 11:01:33
  แบบนี้ขอเป็น ภาษา php หน่อย...
2019-09-18 14:36:34
  ผมไม่อยากให้คุณได้คะแนน...
2019-04-27 01:29:07
  อาจารย์เขาบอกแนวข้อสอบม...
2019-04-27 00:44:29
  ขอสอบถามการเขียน c++ ครับ เ...
2018-04-02 12:19:21
  โค้ดตัวอย่างศึกษาให้เข้...
2017-11-26 14:50:05
  คำนวณค่าน้ำโดยรับค่ามิเ...
2017-11-20 23:15:26
  ขอบคุณมากครับ...
2017-08-16 18:27:25
  ทำเอง งง เอง กะลังทำใหม่ค...
2017-04-18 18:40:46
  ทำเอง งง เอง กะลังทำใหม่ค...
2017-04-18 18:37:54
  Article comment
  ต้องการ ให้เขียน โปรแกรม ...
2019-12-09 11:39:58
  รับเขียน arx จาก vc++ 2017 ล็อคโปร...
2019-09-19 09:48:09
  ทำการ register ไฟล์ที่ชื่อ mswinsck.oc...
2019-09-17 14:05:56
  ใน vb 6 ไม่มี component winsock เลยค่ะ ส...
2019-09-03 10:31:02
  รบกวนขอสอบถามหน่อยนะครั...
2019-03-04 05:31:04
  สามารถนำตัวหนังสือจากภา...
2018-12-25 08:54:32
  มีcode ของ VB ไหมค่ะ ถ้ามีรบกว...
2017-09-28 16:50:02
  น่าจะได้ครับ ไม่เคยลอง
...

2017-07-11 09:59:35
  สามารถใช้ต่อกับ anycast ได้ไห...
2017-07-05 10:12:35
  ครับ คุณ "ติด" แล้วลองนึกต...
2016-06-18 15:21:09
  9Mcode comment
  อยากได้...
2014-02-21 08:52:19

Link Exchange

อัตราค่าโฆษณา
Statistics of Sourcecode in Thailand
 
 Webboard

- - - - - - - - - - - - - - ผู้ให้การสนับสนุน- - - - - - - - - - - - - -

กระทู้ #735 [Delphi]

ป้อน 50 ทำไงให้ออกมาเป็น "ห้าสิบบาทถ้วน" ใครทราบ โปรดช่วยด้วย ขอบคุณครับ

ใครมี Source code แปลงตัวเลขเป็นข้อความค่าเงินบาท รบกวนหน่อยนะครับ จะฝึกทำโปรแกรมบัญชีง่าย ๆ ไว้ใช้เองที่ร้านน่ะครับ
จากคุณ : Kabode / sontaya_pc@hotmail.com [2006-11-22 23:30:25]  

210.4.139.129 ความคิดเห็น #25103 (จาก IP: 210.4.139.129)
ไม่มี source มีแค่หลักการครับ
ใช้หลัการหารเอาเศษ ดึงมาทีละหลัก
แล้วก็นำมา แปลงเป็นค่าตัวหนังสือ
ตามหลักนั้นๆ
จากคุณ : sup98 [2006-11-23 00:06:23]

203.144.197.178 ความคิดเห็น #25104 (จาก IP: 203.144.197.178)
Function Thai_Amount(ByVal Amount As Currency) As String
Dim T_Amt As String
Dim Amt_St As String
Dim Amt_Baht As String
Dim Amt_Stang As String
Dim Dot_Pos As Integer

If Amount = 0 Then
Thai_Amount = "ศูนย์บาทถ้วน"
Exit Function
ElseIf Amount < 0 Then
T_Amt = "ลบ"
Amount = Abs(Amount)
Else
T_Amt = ""
End If

Amt_St = Format$(Amount, "0.00")
Dot_Pos = InStr(Amt_St, ".")
Amt_Baht = Mid$(Amt_St, 1, Dot_Pos - 1)
Amt_Stang = Mid$(Amt_St, Dot_Pos + 1, Len(Amt_St) - Dot_Pos)

Amt_Baht = Thai_Number(Amt_Baht)
If Amt_Baht <> "" Then
T_Amt = T_Amt + Amt_Baht + "บาท"
End If

Amt_Stang = Thai_Number(Amt_Stang)
If Amt_Stang = "" Then
T_Amt = T_Amt + "ถ้วน"
Else
T_Amt = T_Amt + Amt_Stang + "สตางค์"
End If

Thai_Amount = T_Amt
End Function

Function Thai_Number(ByVal Amt_St As String) As String
Dim T_Amt, Digit_St As String
Dim Num_Digit As Integer

Amt_St = Trim$(Amt_St)
If (Not IsNumeric(Amt_St)) Or (Len(Amt_St) > 13) Then
Thai_Number = "**********"
Exit Function
End If

T_Amt = ""
While (Len(Amt_St) > 0)
Digit_St = Left$(Amt_St, 1)
Num_Digit = Len(Amt_St)
Select Case Digit_St
Case "1"
Select Case Num_Digit
Case 1, 7
If Right$(T_Amt, 3) = "สิบ" Then
T_Amt = T_Amt + "เอ็ด"
Else
T_Amt = T_Amt + "หนึ่ง"
End If
Case 2, 8
'Nothing
Case Else
T_Amt = T_Amt + "หนึ่ง"
End Select
Case "2"
Select Case Num_Digit
Case 2, 8
T_Amt = T_Amt + "ยี่"
Case Else
T_Amt = T_Amt + "สอง"
End Select
Case "3"
T_Amt = T_Amt + "สาม"
Case "4"
T_Amt = T_Amt + "สี่"
Case "5"
T_Amt = T_Amt + "ห้า"
Case "6"
T_Amt = T_Amt + "หก"
Case "7"
T_Amt = T_Amt + "เจ็ด"
Case "8"
T_Amt = T_Amt + "แปด"
Case "9"
T_Amt = T_Amt + "เก้า"
End Select

If Digit_St <> "0" Or Num_Digit = 7 Then
Select Case Num_Digit
Case 2, 8 'หลักสิบ, หลักล้าน
T_Amt = T_Amt + "สิบ"
Case 3, 9 'หลักร้อย, ร้อยล้าน
T_Amt = T_Amt + "ร้อย"
Case 4, 10 'หลักพัน, พันล้าน
T_Amt = T_Amt + "พัน"
Case 5, 11 'หลักหมื่น, หมื่นล้าน
T_Amt = T_Amt + "หมื่น"
Case 6, 12 'หลักแสน, แสนล้าน
T_Amt = T_Amt + "แสน"
Case 7, 13 'หลักล้าน, ล้านล้าน
T_Amt = T_Amt + "ล้าน"
End Select
End If
Amt_St = Right$(Amt_St, Num_Digit - 1)
Wend

Thai_Number = T_Amt
End Function

Sub Form_Load()

Text1.MaxLength = 12
Text1.Text = ""
End Sub

Sub Text1_Change()
Label1.Caption = Thai_Amount(Val(Format$(Text1.Text, "0.00")))
End Sub

Sub Text1_KeyPress(KeyAscii As Integer)
'กำหนดให้ Text Box รับค่าเป็นตัวเลขอย่างเดียว
If InStr("0123456789." + Chr$("13") + Chr$("8"), Chr$(KeyAscii)) = 0 Then
KeyAscii = 0
End If

Select Case KeyAscii
Case 13
Label1.Caption = Thai_Amount(Val(Format$(Text1.Text, "0.00")))
End Select
End Sub
จากคุณ : NN / au_rattikan@hotmail.com [2006-11-23 09:11:20]

222.123.44.71 ความคิดเห็น #25119 (จาก IP: 222.123.44.71)
ขอบคุณ คุณ NN มากเลยครับ ความจริงผมใช้ Delphi แต่ได้แค่นี้ ที่เหลือก็ไม่ยากแล้ว ขอบคุณอีกครั้งนะครับ
จากคุณ : Kabode / sontaya_pc@hotmail.com [2006-11-24 22:46:18]

203.113.118.7 ความคิดเห็น #26753 (จาก IP: 203.113.118.7)
อยากได้sourcecodeระบบร้านเช่าvcdของโปรแกรมdelphiค่ะ
จากคุณ : plubphung / mooping_love@hotmail.com [2008-05-14 11:27:43]
ตอบกระทู้
  • ห้ามการโฆษณา หากต้องการติดต่อหาลูกค้า ติดต่อโฆษณาโดยตรงได้ที่ webmaster@sourcecode.in.th
  • ห้ามใช้คำหยาบและคำพูดที่ไม่เหมาะสม
  • ขอสงวนสิทธิหากตรวจพบ ข้อความที่ไม่เหมาะสม ข้อความนั้นจะถูกลบทันที
ชื่อ
อีเมล์
รายละเอียด

- - - - - - - - - - - - - - ผู้ให้การสนับสนุน- - - - - - - - - - - - - -

 
 
หัวแปลง Mini DisplayPort to HDMI Adapter หัวแปลง Mini DisplayPort to HDMI Adapter สำหรับเครื่อง macbook air/pro, mac mini
หัวแปลง Mini DisplayPort to HDMI Adapter สำหรับเครื่อง macbook air/pro, mac mini
คลิปสอนเขียนโปรแกรม
เรียนเขียนโปรแกรมดอทเน็ต
เรียนเขียนโปรแกรมแอนดรอยด์
เรียนเขียนโปรแกรมเบล็คเบอร์รี่
เรียนเขียนโปรแกรมซี ซีพลัสพลัส
เรียนเขียนโปรแกรมจาวา
เรียนการใช้งานลินุกส์
เรียนการเขียนโปรแกรมวินโดว์โฟน
เรียนการเขียนโปรแกรมพีเฮชพี มายเอสคิวเอล
9M Blog บอกเล่าเรื่องราว การเขียนโปรแกรมของ นายเอ็ม
บริการ ถ่ายภาพรับปริญญา
อัตราค่าโฆษณา
 
Tutorial
eVB Tutorial
ASP.NET Webmatrix Tutorial
J2ME Tutorial
C++  Tutorial
Java  Tutorial
PHP Tutorial
ASP Tutorial
 
แบบสำรวจ
Freelance รับพัฒนาโปรแกรม

Home - Article - Tutorial - Sourcecode - Dev Handbook - Search - WebBoard - Links - About Us

สงวนลิขสิทธิ์ ห้ามคัดลอก ทำซ้ำ แก้ไข ดัดแปลง ไม่ว่าในรูปแบบใด โดยไม่ได้รับอนุญาตเป็นลายลักษณ์อักษร
เลขทะเบียนพาณิชย์อิเล็กทรอนิกส์จากกระทรวงพาณิชย์: 7100503002000
Copyright 2001 SourceCode.in.th