HX-PGS-ERP-SYS
/
HX-PGS-ERP-SYS-LEEHSIEHJUI
Segui 4
Vota 0
Forka 0
Codice Problemi 0 Pull Requests 0 Rilasci 0 Wiki Attività
Nessuna descrizione
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
7 Commit
1 Ramo (Branch)
Albero (Tree): ffdb5b9c73
Rami (Branch) Tag
${ item.name }
Crea branch ${ searchTerm }
da 'ffdb5b9c73'
${ noResults }
HX-PGS-ERP-SYS-LEEHSIEHJUI/05、財務管理系統/財務支付系統/財物支付單申請_傳...

財物支付單申請_傳票.vb 175KB
Cronologia Originale

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980818283848586878889909192939495969798991001011021031041051061071081091101111121131141151161171181191201211221231241251261271281291301311321331341351361371381391401411421431441451461471481491501511521531541551561571581591601611621631641651661671681691701711721731741751761771781791801811821831841851861871881891901911921931941951961971981992002012022032042052062072082092102112122132142152162172182192202212222232242252262272282292302312322332342352362372382392402412422432442452462472482492502512522532542552562572582592602612622632642652662672682692702712722732742752762772782792802812822832842852862872882892902912922932942952962972982993003013023033043053063073083093103113123133143153163173183193203213223233243253263273283293303313323333343353363373383393403413423433443453463473483493503513523533543553563573583593603613623633643653663673683693703713723733743753763773783793803813823833843853863873883893903913923933943953963973983994004014024034044054064074084094104114124134144154164174184194204214224234244254264274284294304314324334344354364374384394404414424434444454464474484494504514524534544554564574584594604614624634644654664674684694704714724734744754764774784794804814824834844854864874884894904914924934944954964974984995005015025035045055065075085095105115125135145155165175185195205215225235245255265275285295305315325335345355365375385395405415425435445455465475485495505515525535545555565575585595605615625635645655665675685695705715725735745755765775785795805815825835845855865875885895905915925935945955965975985996006016026036046056066076086096106116126136146156166176186196206216226236246256266276286296306316326336346356366376386396406416426436446456466476486496506516526536546556566576586596606616626636646656666676686696706716726736746756766776786796806816826836846856866876886896906916926936946956966976986997007017027037047057067077087097107117127137147157167177187197207217227237247257267277287297307317327337347357367377387397407417427437447457467477487497507517527537547557567577587597607617627637647657667677687697707717727737747757767777787797807817827837847857867877887897907917927937947957967977987998008018028038048058068078088098108118128138148158168178188198208218228238248258268278288298308318328338348358368378388398408418428438448458468478488498508518528538548558568578588598608618628638648658668678688698708718728738748758768778788798808818828838848858868878888898908918928938948958968978988999009019029039049059069079089099109119129139149159169179189199209219229239249259269279289299309319329339349359369379389399409419429439449459469479489499509519529539549559569579589599609619629639649659669679689699709719729739749759769779789799809819829839849859869879889899909919929939949959969979989991000100110021003100410051006100710081009101010111012101310141015101610171018101910201021102210231024102510261027102810291030103110321033103410351036103710381039104010411042104310441045104610471048104910501051105210531054105510561057105810591060106110621063106410651066106710681069107010711072107310741075107610771078107910801081108210831084108510861087108810891090109110921093109410951096109710981099110011011102110311041105110611071108110911101111111211131114111511161117111811191120112111221123112411251126112711281129113011311132113311341135113611371138113911401141114211431144114511461147114811491150115111521153115411551156115711581159116011611162116311641165116611671168116911701171117211731174117511761177117811791180118111821183118411851186118711881189119011911192119311941195119611971198119912001201120212031204120512061207120812091210121112121213121412151216121712181219122012211222122312241225122612271228122912301231123212331234123512361237123812391240124112421243124412451246124712481249125012511252125312541255125612571258125912601261126212631264126512661267126812691270127112721273127412751276127712781279128012811282128312841285128612871288128912901291129212931294129512961297129812991300130113021303130413051306130713081309131013111312131313141315131613171318131913201321132213231324132513261327132813291330133113321333133413351336133713381339134013411342134313441345134613471348134913501351135213531354135513561357135813591360136113621363136413651366136713681369137013711372137313741375137613771378137913801381138213831384138513861387138813891390139113921393139413951396139713981399140014011402140314041405140614071408140914101411141214131414141514161417141814191420142114221423142414251426142714281429143014311432143314341435143614371438143914401441144214431444144514461447144814491450145114521453145414551456145714581459146014611462146314641465146614671468146914701471147214731474147514761477147814791480148114821483148414851486148714881489149014911492149314941495149614971498149915001501150215031504150515061507150815091510151115121513151415151516151715181519152015211522152315241525152615271528152915301531153215331534153515361537153815391540154115421543154415451546154715481549155015511552155315541555155615571558155915601561156215631564156515661567156815691570157115721573157415751576157715781579158015811582158315841585158615871588158915901591159215931594159515961597159815991600160116021603160416051606160716081609161016111612161316141615161616171618161916201621162216231624162516261627162816291630163116321633163416351636163716381639164016411642164316441645164616471648164916501651165216531654165516561657165816591660166116621663166416651666166716681669167016711672167316741675167616771678167916801681168216831684168516861687168816891690169116921693169416951696169716981699170017011702170317041705170617071708170917101711171217131714171517161717171817191720172117221723172417251726172717281729173017311732173317341735173617371738173917401741174217431744174517461747174817491750 
  1. Option Strict Off

  2. Imports System.IO

  3. Imports Microsoft.Office.Interop.Excel.XlUnderlineStyle

  4. Imports Microsoft.Office.Interop.Excel.Constants

  5. Imports Microsoft.Office.Interop.Excel.XlBordersIndex

  6. Imports Microsoft.Office.Interop.Excel.XlLineStyle

  7. Imports Microsoft.Office.Interop.Excel.XlBorderWeight

  8. Imports Microsoft.Office.Interop.Excel.XlThemeFont

  9. Imports Microsoft.Office.Interop.Excel.XlThemeColor

  10. Imports Microsoft.Office.Interop.Excel.XlWindowState

  11. Imports Microsoft.Office.Interop.Excel

  12. Public Class 財物支付單申請_傳票

  13.     Dim SK1, SK2 As String : Dim 不可編輯x, 已開啟 As Boolean

  14.     Dim 新項次 As String : Dim 新流水1 As String : Dim 新流水2 As String

  15.     Dim NUM1 As Integer : Dim 匯率1 As Double : Dim 對話框(20) As String

  16.     Dim xlApp As Application

  17.     Dim xlBook As Workbook

  18.     Dim xlSheet As Worksheet

  19.     Private Sub 語言轉換讀取()

  20.         If 系統語言 = "繁體中文" Then : 語言 = "CH" : ElseIf 系統語言 = "English" Then : 語言 = "EN" : ElseIf 系統語言 = "Indonesian" Then : 語言 = "IN" : End If

  21.         If 跨部門開啟 = False Then : Me.Text = 系統語言字典("H001-112-" & 語言) : Else : Me.Text = 系統語言字典("H001-113-" & 語言) : End If

  22.         財務單號_lb.Text = 系統語言字典("H301-129-" & 語言) : Label1.Text = 系統語言字典("H314-100-" & 語言) : Label2.Text = 系統語言字典("H314-101-" & 語言)

  23.         Label3.Text = 系統語言字典("H314-102-" & 語言) : Label4.Text = 系統語言字典("H314-103-" & 語言) : Label5.Text = 系統語言字典("H314-104-" & 語言)

  24.         Label6.Text = 系統語言字典("H314-105-" & 語言) : 會計科目_lb.Text = 系統語言字典("H301-120-" & 語言) : 表頭(113) = 系統語言字典("H204-120-" & 語言)

  25.         表頭(112) = 系統語言字典("H301-107-" & 語言) : 表頭(39) = 系統語言字典("H301-134-" & 語言) : 表頭(111) = 系統語言字典("H301-108-" & 語言)

  26.         表頭(20) = 系統語言字典("H314-124-" & 語言) : 表頭(107) = 系統語言字典("H301-111-" & 語言) : 表頭(109) = 系統語言字典("H301-109-" & 語言)

  27.         表頭(11) = 系統語言字典("H301-112-" & 語言) : 表頭(114) = 系統語言字典("H301-113-" & 語言) : 表頭(98) = 系統語言字典("H301-114-" & 語言)

  28.         表頭(115) = 系統語言字典("H301-116-" & 語言) : 表頭(108) = 系統語言字典("H301-117-" & 語言) : 表頭(110) = 系統語言字典("H301-115-" & 語言)

  29.         Label8.Text = 系統語言字典("H314-106-" & 語言) : Label9.Text = 系統語言字典("H314-107-" & 語言) : Label10.Text = 系統語言字典("H314-108-" & 語言)

  30.         Label11.Text = 系統語言字典("H314-109-" & 語言) : Label12.Text = 系統語言字典("H314-110-" & 語言) : 對話框(2) = 系統語言字典("H301-125-" & 語言)

  31.         對話框(3) = 系統語言字典("G000-117-" & 語言) : 對話框(1) = 系統語言字典("H301-124-" & 語言) : 表頭(1) = 系統語言字典("H314-106-" & 語言)

  32.         對話框(4) = 系統語言字典("H301-127-" & 語言) : 對話框(5) = 系統語言字典("H302-119-" & 語言) : 對話框(6) = 系統語言字典("H302-120-" & 語言)

  33.         對話框(7) = 系統語言字典("H302-121-" & 語言) : 表頭(2) = 系統語言字典("H507-121-" & 語言) : 表頭(3) = 系統語言字典("H314-111-" & 語言)

  34.         對話框(8) = 系統語言字典("H314-112-" & 語言) : Label18.Text = 系統語言字典("H314-113-" & 語言) : Label15.Text = 系統語言字典("H314-114-" & 語言)

  35.         Label17.Text = 系統語言字典("H314-115-" & 語言) : Label16.Text = 系統語言字典("H314-116-" & 語言) : Label19.Text = 系統語言字典("H301-140-" & 語言)

  36.         對話框(9) = 系統語言字典("H314-123-" & 語言) : Label20.Text = 系統語言字典("H314-124-" & 語言) : 對話框(10) = 系統語言字典("H303-129-" & 語言)

  37.         對話框(11) = 系統語言字典("H303-102-" & 語言) : 對話框(12) = 系統語言字典("H303-101-" & 語言) : 對話框(13) = 系統語言字典("H611-112-" & 語言)

  38.         對話框(14) = 系統語言字典("H611-111-" & 語言) : 對話框(15) = 系統語言字典("H611-113-" & 語言) : 對話框(16) = 系統語言字典("H405-105-" & 語言)

  39.         對話框(17) = 系統語言字典("H405-104-" & 語言) : 對話框(18) = 系統語言字典("H405-106-" & 語言) : Label21.Text = 系統語言字典("H303-108-" & 語言)

  40.         月_ch.Text = 系統語言字典("H306-106-" & 語言) : 週_ch.Text = 系統語言字典("H303-139-" & 語言) : 日_ch.Text = 系統語言字典("H303-140-" & 語言)

  41.         解開星期五_ch.Text = 系統語言字典("H314-129-" & 語言)

  42.         修改BT()

  43.     End Sub

  44.     Private Sub 修改BT()

  45.         If 月_ch.Checked Then

  46.             當月_bt.Text = 對話框(10) : 上個月_bt.Text = 對話框(11) : 下個月_bt.Text = 對話框(12)

  47.         ElseIf 週_ch.Checked Then

  48.             當月_bt.Text = 對話框(13) : 上個月_bt.Text = 對話框(14) : 下個月_bt.Text = 對話框(15)

  49.         Else

  50.             當月_bt.Text = 對話框(16) : 上個月_bt.Text = 對話框(17) : 下個月_bt.Text = 對話框(18)

  51.         End If

  52.     End Sub

  53.     Private Sub 載入支付對象()

  54.         Dim ds1 As New DataSet : 支付對象1_dgv.DataSource = Nothing : ds1.Clear()

  55.         支付對象1_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing

  56.         支付對象1_dgv.ColumnHeadersHeight = 40 : 支付對象1_dgv.AllowUserToAddRows = False

  57.         SQL_支付對象選單()

  58.         da.Fill(ds1) : 支付對象1_dgv.DataSource = ds1.Tables(0) : conn.Close()

  59.         Dim ds2 As New DataSet : 支付對象2_dgv.DataSource = Nothing : ds2.Clear()

  60.         支付對象2_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing

  61.         支付對象2_dgv.ColumnHeadersHeight = 40 : 支付對象2_dgv.AllowUserToAddRows = False

  62.         SQL_支付對象選單2()

  63.         da.Fill(ds2) : 支付對象2_dgv.DataSource = ds2.Tables(0) : conn.Close()

  64.         支付對象_cb.Items.Clear()

  65.         For i As Integer = 0 To 支付對象1_dgv.Rows.Count - 1

  66.             支付對象_cb.Items.Add("A-" & 支付對象1_dgv.Rows(i).Cells(2).Value.ToString)

  67.         Next

  68.         For j As Integer = 0 To 支付對象2_dgv.Rows.Count - 1

  69.             Dim 要加入cb As Boolean = True

  70.             Dim 要加入的文字 As String = 支付對象2_dgv.Rows(j).Cells(0).Value.ToString

  71.             For k As Integer = 0 To 支付對象1_dgv.Rows.Count - 1

  72.                 If 要加入的文字 = 支付對象1_dgv.Rows(k).Cells(2).Value.ToString Then

  73.                     要加入cb = False

  74.                     Exit For

  75.                 End If

  76.             Next

  77.             If 要加入cb Then

  78.                 支付對象_cb.Items.Add("B-" & 要加入的文字)

  79.             End If

  80.         Next

  81.     End Sub

  82.     Private Sub Set_清單1()

  83.         Dim ds1 As New DataSet : 財務收支單_dgv.DataSource = Nothing : ds1.Clear()

  84.         財務收支單_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing

  85.         財務收支單_dgv.ColumnHeadersHeight = 40 : 財務收支單_dgv.AllowUserToAddRows = False

  86.         If 條件_cb.Text = "N/A" Then

  87.             SQL2 = " AND (財務收支控制表.審核人 IS NULL OR 財務收支控制表.審核人 LIKE '') "

  88.         ElseIf 條件_cb.Text = "App" Then

  89.             SQL2 = " AND (財務收支控制表.審核人 NOT LIKE '') AND (財務收支控制表.審核人 NOT LIKE N'作廢%') AND (財務收支控制表.審核人 IS NOT NULL) "

  90.         ElseIf 條件_cb.Text = "Void" Then

  91.             SQL2 = " AND (財務收支控制表.審核人 LIKE N'作廢-%') "

  92.         End If

  93.         If 跨部門開啟 = False Then   '-------申請登入時

  94.             PA25 = 部門選單_cb.Text & SK2 & SK1 & 年份2_cb.Text

  95.             Dim 時間條件 As String = "AND (財務收支明細表.支付日期 BETWEEN '" & Strings.Format(開始日期_dtp.Value, "yyyy/MM/dd") & "' AND

  96.                                                                            '" & Strings.Format(結束日期_dtp.Value, "yyyy/MM/dd") & "') "

  97.             Dim 條件 As String

  98.             If HX_ch.Checked Then : 條件 = " AND (財務收支明細表.流水號 LIKE N'%HXI%') "

  99.             ElseIf PGS_ch.Checked Then : 條件 = " AND (財務收支明細表.流水號 LIKE N'%PGS%') " : Else : 條件 = "" : End If

  100.             SQL_財物支付單申請_查詢財務收支控制表(時間條件, 條件)

  101.         ElseIf 跨部門開啟 = True Then   '-------審核登入時

  102.             Dim 條件, 時間條件, 審核條件 As String

  103.             If HX_ch.Checked Then : 條件 = " AND (財務收支明細表.流水號 LIKE N'%HXI%') "                                     '審X主X  O

  104.             ElseIf PGS_ch.Checked Then : 條件 = " AND (財務收支明細表.流水號 LIKE N'%PGS%') "                                '審O主X  X

  105.             Else : 條件 = "" : End If                                                                                        '審O主O  O

  106.             時間條件 = "AND (財務收支明細表.支付日期 BETWEEN '" & Strings.Format(開始日期_dtp.Value, "yyyy/MM/dd") & "' AND '" & Strings.Format(結束日期_dtp.Value, "yyyy/MM/dd") & "') "

  107.             審核條件 = ""

  108.             SQL_財物支付單申請_查詢財務收支控制表1(條件, 時間條件, 審核條件)

  109.         End If : SQL2 = ""

  110.         da.Fill(ds1) : 財務收支單_dgv.DataSource = ds1.Tables(0) : conn.Close()

  111.         財務收支單_dgv.Columns(0).FillWeight = 125 : 財務收支單_dgv.Columns(1).FillWeight = 75 : 財務收支單_dgv.Columns(2).FillWeight = 120

  112.         財務收支單_dgv.Columns(11).FillWeight = 40 : 財務收支單_dgv.Columns(12).FillWeight = 40

  113.         財務收支單_dgv.Columns("核准圖檔").Visible = False : 財務收支單_dgv.Columns(11).Visible = False : 財務收支單_dgv.Columns(12).Visible = False

  114.         財務收支單_dgv.Columns("檢查人").Visible = False : 財務收支單_dgv.Columns("主管人").Visible = False : 財務收支單_dgv.Columns("申請日期").Visible = False

  115.         For I As Integer = 3 To 10 : 財務收支單_dgv.Columns(I).Visible = False : Next : For I As Integer = 13 To 15 : 財務收支單_dgv.Columns(I).Visible = False : Next

  116.         財務收支單_dgv.Columns(0).ReadOnly = True : 財務收支單_dgv.Columns(1).ReadOnly = True : 財務收支單_dgv.Columns(2).ReadOnly = True

  117. 

  118.         For I As Integer = 0 To 財務收支單_dgv.Rows.Count - 1

  119.             財務收支單_dgv.Rows(I).Cells(11).Value = False : 財務收支單_dgv.Rows(I).Cells(12).Value = False

  120.             If Strings.Left(財務收支單_dgv.Rows(I).Cells(10).Value.ToString, 2) = "作廢" Or Strings.Left(財務收支單_dgv.Rows(I).Cells("主管人").Value.ToString, 2) = "作廢" Then

  121.                 財務收支單_dgv.Rows(I).Cells(12).Value = True

  122.             End If

  123.             If 財務收支單_dgv.Rows(I).Cells("主管人").Value.ToString <> "" Then

  124.                 If 財務收支單_dgv.Rows(I).Cells("主管人").Value.ToString.Substring(0, 2) <> "作廢" Then

  125.                     財務收支單_dgv.Rows(I).Cells(11).Value = True

  126.                 End If

  127.             End If

  128.         Next

  129.     End Sub

  130.     Private Sub 部門選單下拉清單讀取()

  131.         SQL_部門選單() : 部門選單_cb.Items.Clear() : While (dr.Read()) : 部門選單_cb.Items.Add(dr("部門")) : End While : conn.Close()

  132.     End Sub

  133.     Private Sub 第三層下拉表單資料載入()

  134.         PA26 = 編號2_cb.Text : SQL_財務單會計科目3() : 第三層_cb.Items.Clear() : 編號3_cb.Items.Clear() : 第三層_cb.Items.Add("") : 編號3_cb.Items.Add("")

  135.         While (dr.Read()) : 第三層_cb.Items.Add(dr("會計科目")) : 編號3_cb.Items.Add(dr("編號")) : End While : conn.Close()

  136.         If 第三層_cb.Items.Count <> 0 Then : 第三層_cb.SelectedIndex = 0 : End If

  137.     End Sub

  138.     Private Sub 第一層下拉表單資料載入()

  139.         SQL_財務單會計科目1() : 第一層_cb.Items.Clear() : 編號1_cb.Items.Clear()

  140.         While (dr.Read()) : 第一層_cb.Items.Add(dr("第一階")) : 編號1_cb.Items.Add(dr("編號")) : End While : conn.Close() : 第一層_cb.Text = "" : 編號1_cb.Text = ""

  141.     End Sub

  142.     Private Sub 第二層下拉表單資料載入()

  143.         PA25 = 編號1_cb.Text : SQL_財務單會計科目2() : 第二層_cb.Items.Clear() : 編號2_cb.Items.Clear() : 第二層_cb.Items.Add("") : 編號2_cb.Items.Add("")

  144.         While (dr.Read()) : 第二層_cb.Items.Add(dr("第二階")) : 編號2_cb.Items.Add(dr("編號")) : End While : conn.Close() : 第二層_cb.Text = "" : 編號2_cb.Text = ""

  145.     End Sub

  146.     Private Sub 匯率()

  147.         SQL_營運成本收支單申請_查詢匯率()

  148.         If dr.Read() Then

  149.             人民幣匯率_tb.Text = dr("中心匯率").ToString : 美金匯率_tb.Text = dr("美金匯率").ToString : 印尼匯率_tb.Text = dr("印尼盾").ToString : conn.Close() : dr.Close()

  150.         Else : conn.Close() : dr.Close() : 匯率管理.Close() : 匯率管理.Show() : 匯率管理.BringToFront() : End If

  151.     End Sub

  152.     Private Sub Set_切換格式()

  153.         明細_dgv.DataSource = Nothing : 單號_tb.Text = "" : 申請人_tb.Text = ""

  154.         第三層下拉表單資料載入() : Set_清單1()

  155.     End Sub

  156.     Private Sub 財物支付單申請_傳票_Load(sender As Object, e As EventArgs) Handles MyBase.Load

  157.         已開啟 = False

  158.         If 跨部門開啟 = False Then : Me.AutoScroll = True : 首次開啟 = True : 申請_p.Visible = True : 審核_p.Visible = False

  159.         ElseIf 跨部門開啟 = True Then : Me.MdiParent = HX_PGS_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True : 首次開啟 = True : 申請_p.Visible = False : 審核_p.Visible = True : End If

  160.         年份2_cb.Text = Year(Today) : 月份2_cb.SelectedIndex = Month(Today) - 1 : Panel1.SendToBack() : 條件_cb.Text = "N/A" : 支付日期_dtp.Enabled = False

  161.         風格() : H(314) = True : 介面 = "H314" : 語言轉換讀取() : 第一層下拉表單資料載入() : 幣別_cb.Text = "IDR" : 顯示說明(999, False)

  162.         MyMod.清單字體大小調整()

  163.         財務收支單_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value)

  164.         已開啟 = True

  165.     End Sub

  166.     Private Sub 財物支付單申請_傳票_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown

  167.         部門選單下拉清單讀取() : 載入支付對象()

  168.         SQL_主管名稱(2, 23) : If dr.Read Then : 出納人員 = dr("姓名").ToString : End If

  169.         If 跨部門開啟 = False Then : CB選擇清單(部門選單_cb, 部門選單_cb.Text) : CB選擇清單(選擇公司_cb, 選擇公司_cb.Text) : End If

  170.         月_ch.Checked = True : 週_ch.Checked = False : 日_ch.Checked = False : HX_ch.Checked = False : PGS_ch.Checked = False : ALL_ch.Checked = True

  171.         當月_bt.PerformClick()

  172.         If PA48 = "採購" Then : 匯率() : 開立收支單_bt.Visible = False : 申請完成_bt.Visible = False : 首次開啟 = False

  173.         Else : 匯率() : 幣別_cb.SelectedIndex = 3 : 編號1_cb.Text = "B-02" : 首次開啟 = False : End If : PA48 = "" : 修改BT()

  174.     End Sub

  175.     Private Sub 財物支付單申請_傳票_Closed(sender As Object, e As EventArgs) Handles MyBase.Closed

  176.         If 跨部門開啟 = False Then : H(314) = False : 跨部門開啟 = False

  177.         ElseIf 跨部門開啟 = True Then : H(314) = False : 跨部門開啟 = False : MyMod.虛擬桌面開啟() : End If

  178.     End Sub

  179.     Private Sub 語轉扭_bt_Click(sender As Object, e As EventArgs) Handles 語轉扭_bt.Click

  180.         介面 = "H314" : 語言轉換讀取() : Set_清單1() : 第一層下拉表單資料載入() : 幣別_cb.SelectedIndex = 3 : 編號1_cb.Text = "B-02" : 修改BT() : Set_清單1()

  181.     End Sub

  182.     Private Sub 登入閒置控制_MouseMove(sender As Object, e As EventArgs) Handles MyBase.MouseMove

  183.         timeNow = 0 : HX_PGS_ERP_SYS.Timer1.Enabled = False : HX_PGS_ERP_SYS.Timer1.Enabled = True

  184.     End Sub

  185.     Private Sub 登入閒置控制_KeyPress(sender As Object, e As EventArgs) Handles MyBase.KeyPress

  186.         timeNow = 0 : HX_PGS_ERP_SYS.Timer1.Enabled = False : HX_PGS_ERP_SYS.Timer1.Enabled = True

  187.     End Sub

  188.     Private Sub 財務收支單_dgv_CellClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles 財務收支單_dgv.CellClick

  189.         If e.RowIndex = -1 Then : Else

  190.             單號_tb.Text = 財務收支單_dgv(0, e.RowIndex).Value.ToString : 申請日期_dtp.Value = 財務收支單_dgv("申請日期", e.RowIndex).Value.ToString

  191.             申請人_tb.Text = 財務收支單_dgv(2, e.RowIndex).Value.ToString : 系統單號_bt.Text = 財務收支單_dgv(3, e.RowIndex).Value.ToString

  192.             幣別_cb.Text = 財務收支單_dgv(4, e.RowIndex).Value.ToString : 編號1_cb.Text = Strings.Left(財務收支單_dgv("類別", e.RowIndex).Value.ToString, 4)

  193.             編號2_cb.Text = Strings.Left(財務收支單_dgv("類別", e.RowIndex).Value.ToString, 7) : 編號3_cb.Text = 財務收支單_dgv("類別", e.RowIndex).Value.ToString

  194.             金額大寫_tb.Text = 財務收支單_dgv("大寫", e.RowIndex).Value.ToString : 部門選單_cb.Text = Strings.Mid(財務收支單_dgv(0, e.RowIndex).Value.ToString, 5, 3)

  195.             內容_tb.Text = 財務收支單_dgv("明細", e.RowIndex).Value.ToString : 支付對象_tb.Text = 財務收支單_dgv("支付對象", e.RowIndex).Value.ToString

  196.             營行帳號_tb.Text = 財務收支單_dgv("公司", e.RowIndex).Value.ToString : 支付銀行_tb.Text = 財務收支單_dgv("付款銀行", e.RowIndex).Value.ToString

  197.             銀行支行_tb.Text = 財務收支單_dgv("銀行支行", e.RowIndex).Value.ToString : 檢查人_tb.Text = 財務收支單_dgv("檢查人", e.RowIndex).Value.ToString

  198.             主管_tb.Text = 財務收支單_dgv("主管人", e.RowIndex).Value.ToString : 支付對象_cb.Text = 財務收支單_dgv("支付對象", e.RowIndex).Value.ToString

  199.             If 財務收支單_dgv(1, e.RowIndex).Value.ToString <> "" Then : 支付日期_dtp.Value = 財務收支單_dgv(1, e.RowIndex).Value : Else : 支付日期_dtp.Value = Today : End If

  200.             If 財務收支單_dgv(11, e.RowIndex).Value = True Or 財務收支單_dgv(12, e.RowIndex).Value = True Then : 不可編輯x = True : Else : 不可編輯x = False : End If

  201.             If Strings.Left(財務收支單_dgv.Rows(e.RowIndex).Cells(10).Value.ToString, 2) = "作廢" Then

  202.                 審核人_tb.Text = 系統語言字典("H314-111-" & 語言) & Strings.Mid(財務收支單_dgv("審核人", e.RowIndex).Value.ToString, 3, 50)

  203.             Else : 審核人_tb.Text = 財務收支單_dgv("審核人", e.RowIndex).Value.ToString : End If

  204.             申請金額_nud.Value = CLng(財務收支單_dgv("支出", e.RowIndex).Value.ToString) : 大寫轉換()

  205.             If 財務收支單_dgv(0, e.RowIndex).Value.ToString.Contains("HXI") Then : PictureBox1.BringToFront()

  206.             ElseIf 財務收支單_dgv(0, e.RowIndex).Value.ToString.Contains("PGS") Then : PictureBox1.SendToBack() : Else : PictureBox1.BringToFront() : End If

  207.             PA1 = 財務收支單_dgv("核准圖檔", e.RowIndex).Value.ToString : SQL_主管簽名檔管理_圖片流水號()

  208.             簽名圖_pb.Image = Nothing

  209.             While dr.Read() = True

  210.                 Dim unused As Byte() = New Byte(-1) {}

  211.                 Dim bytes As Byte() = DirectCast(dr.Item("簽名檔圖片"), Byte())

  212.                 Dim oStream As New MemoryStream(bytes)

  213.                 簽名圖_pb.Image = Bitmap.FromStream(oStream)

  214.             End While : conn.Close() : 簽名圖_pb.SizeMode = 4

  215.         End If

  216.     End Sub

  217.     Private Sub ComboBox5_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 第一層_cb.TextChanged

  218.         編號1_cb.SelectedIndex = 第一層_cb.SelectedIndex : 查詢_tb.Text = "" : 第二層下拉表單資料載入() : 第三層下拉表單資料載入()

  219.     End Sub

  220.     Private Sub ComboBox2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 編號1_cb.TextChanged

  221.         第一層_cb.SelectedIndex = 編號1_cb.SelectedIndex : 第二層下拉表單資料載入() : 第三層下拉表單資料載入()

  222.     End Sub

  223.     Private Sub ComboBox3_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 第二層_cb.TextChanged

  224.         編號2_cb.SelectedIndex = 第二層_cb.SelectedIndex : 第三層下拉表單資料載入()

  225.     End Sub

  226.     Private Sub ComboBox4_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 編號2_cb.TextChanged

  227.         第二層_cb.SelectedIndex = 編號2_cb.SelectedIndex : 第三層下拉表單資料載入()

  228.     End Sub

  229.     Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 第三層_cb.SelectedIndexChanged

  230.         編號3_cb.SelectedIndex = 第三層_cb.SelectedIndex

  231.     End Sub

  232.     Private Sub ComboBox6_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 編號3_cb.SelectedIndexChanged

  233.         第三層_cb.SelectedIndex = 編號3_cb.SelectedIndex

  234.     End Sub

  235.     Private Sub 部門選單_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 部門選單_cb.SelectedIndexChanged

  236.         If 首次開啟 = False Then : Set_清單1() : End If

  237.     End Sub

  238.     Private Sub 部門選單_cb_Click(sender As Object, e As EventArgs) Handles 部門選單_cb.Click

  239.         CB選擇清單(部門選單_cb, 部門選單_cb.Text)

  240.     End Sub

  241.     Private Sub 重選部門_bt_Click(sender As Object, e As EventArgs) Handles 重選部門_bt.Click

  242.         CB選擇清單(部門選單_cb, 部門選單_cb.Text) : CB選擇清單(選擇公司_cb, 選擇公司_cb.Text)

  243.     End Sub

  244.     Private Sub 第二層_cb_Click(sender As Object, e As EventArgs) Handles 第二層_cb.Click

  245.         CB選擇清單(第二層_cb, 第二層_cb.Text)

  246.     End Sub

  247.     Private Sub 第三層_cb_Click(sender As Object, e As EventArgs) Handles 第三層_cb.Click

  248.         CB選擇清單(第三層_cb, 第三層_cb.Text)

  249.     End Sub

  250.     Private Sub 選擇公司_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 選擇公司_cb.SelectedIndexChanged

  251.         If 選擇公司_cb.Text = "PT HONG XHE INDUSTRIAL" Then : PictureBox1.BringToFront() : SK2 = "/HXI-PP/" : Else : PictureBox1.SendToBack() : SK2 = "/PGS-PP/" : End If

  252.         If 首次開啟 = False Then : Set_清單1() : End If

  253.     End Sub

  254.     Private Sub 申請日期_dtp_ValueChanged(sender As Object, e As EventArgs) Handles 申請日期_dtp.ValueChanged

  255.         匯率()

  256.     End Sub

  257.     Private Sub 年份2_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 年份2_cb.SelectedIndexChanged

  258.         If 首次開啟 = False Then : Set_清單1() : End If

  259.     End Sub

  260.     Private Sub 年份2_cb_Click(sender As Object, e As EventArgs) Handles 年份2_cb.Click

  261.         CB選擇清單(年份2_cb, 年份2_cb.Text)

  262.     End Sub

  263.     Private Sub 月份2_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 月份2_cb.SelectedIndexChanged

  264.         If 月份2_cb.Text = "01" Then : SK1 = "I/" : ElseIf 月份2_cb.Text = "02" Then : SK1 = "II/" : ElseIf 月份2_cb.Text = "03" Then : SK1 = "III/"

  265.         ElseIf 月份2_cb.Text = "04" Then : SK1 = "IV/" : ElseIf 月份2_cb.Text = "05" Then : SK1 = "V/" : ElseIf 月份2_cb.Text = "06" Then : SK1 = "VI/"

  266.         ElseIf 月份2_cb.Text = "07" Then : SK1 = "VII/" : ElseIf 月份2_cb.Text = "08" Then : SK1 = "VIII/" : ElseIf 月份2_cb.Text = "09" Then : SK1 = "IX/"

  267.         ElseIf 月份2_cb.Text = "10" Then : SK1 = "X/" : ElseIf 月份2_cb.Text = "11" Then : SK1 = "XI/" : ElseIf 月份2_cb.Text = "12" Then : SK1 = "XII/" : End If

  268.         If 首次開啟 = False Then : Set_清單1() : End If

  269.     End Sub

  270.     Private Sub 月份2_cb_Click(sender As Object, e As EventArgs) Handles 月份2_cb.Click

  271.         CB選擇清單(月份2_cb, 月份2_cb.Text)

  272.     End Sub

  273.     Private Sub Set_日期格式轉換()

  274.         If 補單_cb.Checked = False Then : DTP = Strings.Format(Today(), "yyyy/MM/dd") : DTP1 = Strings.Format(Today(), "yyyyMMdd")

  275.         Else : DTP1 = Strings.Format(申請日期_dtp.Value, "yyyyMMdd") : DTP = Strings.Format(申請日期_dtp.Value, "yyyy/MM/dd") : End If

  276.     End Sub

  277.     Private Sub Set_流水號()

  278.         Dim NUM1 As Integer

  279.         For NUM1 = 0 To 99

  280.             Dim d As String : Dim f As String : Dim g As Integer = 1

  281.             If Month(Now) < 10 Then : d = "0" & CStr(Month(Now)) : Else : d = CStr(Month(Now)) : End If

  282.             If Now.Day() < 10 Then : f = "0" & CStr(Now.Day()) : Else : f = CStr(Now.Day()) : End If

  283.             If NUM1 < 10 Then : 新流水1 = "B" & Microsoft.VisualBasic.Right(CStr(Year(Now)), 2) & d & f & "0" & NUM1

  284.             Else : 新流水1 = "B" & Microsoft.VisualBasic.Right(CStr(Year(Now)), 2) & d & f & NUM1 : End If : PA19 = 新流水1

  285.             SQL_營運成本收支單申請_查詢收支單公帳流水號()

  286.             If dr.Read() Then : conn.Close() : Else : conn.Close() : NUM1 = 99 : End If

  287.         Next

  288.     End Sub

  289.     Private Sub 開立收支單_bt_Click(sender As Object, e As EventArgs) Handles 開立收支單_bt.Click

  290.         If 編號3_cb.Text = "" Or 幣別_cb.Text = "" Then : MGB(對話框(2), 1) : 首次開啟 = False : Else : 不可編輯x = False

  291.             If 補單_cb.Checked = False Then : 申請日期_dtp.Value = Today() : End If : 申請人_tb.Text = gUserName

  292.             Dim today1 As Date = Date.Today

  293.             Dim dayOfWeek As DayOfWeek = today.DayOfWeek

  294.             Dim daysToAdd As Integer = If(dayOfWeek <= DayOfWeek.Friday, DayOfWeek.Friday - dayOfWeek, 7 - (dayOfWeek - DayOfWeek.Friday))

  295.             Dim nextFriday As Date = today1.AddDays(daysToAdd)

  296.             支付日期_dtp.Value = nextFriday            ' 將 DateTimePicker 控制元件的值設置為下個星期五

  297. 

  298.             Dim NUM1 As Integer

  299.             Set_日期格式轉換()

  300.             For i As Integer = 1 To 999

  301.                 NUM1 = 0 + i

  302.                 If NUM1 < 10 Then : 系統單號_bt.Text = "OE-" & DTP1 & "-00" & NUM1

  303.                 ElseIf NUM1 > 9 And NUM1 < 100 Then : 系統單號_bt.Text = "OE-" & DTP1 & "-0" & NUM1

  304.                 ElseIf NUM1 > 99 Then : 系統單號_bt.Text = "OE-" & DTP1 & "-" & NUM1

  305.                 End If : conn.Close() : PA = 系統單號_bt.Text : PA15 = 系統單號_bt.Text

  306.                 SQL_營運成本收支單申請_查詢第一筆公帳支付單號()

  307.                 If dr.Read() Then : Else : i = 999 : conn.Close() : End If : conn.Close()

  308.             Next : SQL_營運成本收支單申請_新增一筆財務收支控制表() : conn.Close() : 申請人_tb.Text = gUserName

  309. 

  310.             月份2_cb.Text = Strings.Mid(Strings.Format(申請日期_dtp.Value, "yyyy/MM/dd"), 6, 2)

  311.             PA25 = 部門選單_cb.Text & SK2 & SK1 & 年份2_cb.Text : SQL_財物支付單申請_查詢最後一筆公帳支付單號()

  312.             If dr.Read() Then : 單號_tb.Text = Strings.Left(dr("流水號").ToString, 3) : Else : 單號_tb.Text = "000" : End If : conn.Close()

  313.             單號_tb.Text = CInt(單號_tb.Text) + 1

  314.             If CInt(單號_tb.Text) < 10 Then : 單號_tb.Text = "00" & CInt(單號_tb.Text)

  315.             ElseIf CInt(單號_tb.Text) > 9 And CInt(單號_tb.Text) < 100 Then : 單號_tb.Text = "0" & CInt(單號_tb.Text)

  316.             ElseIf CInt(單號_tb.Text) > 99 And CInt(單號_tb.Text) < 1000 Then : 單號_tb.Text = CInt(單號_tb.Text) : End If

  317.             單號_tb.Text = 單號_tb.Text & "-" & 部門選單_cb.Text & SK2 & SK1 & 年份2_cb.Text

  318. 

  319.             PA19 = 單號_tb.Text : 新項次 = "01" : PA11 = 新項次

  320.             指定會科 = 編號3_cb.Text : PA13 = "0" : PA14 = 申請金額_nud.Value : PA12 = 內容_tb.Text : PA37 = "" : PA38 = 金額大寫_tb.Text : PA39 = 支付對象_tb.Text

  321.             PA40 = 營行帳號_tb.Text : PA41 = 支付銀行_tb.Text : PA42 = 銀行支行_tb.Text

  322.             If 幣別_cb.Text = "TWD" Then : 匯率1 = 1 / CDbl(印尼匯率_tb.Text)

  323.             ElseIf 幣別_cb.Text = "RMB" Then : 匯率1 = CDbl(人民幣匯率_tb.Text) / CDbl(印尼匯率_tb.Text)

  324.             ElseIf 幣別_cb.Text = "USD" Then : 匯率1 = CDbl(美金匯率_tb.Text) / CDbl(印尼匯率_tb.Text)

  325.             ElseIf 幣別_cb.Text = "IDR" Then : 匯率1 = 1

  326.             End If : PA16 = 匯率1

  327.             SQL_新增財物支付單明細表資料(Strings.Format(支付日期_dtp.Value, "yyyy/MM/dd")) : Set_清單1()

  328.         End If

  329.     End Sub

  330.     Private Sub 開立收支單1_bt_Click(sender As Object, e As EventArgs) Handles 開立收支單1_bt.Click

  331.         If 編號3_cb.Text = "" Or 幣別_cb.Text = "" Then : MGB(對話框(2), 1) : 首次開啟 = False : Else : 不可編輯x = False

  332.             If 補單_cb.Checked = False Then : 申請日期_dtp.Value = Today() : End If : 申請人_tb.Text = gUserName

  333.             Dim NUM1 As Integer

  334.             Set_日期格式轉換()

  335.             For i As Integer = 1 To 999

  336.                 NUM1 = 0 + i

  337.                 If NUM1 < 10 Then : 系統單號_bt.Text = "OE-" & DTP1 & "-00" & NUM1

  338.                 ElseIf NUM1 > 9 And NUM1 < 100 Then : 系統單號_bt.Text = "OE-" & DTP1 & "-0" & NUM1

  339.                 ElseIf NUM1 > 99 Then : 系統單號_bt.Text = "OE-" & DTP1 & "-" & NUM1

  340.                 End If : conn.Close() : PA = 系統單號_bt.Text : PA15 = 系統單號_bt.Text

  341.                 SQL_營運成本收支單申請_查詢第一筆公帳支付單號()

  342.                 If dr.Read() Then : Else : i = 999 : conn.Close() : End If : conn.Close()

  343.             Next : SQL_營運成本收支單申請_新增一筆財務收支控制表() : conn.Close() : 申請人_tb.Text = gUserName

  344. 

  345.             月份2_cb.Text = Strings.Mid(Strings.Format(申請日期_dtp.Value, "yyyy/MM/dd"), 6, 2)

  346.             PA25 = 部門選單_cb.Text & SK2 & SK1 & 年份2_cb.Text : SQL_財物支付單申請_查詢最後一筆公帳支付單號()

  347.             If dr.Read() Then : 單號_tb.Text = Strings.Left(dr("流水號").ToString, 3) : Else : 單號_tb.Text = "000" : End If : conn.Close()

  348.             單號_tb.Text = CInt(單號_tb.Text) + 1

  349.             If CInt(單號_tb.Text) < 10 Then : 單號_tb.Text = "00" & CInt(單號_tb.Text)

  350.             ElseIf CInt(單號_tb.Text) > 9 And CInt(單號_tb.Text) < 100 Then : 單號_tb.Text = "0" & CInt(單號_tb.Text)

  351.             ElseIf CInt(單號_tb.Text) > 99 And CInt(單號_tb.Text) < 1000 Then : 單號_tb.Text = CInt(單號_tb.Text) : End If

  352.             單號_tb.Text = 單號_tb.Text & "-" & 部門選單_cb.Text & SK2 & SK1 & 年份2_cb.Text

  353. 

  354.             PA19 = 單號_tb.Text : 新項次 = "01" : PA11 = 新項次

  355.             指定會科 = 編號3_cb.Text : PA13 = "0" : PA14 = 申請金額_nud.Value : PA12 = 內容_tb.Text : PA37 = "" : PA38 = 金額大寫_tb.Text : PA39 = 支付對象_tb.Text

  356.             PA40 = 營行帳號_tb.Text : PA41 = 支付銀行_tb.Text : PA42 = 銀行支行_tb.Text

  357.             If 幣別_cb.Text = "TWD" Then : 匯率1 = 1 / CDbl(印尼匯率_tb.Text)

  358.             ElseIf 幣別_cb.Text = "RMB" Then : 匯率1 = CDbl(人民幣匯率_tb.Text) / CDbl(印尼匯率_tb.Text)

  359.             ElseIf 幣別_cb.Text = "USD" Then : 匯率1 = CDbl(美金匯率_tb.Text) / CDbl(印尼匯率_tb.Text)

  360.             ElseIf 幣別_cb.Text = "IDR" Then : 匯率1 = 1

  361.             End If : PA16 = 匯率1

  362.             SQL_新增財物支付單明細表資料(Strings.Format(支付日期_dtp.Value, "yyyy/MM/dd")) : Set_清單1()

  363.         End If

  364.     End Sub

  365. 

  366.     Private Sub 刪除收支單_bt_Click(sender As Object, e As EventArgs) Handles 刪除收支單_bt.Click

  367.         If 不可編輯x = False Then

  368.             If 系統單號_bt.Text = "" Then : MGB(對話框(3), 1) : 首次開啟 = False : Else

  369.                 MGB(對話框(4), 2)

  370.                 If 訊息回應 = "YES" Then

  371.                     PA20 = 單號_tb.Text

  372.                     Dim ds1 As New DataSet : 採購連結_dgv.DataSource = Nothing : ds1.Clear()

  373.                     採購連結_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing

  374.                     採購連結_dgv.ColumnHeadersHeight = 40 : 採購連結_dgv.AllowUserToAddRows = False

  375.                     SQL_財務採購關聯表_反改查詢()

  376.                     da.Fill(ds1) : 採購連結_dgv.DataSource = ds1.Tables(0) : conn.Close()

  377.                     For I As Integer = 0 To 採購連結_dgv.Rows.Count - 1

  378.                         PA21 = 採購連結_dgv.Rows(I).Cells("採購單號").Value.ToString : SQL_採購單控制表_反改查詢()

  379.                         If dr.Read Then : PA22 = CLng(dr("轉財務金額").ToString) - CLng(採購連結_dgv.Rows(I).Cells("轉財務金額").Value.ToString) : End If

  380.                         SQL_採購單控制表_反改()

  381.                     Next

  382.                     SQL_財務採購關聯表_反改()

  383.                     PA45 = 系統單號_bt.Text : SQL_營運成本收支單申請_刪除財務收支控制表() : SQL_營運成本收支單申請_刪除財務收支明細表() : conn.Close()

  384.                     第二層_cb.Text = "" : 編號2_cb.Text = "" : 第三層_cb.Text = "" : 編號3_cb.Text = "" : 申請金額_nud.Value = 0

  385.                     單號_tb.Text = "" : 申請人_tb.Text = "" : 金額大寫_tb.Text = "" : 內容_tb.Text = "" : 支付對象_tb.Text = "" : Set_清單1()

  386.                 End If : 首次開啟 = False

  387.             End If

  388.         Else : MGB(對話框(8), 1) : 首次開啟 = False : End If

  389.     End Sub

  390.     Private Sub 申請完成_bt_Click(sender As Object, e As EventArgs) Handles 申請完成_bt.Click

  391.         If 不可編輯x = False Then

  392.             If 系統單號_bt.Text = "" Then : MGB(對話框(3), 1) : 首次開啟 = False : Else

  393.                 PA1 = 內容_tb.Text : PA2 = 申請金額_nud.Value : PA4 = 編號3_cb.Text : PA3 = 金額大寫_tb.Text : PA6 = 系統單號_bt.Text : PA9 = "01"

  394.                 PA7 = 營行帳號_tb.Text : PA8 = 支付銀行_tb.Text : PA10 = 銀行支行_tb.Text : If 支付對象_tb.Text = "" Then : 支付對象_tb.Text = 支付對象_cb.Text : End If

  395.                 PA5 = 支付對象_tb.Text

  396.                 SQL_財物支付單修改(Strings.Format(支付日期_dtp.Value, "yyyy/MM/dd")) : Set_清單1() : MGB(對話框(1), 1) : 首次開啟 = False

  397.             End If

  398.         Else

  399.             If 登入人級別 = "00" Then

  400.                 PA1 = 內容_tb.Text : PA2 = 申請金額_nud.Value : PA4 = 編號3_cb.Text : PA3 = 金額大寫_tb.Text : PA6 = 系統單號_bt.Text : PA9 = "01"

  401.                 PA7 = 營行帳號_tb.Text : PA8 = 支付銀行_tb.Text : PA10 = 銀行支行_tb.Text : If 支付對象_tb.Text = "" Then : 支付對象_tb.Text = 支付對象_cb.Text : End If

  402.                 PA5 = 支付對象_tb.Text

  403.                 SQL_財物支付單修改(Strings.Format(支付日期_dtp.Value, "yyyy/MM/dd")) : Set_清單1() : MGB(對話框(1), 1) : 首次開啟 = False

  404.             End If

  405.             MGB(對話框(8), 1) : 首次開啟 = False

  406.         End If

  407.         解開星期五_ch.Checked = False : 支付日期_dtp.Enabled = False

  408.     End Sub

  409.     Private Sub 檢查人_bt_Click(sender As Object, e As EventArgs) Handles 檢查人_bt.Click

  410.         If CInt(登入人級別) <= 5 Then

  411.             If 檢查人_tb.Text = "" Then

  412.                 檢查人_tb.Text = gUserName : SQL_財物支付單修改_檢查人(系統單號_bt.Text, 檢查人_tb.Text)

  413.                 LIN訊息通知("CC209", 出納人員, gUserName, "七日內") : LIN訊息通知("CC209", "李協叡", gUserName, "七日內")

  414.             End If

  415.         End If

  416.     End Sub

  417.     Private Sub 主管_bt_Click(sender As Object, e As EventArgs) Handles 主管_bt.Click

  418.         If CInt(登入人級別) <= 3 Then

  419.             If 主管_tb.Text = "" Then

  420.                 主管_tb.Text = gUserName : SQL_財物支付單修改_主管(系統單號_bt.Text, 主管_tb.Text)

  421.             End If

  422.         End If

  423.     End Sub

  424.     Private Sub 審核通過_bt_Click(sender As Object, e As EventArgs) Handles 審核通過_bt.Click

  425.         If 系統單號_bt.Text = "" Then : MGB(對話框(3), 1) : 首次開啟 = False : Else

  426.             Set_日期格式轉換()

  427.             If gUserName = 出納人員 Then : SQL_簽名檔查詢(出納人員) : If dr.Read Then : PA27 = dr("圖片流水號").ToString : Else : PA27 = "PG00000004" : End If

  428.             Else : PA27 = "" : End If : PA28 = "" : PA29 = 系統單號_bt.Text

  429.             SQL_營運成本收支單審核_修改財務收支控制表()

  430.             SQL_營運成本收支單審核_修改財務收支明細表()

  431.             PA1 = "01" : SQL_營運成本收支單審核_修改財務收支明細表備用金() : SQL_營運成本收支單審核_修改財務收支明細表現金() : SQL_營運成本收支單審核_修改財務收支明細表支出()

  432.             SQL_營運成本收支單審核_修改財務收支明細表支付日期(Strings.Format(支付日期_dtp.Value, "yyyy/MM/dd"))

  433.             MGB(對話框(5), 1) : 首次開啟 = False : Set_清單1()

  434.             LIN訊息通知("CC212", "LIN HSING HAO", 單號_tb.Text, Strings.Format(支付日期_dtp.Value, "yyyy/MM/dd"))

  435.             LIN訊息通知("CC212", "李協叡", 單號_tb.Text, Strings.Format(支付日期_dtp.Value, "yyyy/MM/dd"))

  436.         End If

  437.     End Sub

  438.     Private Sub 單據作廢_bt_Click(sender As Object, e As EventArgs) Handles 單據作廢_bt.Click

  439.         If 系統單號_bt.Text = "" Then : MGB(對話框(3), 1) : 首次開啟 = False : Else : INB(對話框(6)) : PA = 訊息回應

  440.             If PA = "" Then : MGB(對話框(7), 1) : Else : Set_日期格式轉換()

  441.                 PA42 = 系統單號_bt.Text : SQL_營運成本收支單審核_審核人3() : conn.Close() : MGB(對話框(5), 1) : PA = "" : 首次開啟 = False : Set_清單1()

  442.             End If

  443.         End If

  444.     End Sub

  445.     Private Sub 申請金額_nud_ValueChanged(sender As Object, e As EventArgs) Handles 申請金額_nud.ValueChanged

  446.         大寫轉換()

  447.     End Sub

  448.     Private Sub 大寫轉換()

  449.         Dim 個位(20), 十位(9), 百位(1), 千位(1), 百萬, 十億, 零, 拾, 百, 仟, 萬, 億, 兆, 答案 As String : Dim 數長 As Integer

  450.         If 系統語言 = "繁體中文" Then

  451.             個位(0) = "零" : 個位(1) = "壹" : 個位(2) = "貳" : 個位(3) = "參" : 個位(4) = "肆" : 個位(5) = "伍" : 個位(6) = "陸" : 個位(7) = "柒" : 個位(8) = "捌" : 個位(9) = "玖"

  452.             零 = "零" : 拾 = "拾" : 百 = "百" : 仟 = "仟" : 萬 = "萬" : 億 = "億" : 兆 = "兆"

  453.         ElseIf 系統語言 = "Indonesian" Then

  454.             個位(0) = "Nol" : 個位(1) = "Satu" : 個位(2) = "Dua" : 個位(3) = "Tiga" : 個位(4) = "Empat" : 個位(5) = "Lima" : 個位(6) = "Enam" : 個位(7) = "Tujuh"

  455.             個位(8) = "Delapan" : 個位(9) = "Sembilan" : 個位(10) = "Sepuluh" : 個位(11) = "Sebelas" : 個位(12) = "Dua Belas" : 個位(13) = "Tiga Belas" : 個位(14) = "Empat Belas"

  456.             個位(15) = "Lima Belas" : 個位(16) = "Enam Belas" : 個位(17) = "Tujuh Belas" : 個位(18) = "Delapan Belas" : 個位(19) = "Sembilan Belas" : 個位(20) = "Dua Puluh"

  457.             十位(1) = "Sepuluh" : 十位(2) = "Dua Puluh" : 十位(3) = "Tiga Puluh" : 十位(4) = "Empat Puluh" : 十位(5) = "Lima Puluh" : 十位(6) = "Enam Puluh" : 十位(7) = "Tujuh Puluh"

  458.             十位(8) = "Delapan Puluh" : 十位(9) = "Sembilan Puluh"

  459.             百位(0) = "Seratus" : 百位(1) = "Ratus" : 千位(0) = "Seribu" : 千位(1) = "Ribu" : 百萬 = "Juta" : 十億 = "Miliar" : 兆 = "Triliun"

  460.         ElseIf 系統語言 = "English" Then

  461.             個位(0) = "Zero" : 個位(1) = "One" : 個位(2) = "Two" : 個位(3) = "Three" : 個位(4) = "Four" : 個位(5) = "Five" : 個位(6) = "Six" : 個位(7) = "Seven"

  462.             個位(8) = "Eight" : 個位(9) = "Nine" : 個位(10) = "Ten" : 個位(11) = "Eleven" : 個位(12) = "Twelve" : 個位(13) = "Thirteen" : 個位(14) = "Fourteen"

  463.             個位(15) = "Fifteen" : 個位(16) = "Sixteen" : 個位(17) = "Seventeen" : 個位(18) = "Eighteen" : 個位(19) = "Nineteen" : 個位(20) = "Twenty"

  464.             十位(1) = "Ten" : 十位(2) = "Twenty" : 十位(3) = "Thirty" : 十位(4) = "Forty" : 十位(5) = "Fifty" : 十位(6) = "Sixty" : 十位(7) = "Seventy" : 十位(8) = "Eighty"

  465.             十位(9) = "Ninety"

  466.             百位(0) = "One Hundred" : 百位(1) = "Hundred" : 千位(0) = "One Thousand" : 千位(1) = "Thousand" : 百萬 = "Million" : 十億 = "Billion" : 兆 = "Trillion"

  467.         End If

  468.         '--------------轉大寫-----------------------------------------------------------

  469.         Dim 位數(13), 末位數 As String

  470.         Dim NB As Long = 申請金額_nud.Value : Dim NBS As String = NB.ToString() : 數長 = NBS.Length

  471.         位數(1) = Strings.Left(NBS, 1) : 末位數 = Strings.Right(NBS, 1)

  472.         If 數長 >= 2 Then : 位數(2) = Strings.Mid(NBS, 2, 1) : End If : If 數長 >= 3 Then : 位數(3) = Strings.Mid(NBS, 3, 1) : End If

  473.         If 數長 >= 4 Then : 位數(4) = Strings.Mid(NBS, 4, 1) : End If : If 數長 >= 5 Then : 位數(5) = Strings.Mid(NBS, 5, 1) : End If

  474.         If 數長 >= 6 Then : 位數(6) = Strings.Mid(NBS, 6, 1) : End If : If 數長 >= 7 Then : 位數(7) = Strings.Mid(NBS, 7, 1) : End If

  475.         If 數長 >= 8 Then : 位數(8) = Strings.Mid(NBS, 8, 1) : End If : If 數長 >= 9 Then : 位數(9) = Strings.Mid(NBS, 9, 1) : End If

  476.         If 數長 >= 10 Then : 位數(10) = Strings.Mid(NBS, 10, 1) : End If : If 數長 >= 11 Then : 位數(11) = Strings.Mid(NBS, 11, 1) : End If

  477.         If 數長 >= 12 Then : 位數(12) = Strings.Mid(NBS, 12, 1) : End If : If 數長 >= 13 Then : 位數(13) = Strings.Mid(NBS, 13, 1) : End If

  478.         If 系統語言 <> "繁體中文" Then

  479.             If 申請金額_nud.Value < 21 Then : 答案 = 個位(申請金額_nud.Value)

  480.             ElseIf 數長 = 2 Then

  481.                 If 位數(2) <> "0" And 末位數 = "0" Then : 答案 = 十位(位數(1))

  482.                 ElseIf 位數(2) <> "0" And 末位數 <> "0" Then : 答案 = 十位(位數(1)) & " " & 個位(末位數) : End If

  483.             ElseIf 數長 = 3 Then

  484.                 '------------------百------------------------------------------------------------------------------------------------------

  485.                 If 位數(1) = "1" Then : 答案 = 百位(0) : ElseIf 位數(1) <> "1" Then : 答案 = 個位(位數(1)) & " " & 百位(1) : End If

  486.                 '------------------個十------------------------------------------------------------------------------------------------------

  487.                 If 位數(2) = "0" And 末位數 = "0" Then

  488.                 ElseIf 位數(2) = "0" And 末位數 <> "0" Then : 答案 &= " " & 個位(末位數)

  489.                 Else

  490.                     If CInt(位數(2) & 末位數) < 21 Then

  491.                         If 末位數 = "0" Then : 答案 &= " " & 十位(位數(2)) : Else : 答案 &= " " & 個位(位數(2) & 末位數) : End If

  492.                     Else

  493.                         If 位數(2) <> "0" And 末位數 = "0" Then : 答案 &= " " & 十位(位數(2))

  494.                         ElseIf 位數(2) <> "0" And 末位數 <> "0" Then : 答案 &= " " & 十位(位數(2)) & " " & 個位(末位數) : End If

  495.                     End If

  496.                 End If

  497.             ElseIf 數長 = 4 Then

  498.                 '------------------千------------------------------------------------------------------------------------------------------

  499.                 If 位數(1) = "1" Then : 答案 = 千位(0)

  500.                 ElseIf 位數(1) <> "1" Then : 答案 = 個位(位數(1)) & " " & 千位(1) : End If

  501.                 '------------------百------------------------------------------------------------------------------------------------------

  502.                 If CInt(位數(2) & 位數(3) & 末位數) < 100 Then

  503.                 ElseIf CInt(位數(2) & 位數(3) & 末位數) < 200 Then : 答案 &= " " & 百位(0)

  504.                 ElseIf CInt(位數(2) & 位數(3) & 末位數) >= 200 Then : 答案 &= " " & 個位(位數(2)) & " " & 百位(1) : End If

  505.                 '------------------個十------------------------------------------------------------------------------------------------------

  506.                 If 位數(3) = "0" And 末位數 = "0" Then

  507.                 ElseIf 位數(3) = "0" And 末位數 <> "0" Then : 答案 &= " " & 個位(末位數)

  508.                 Else

  509.                     If CInt(位數(3) & 末位數) < 21 Then

  510.                         If 末位數 = "0" Then : 答案 &= " " & 十位(位數(3)) : Else : 答案 &= " " & 個位(位數(3) & 末位數) : End If

  511.                     Else

  512.                         If 位數(3) <> "0" And 末位數 = "0" Then : 答案 &= " " & 十位(位數(3))

  513.                         ElseIf 位數(3) <> "0" And 末位數 <> "0" Then : 答案 &= " " & 十位(位數(3)) & " " & 個位(末位數) : End If

  514.                     End If

  515.                 End If

  516.             ElseIf 數長 = 5 Then

  517.                 '------------------十千(萬)------------------------------------------------------------------------------------------------------

  518.                 If CInt(位數(1) & 位數(2)) < 21 Then

  519.                     If 位數(2) = "0" Then : 答案 = 十位(位數(1)) & " " & 千位(1) : Else : 答案 = 個位(位數(1) & 位數(2)) & " " & 千位(1) : End If

  520.                 Else

  521.                     If 位數(1) <> "0" And 位數(2) = "0" Then : 答案 = 十位(位數(1)) & " " & 千位(1)

  522.                     ElseIf 位數(1) <> "0" And 位數(2) <> "0" Then : 答案 = 十位(位數(1)) & " " & 個位(位數(2)) & " " & 千位(1) : End If

  523.                 End If

  524.                 '------------------百------------------------------------------------------------------------------------------------------

  525.                 If CInt(位數(3) & 位數(4) & 末位數) < 100 Then

  526.                 ElseIf CInt(位數(3) & 位數(4) & 末位數) < 200 Then : 答案 &= " " & 百位(0)

  527.                 ElseIf CInt(位數(3) & 位數(4) & 末位數) >= 200 Then : 答案 &= " " & 個位(位數(3)) & " " & 百位(1) : End If

  528.                 '------------------個十------------------------------------------------------------------------------------------------------

  529.                 If 位數(4) = "0" And 末位數 = "0" Then

  530.                 ElseIf 位數(4) = "0" And 末位數 <> "0" Then : 答案 &= " " & 個位(末位數)

  531.                 Else

  532.                     If CInt(位數(4) & 末位數) < 21 Then

  533.                         If 末位數 = "0" Then : 答案 &= " " & 十位(位數(4)) : Else : 答案 &= " " & 個位(位數(4) & 末位數) : End If

  534.                     Else

  535.                         If 位數(4) <> "0" And 末位數 = "0" Then : 答案 &= " " & 十位(位數(4))

  536.                         ElseIf 位數(4) <> "0" And 末位數 <> "0" Then : 答案 &= " " & 十位(位數(4)) & " " & 個位(末位數) : End If

  537.                     End If

  538.                 End If

  539.             ElseIf 數長 = 6 Then

  540.                 '------------------百千(十萬)------------------------------------------------------------------------------------------------------

  541.                 If CInt(位數(1)) = 1 Then : 答案 = 百位(0) : Else : 答案 = 個位(位數(1)) & " " & 百位(1) : End If

  542.                 '------------------十千(萬)------------------------------------------------------------------------------------------------------

  543.                 If CInt(位數(2) & 位數(3)) < 21 Then

  544.                     If 位數(3) = "0" Then : 答案 &= " " & 十位(位數(2)) & " " & 千位(1) : Else : 答案 &= " " & 個位(位數(2) & 位數(3)) & " " & 千位(1) : End If

  545.                 Else

  546.                     If 位數(2) <> "0" And 位數(3) = "0" Then : 答案 &= " " & 十位(位數(2)) & " " & 千位(1)

  547.                     ElseIf 位數(2) <> "0" And 位數(3) <> "0" Then : 答案 &= " " & 十位(位數(2)) & " " & 個位(位數(3)) & " " & 千位(1) : End If

  548.                 End If

  549.                 '------------------百------------------------------------------------------------------------------------------------------

  550.                 If CInt(位數(4) & 位數(5) & 末位數) < 100 Then

  551.                 ElseIf CInt(位數(4) & 位數(5) & 末位數) < 200 Then : 答案 &= " " & 百位(0)

  552.                 ElseIf CInt(位數(4) & 位數(5) & 末位數) >= 200 Then : 答案 &= " " & 個位(位數(4)) & " " & 百位(1) : End If

  553.                 '------------------個十------------------------------------------------------------------------------------------------------

  554.                 If 位數(5) = "0" And 末位數 = "0" Then

  555.                 ElseIf 位數(5) = "0" And 末位數 <> "0" Then : 答案 &= " " & 個位(末位數)

  556.                 Else

  557.                     If CInt(位數(5) & 末位數) < 21 Then

  558.                         If 末位數 = "0" Then : 答案 &= " " & 十位(位數(5)) : Else : 答案 &= " " & 個位(位數(5) & 末位數) : End If

  559.                     Else

  560.                         If 位數(5) <> "0" And 末位數 = "0" Then : 答案 &= " " & 十位(位數(5))

  561.                         ElseIf 位數(5) <> "0" And 末位數 <> "0" Then : 答案 &= " " & 十位(位數(5)) & " " & 個位(末位數) : End If

  562.                     End If

  563.                 End If

  564.             ElseIf 數長 = 7 Then

  565.                 '------------------百萬------------------------------------------------------------------------------------------------------

  566.                 答案 = 個位(位數(1)) & " " & 百萬

  567.                 '------------------百千(十萬)------------------------------------------------------------------------------------------------------

  568.                 If CInt(位數(2)) = 0 Then : ElseIf CInt(位數(2)) = 1 Then : 答案 &= " " & 百位(0)

  569.                 ElseIf CInt(位數(2)) > 1 Then : 答案 &= " " & 個位(位數(2)) & " " & 百位(1) : End If

  570.                 '------------------十千(萬)------------------------------------------------------------------------------------------------------

  571.                 If 位數(2) = "0" And 位數(3) = "0" And 位數(4) = "0" Then : Else

  572.                     If CInt(位數(3) & 位數(4)) < 21 Then

  573.                         If 位數(3) = "0" And 位數(4) = "0" Then : 答案 &= " " & 千位(1)

  574.                         ElseIf 位數(3) = "0" And 位數(4) <> "0" Then : 答案 &= " " & 個位(位數(4)) & " " & 千位(1)

  575.                         ElseIf 位數(3) <> "0" And 位數(4) = "0" Then : 答案 &= " " & 十位(位數(3)) & " " & 千位(1)

  576.                         ElseIf 位數(3) <> "0" And 位數(4) <> "0" Then : 答案 &= " " & 個位(位數(3) & 位數(4)) & " " & 千位(1) : End If

  577.                     Else

  578.                         If 位數(3) <> "0" And 位數(4) = "0" Then : 答案 &= " " & 十位(位數(3)) & " " & 千位(1)

  579.                         ElseIf 位數(3) <> "0" And 位數(4) <> "0" Then : 答案 &= " " & 十位(位數(3)) & " " & 個位(位數(4)) & " " & 千位(1) : End If

  580.                     End If

  581.                 End If

  582.                 '------------------百------------------------------------------------------------------------------------------------------

  583.                 If CInt(位數(5) & 位數(6) & 末位數) < 100 Then

  584.                 ElseIf CInt(位數(5) & 位數(6) & 末位數) < 200 Then : 答案 &= " " & 百位(0)

  585.                 ElseIf CInt(位數(5) & 位數(6) & 末位數) >= 200 Then : 答案 &= " " & 個位(位數(5)) & " " & 百位(1) : End If

  586.                 '------------------個十------------------------------------------------------------------------------------------------------

  587.                 If 位數(6) = "0" And 末位數 = "0" Then

  588.                 ElseIf 位數(6) = "0" And 末位數 <> "0" Then : 答案 &= " " & 個位(末位數)

  589.                 Else

  590.                     If CInt(位數(6) & 末位數) < 21 Then

  591.                         If 末位數 = "0" Then : 答案 &= " " & 十位(位數(6)) : Else : 答案 &= " " & 個位(位數(6) & 末位數) : End If

  592.                     Else

  593.                         If 位數(6) <> "0" And 末位數 = "0" Then : 答案 &= " " & 十位(位數(6))

  594.                         ElseIf 位數(6) <> "0" And 末位數 <> "0" Then : 答案 &= " " & 十位(位數(6)) & " " & 個位(末位數) : End If

  595.                     End If

  596.                 End If

  597.             ElseIf 數長 = 8 Then

  598.                 '------------------十百萬(千萬)------------------------------------------------------------------------------------------------------

  599.                 If CInt(位數(1) & 位數(2)) < 21 Then

  600.                     If 位數(2) = "0" Then : 答案 = 十位(位數(1)) & " " & 百萬 : Else : 答案 = 個位(位數(1) & 位數(2)) & " " & 百萬 : End If

  601.                 Else

  602.                     If 位數(1) <> "0" And 位數(2) = "0" Then : 答案 = 十位(位數(1)) & " " & 百萬

  603.                     ElseIf 位數(1) <> "0" And 位數(2) <> "0" Then : 答案 = 十位(位數(1)) & " " & 個位(位數(2)) & " " & 百萬 : End If

  604.                 End If

  605.                 '------------------百千(十萬)------------------------------------------------------------------------------------------------------

  606.                 If CInt(位數(3)) = 0 Then : ElseIf CInt(位數(3)) = 1 Then : 答案 &= " " & 百位(0)

  607.                 ElseIf CInt(位數(3)) > 1 Then : 答案 &= " " & 個位(位數(3)) & " " & 百位(1) : End If

  608.                 '------------------十千(萬)------------------------------------------------------------------------------------------------------

  609.                 If 位數(3) = "0" And 位數(4) = "0" And 位數(5) = "0" Then : Else

  610.                     If CInt(位數(4) & 位數(5)) < 21 Then

  611.                         If 位數(4) = "0" And 位數(5) = "0" Then : 答案 &= " " & 千位(1)

  612.                         ElseIf 位數(4) = "0" And 位數(5) <> "0" Then : 答案 &= " " & 個位(位數(5)) & " " & 千位(1)

  613.                         ElseIf 位數(4) <> "0" And 位數(5) = "0" Then : 答案 &= " " & 十位(位數(4)) & " " & 千位(1)

  614.                         ElseIf 位數(4) <> "0" And 位數(5) <> "0" Then : 答案 &= " " & 個位(位數(4) & 位數(5)) & " " & 千位(1) : End If

  615.                     Else

  616.                         If 位數(4) <> "0" And 位數(5) = "0" Then : 答案 &= " " & 十位(位數(4)) & " " & 千位(1)

  617.                         ElseIf 位數(4) <> "0" And 位數(5) <> "0" Then : 答案 &= " " & 十位(位數(4)) & " " & 個位(位數(5)) & " " & 千位(1) : End If

  618.                     End If

  619.                 End If

  620.                 '------------------百------------------------------------------------------------------------------------------------------

  621.                 If CInt(位數(6) & 位數(7) & 末位數) < 100 Then

  622.                 ElseIf CInt(位數(6) & 位數(7) & 末位數) < 200 Then : 答案 &= " " & 百位(0)

  623.                 ElseIf CInt(位數(6) & 位數(7) & 末位數) >= 200 Then : 答案 &= " " & 個位(位數(6)) & " " & 百位(1) : End If

  624.                 '------------------個十------------------------------------------------------------------------------------------------------

  625.                 If 位數(7) = "0" And 末位數 = "0" Then

  626.                 ElseIf 位數(7) = "0" And 末位數 <> "0" Then : 答案 &= " " & 個位(末位數)

  627.                 Else

  628.                     If CInt(位數(7) & 末位數) < 21 Then

  629.                         If 末位數 = "0" Then : 答案 &= " " & 十位(位數(7)) : Else : 答案 &= " " & 個位(位數(7) & 末位數) : End If

  630.                     Else

  631.                         If 位數(7) <> "0" And 末位數 = "0" Then : 答案 &= " " & 十位(位數(7))

  632.                         ElseIf 位數(7) <> "0" And 末位數 <> "0" Then : 答案 &= " " & 十位(位數(7)) & " " & 個位(末位數) : End If

  633.                     End If

  634.                 End If

  635.             ElseIf 數長 = 9 Then

  636.                 '------------------百百萬(億)------------------------------------------------------------------------------------------------------

  637.                 If CInt(位數(1)) = 1 Then : 答案 = 百位(0) : ElseIf CInt(位數(1)) > 1 Then : 答案 = 個位(位數(1)) & " " & 百位(1) : End If

  638.                 '------------------十百萬(千萬)------------------------------------------------------------------------------------------------------

  639.                 If 位數(2) = "0" And 位數(3) = "0" Then : 答案 &= " " & 百萬

  640.                 ElseIf 位數(2) = "0" And 位數(3) <> "0" Then : 答案 &= " " & 個位(位數(3)) & " " & 百萬

  641.                 ElseIf CInt(位數(2) & 位數(3)) < 21 Then

  642.                     If 位數(3) = "0" Then : 答案 &= " " & 十位(位數(2)) & " " & 百萬 : Else : 答案 &= " " & 個位(位數(2) & 位數(3)) & " " & 百萬 : End If

  643.                 ElseIf CInt(位數(2) & 位數(3)) >= 21 Then

  644.                     If 位數(2) <> "0" And 位數(3) = "0" Then : 答案 &= " " & 十位(位數(2)) & " " & 百萬

  645.                     ElseIf 位數(2) <> "0" And 位數(3) <> "0" Then : 答案 &= " " & 十位(位數(2)) & " " & 個位(位數(3)) & " " & 百萬 : End If

  646.                 End If

  647.                 '------------------百千(十萬)------------------------------------------------------------------------------------------------------

  648.                 If CInt(位數(4)) = 0 Then : ElseIf CInt(位數(4)) = 1 Then : 答案 &= " " & 百位(0)

  649.                 ElseIf CInt(位數(4)) > 1 Then : 答案 &= " " & 個位(位數(4)) & " " & 百位(1) : End If

  650.                 '------------------十千(萬)------------------------------------------------------------------------------------------------------

  651.                 If 位數(4) = "0" And 位數(5) = "0" And 位數(6) = "0" Then : Else

  652.                     If CInt(位數(5) & 位數(6)) < 21 Then

  653.                         If 位數(5) = "0" And 位數(6) = "0" Then : 答案 &= " " & 千位(1)

  654.                         ElseIf 位數(5) = "0" And 位數(6) <> "0" Then : 答案 &= " " & 個位(位數(6)) & " " & 千位(1)

  655.                         ElseIf 位數(5) <> "0" And 位數(6) = "0" Then : 答案 &= " " & 十位(位數(5)) & " " & 千位(1)

  656.                         ElseIf 位數(5) <> "0" And 位數(6) <> "0" Then : 答案 &= " " & 個位(位數(5) & 位數(6)) & " " & 千位(1) : End If

  657.                     Else

  658.                         If 位數(5) <> "0" And 位數(6) = "0" Then : 答案 &= " " & 十位(位數(5)) & " " & 千位(1)

  659.                         ElseIf 位數(5) <> "0" And 位數(6) <> "0" Then : 答案 &= " " & 十位(位數(5)) & " " & 個位(位數(6)) & " " & 千位(1) : End If

  660.                     End If

  661.                 End If

  662.                 '------------------百------------------------------------------------------------------------------------------------------

  663.                 If CInt(位數(7) & 位數(8) & 末位數) < 100 Then

  664.                 ElseIf CInt(位數(7) & 位數(8) & 末位數) < 200 Then : 答案 &= " " & 百位(0)

  665.                 ElseIf CInt(位數(7) & 位數(8) & 末位數) >= 200 Then : 答案 &= " " & 個位(位數(7)) & " " & 百位(1) : End If

  666.                 '------------------個十------------------------------------------------------------------------------------------------------

  667.                 If 位數(8) = "0" And 末位數 = "0" Then

  668.                 ElseIf 位數(8) = "0" And 末位數 <> "0" Then : 答案 &= " " & 個位(末位數)

  669.                 Else

  670.                     If CInt(位數(8) & 末位數) < 21 Then

  671.                         If 末位數 = "0" Then : 答案 &= " " & 十位(位數(8)) : Else : 答案 &= " " & 個位(位數(8) & 末位數) : End If

  672.                     Else

  673.                         If 位數(8) <> "0" And 末位數 = "0" Then : 答案 &= " " & 十位(位數(8))

  674.                         ElseIf 位數(8) <> "0" And 末位數 <> "0" Then : 答案 &= " " & 十位(位數(8)) & " " & 個位(末位數) : End If

  675.                     End If

  676.                 End If

  677.             ElseIf 數長 = 10 Then

  678.                 '------------------十億------------------------------------------------------------------------------------------------------

  679.                 答案 = 個位(位數(1)) & " " & 十億

  680.                 '------------------百百萬(億)------------------------------------------------------------------------------------------------------

  681.                 If CInt(位數(2)) = 0 Then

  682.                 ElseIf CInt(位數(2)) = 1 Then : 答案 &= " " & 百位(0)

  683.                 ElseIf CInt(位數(2)) > 1 Then : 答案 &= " " & 個位(位數(2)) & " " & 百位(1) : End If

  684.                 '------------------十百萬(千萬)------------------------------------------------------------------------------------------------------

  685.                 If 位數(2) = "0" And 位數(3) = "0" And 位數(4) = "0" Then

  686.                 ElseIf 位數(3) = "0" And 位數(4) = "0" Then : 答案 &= " " & 百萬

  687.                 ElseIf 位數(3) = "0" And 位數(4) <> "0" Then : 答案 &= " " & 個位(位數(4)) & " " & 百萬

  688.                 ElseIf CInt(位數(3) & 位數(4)) < 21 Then

  689.                     If 位數(4) = "0" Then : 答案 &= " " & 十位(位數(3)) & " " & 百萬 : Else : 答案 &= " " & 個位(位數(3) & 位數(4)) & " " & 百萬 : End If

  690.                 ElseIf CInt(位數(3) & 位數(4)) >= 21 Then

  691.                     If 位數(3) <> "0" And 位數(4) = "0" Then : 答案 &= " " & 十位(位數(3)) & " " & 百萬

  692.                     ElseIf 位數(3) <> "0" And 位數(4) <> "0" Then : 答案 &= " " & 十位(位數(3)) & " " & 個位(位數(4)) & " " & 百萬 : End If

  693.                 End If

  694.                 '------------------百千(十萬)------------------------------------------------------------------------------------------------------

  695.                 If CInt(位數(5)) = 0 Then : ElseIf CInt(位數(5)) = 1 Then : 答案 &= " " & 百位(0)

  696.                 ElseIf CInt(位數(5)) > 1 Then : 答案 &= " " & 個位(位數(5)) & " " & 百位(1) : End If

  697.                 '------------------十千(萬)------------------------------------------------------------------------------------------------------

  698.                 If CInt(位數(6) & 位數(7)) < 21 Then

  699.                     If 位數(5) = "0" And 位數(6) = "0" And 位數(7) = "0" Then

  700.                     ElseIf 位數(6) = "0" And 位數(7) = "0" Then : 答案 &= " " & 千位(1)

  701.                     ElseIf 位數(6) = "0" And 位數(7) <> "0" Then : 答案 &= " " & 個位(位數(7)) & " " & 千位(1)

  702.                     ElseIf 位數(6) <> "0" And 位數(7) = "0" Then : 答案 &= " " & 十位(位數(6)) & " " & 千位(1)

  703.                     ElseIf 位數(6) <> "0" And 位數(7) <> "0" Then : 答案 &= " " & 個位(位數(6) & 位數(7)) & " " & 千位(1) : End If

  704.                 Else

  705.                     If 位數(6) <> "0" And 位數(7) = "0" Then : 答案 &= " " & 十位(位數(6)) & " " & 千位(1)

  706.                     ElseIf 位數(6) <> "0" And 位數(7) <> "0" Then : 答案 &= " " & 十位(位數(6)) & " " & 個位(位數(7)) & " " & 千位(1) : End If

  707.                 End If

  708.                 '------------------百------------------------------------------------------------------------------------------------------

  709.                 If CInt(位數(8) & 位數(9) & 末位數) < 100 Then

  710.                 ElseIf CInt(位數(8) & 位數(9) & 末位數) < 200 Then : 答案 &= " " & 百位(0)

  711.                 ElseIf CInt(位數(8) & 位數(9) & 末位數) >= 200 Then : 答案 &= " " & 個位(位數(8)) & " " & 百位(1) : End If

  712.                 '------------------個十------------------------------------------------------------------------------------------------------

  713.                 If 位數(9) = "0" And 末位數 = "0" Then

  714.                 ElseIf 位數(9) = "0" And 末位數 <> "0" Then : 答案 &= " " & 個位(末位數)

  715.                 Else

  716.                     If CInt(位數(9) & 末位數) < 21 Then

  717.                         If 末位數 = "0" Then : 答案 &= " " & 十位(位數(9)) : Else : 答案 &= " " & 個位(位數(9) & 末位數) : End If

  718.                     Else

  719.                         If 位數(9) <> "0" And 末位數 = "0" Then : 答案 &= " " & 十位(位數(9))

  720.                         ElseIf 位數(9) <> "0" And 末位數 <> "0" Then : 答案 &= " " & 十位(位數(9)) & " " & 個位(末位數) : End If

  721.                     End If

  722.                 End If

  723.             ElseIf 數長 = 11 Then

  724.                 '------------------十十億(百億)------------------------------------------------------------------------------------------------------

  725.                 If CInt(位數(1) & 位數(2)) < 21 Then

  726.                     If 位數(2) = "0" Then : 答案 = 十位(位數(1)) & " " & 十億 : Else : 答案 = 個位(位數(1) & 位數(2)) & " " & 十億 : End If

  727.                 Else

  728.                     If 位數(1) <> "0" And 位數(2) = "0" Then : 答案 = 十位(位數(1)) & " " & 十億

  729.                     ElseIf 位數(1) <> "0" And 位數(2) <> "0" Then : 答案 = 十位(位數(1)) & " " & 個位(位數(2)) & " " & 十億 : End If

  730.                 End If

  731.                 '------------------百百萬(億)------------------------------------------------------------------------------------------------------

  732.                 If CInt(位數(3)) = 0 Then

  733.                 ElseIf CInt(位數(3)) = 1 Then : 答案 &= " " & 百位(0)

  734.                 ElseIf CInt(位數(3)) > 1 Then : 答案 &= " " & 個位(位數(3)) & " " & 百位(1) : End If

  735.                 '------------------十百萬(千萬)------------------------------------------------------------------------------------------------------

  736.                 If 位數(3) = "0" And 位數(4) = "0" And 位數(5) = "0" Then

  737.                 ElseIf 位數(4) = "0" And 位數(5) = "0" Then : 答案 &= " " & 百萬

  738.                 ElseIf 位數(4) = "0" And 位數(5) <> "0" Then : 答案 &= " " & 個位(位數(5)) & " " & 百萬

  739.                 ElseIf CInt(位數(4) & 位數(5)) < 21 Then

  740.                     If 位數(5) = "0" Then : 答案 &= " " & 十位(位數(4)) & " " & 百萬 : Else : 答案 &= " " & 個位(位數(4) & 位數(5)) & " " & 百萬 : End If

  741.                 ElseIf CInt(位數(4) & 位數(5)) >= 21 Then

  742.                     If 位數(4) <> "0" And 位數(5) = "0" Then : 答案 &= " " & 十位(位數(4)) & " " & 百萬

  743.                     ElseIf 位數(4) <> "0" And 位數(5) <> "0" Then : 答案 &= " " & 十位(位數(4)) & " " & 個位(位數(5)) & " " & 百萬 : End If

  744.                 End If

  745.                 '------------------百千(十萬)------------------------------------------------------------------------------------------------------

  746.                 If CInt(位數(6)) = 0 Then : ElseIf CInt(位數(6)) = 1 Then : 答案 &= " " & 百位(0)

  747.                 ElseIf CInt(位數(6)) > 1 Then : 答案 &= " " & 個位(位數(6)) & " " & 百位(1) : End If

  748.                 '------------------十千(萬)------------------------------------------------------------------------------------------------------

  749.                 If CInt(位數(7) & 位數(8)) < 21 Then

  750.                     If 位數(6) = "0" And 位數(7) = "0" And 位數(8) = "0" Then

  751.                     ElseIf 位數(7) = "0" And 位數(8) = "0" Then : 答案 &= " " & 千位(1)

  752.                     ElseIf 位數(7) = "0" And 位數(8) <> "0" Then : 答案 &= " " & 個位(位數(8)) & " " & 千位(1)

  753.                     ElseIf 位數(7) <> "0" And 位數(8) = "0" Then : 答案 &= " " & 十位(位數(7)) & " " & 千位(1)

  754.                     ElseIf 位數(7) <> "0" And 位數(8) <> "0" Then : 答案 &= " " & 個位(位數(7) & 位數(8)) & " " & 千位(1) : End If

  755.                 Else

  756.                     If 位數(7) <> "0" And 位數(8) = "0" Then : 答案 &= " " & 十位(位數(7)) & " " & 千位(1)

  757.                     ElseIf 位數(7) <> "0" And 位數(8) <> "0" Then : 答案 &= " " & 十位(位數(7)) & " " & 個位(位數(8)) & " " & 千位(1) : End If

  758.                 End If

  759.                 '------------------百------------------------------------------------------------------------------------------------------

  760.                 If CInt(位數(9) & 位數(10) & 末位數) < 100 Then

  761.                 ElseIf CInt(位數(9) & 位數(10) & 末位數) < 200 Then : 答案 &= " " & 百位(0)

  762.                 ElseIf CInt(位數(9) & 位數(10) & 末位數) >= 200 Then : 答案 &= " " & 個位(位數(9)) & " " & 百位(1) : End If

  763.                 '------------------個十------------------------------------------------------------------------------------------------------

  764.                 If 位數(10) = "0" And 末位數 = "0" Then

  765.                 ElseIf 位數(10) = "0" And 末位數 <> "0" Then : 答案 &= " " & 個位(末位數)

  766.                 Else

  767.                     If CInt(位數(10) & 末位數) < 21 Then

  768.                         If 末位數 = "0" Then : 答案 &= " " & 十位(位數(10)) : Else : 答案 &= " " & 個位(位數(10) & 末位數) : End If

  769.                     Else

  770.                         If 位數(10) <> "0" And 末位數 = "0" Then : 答案 &= " " & 十位(位數(10))

  771.                         ElseIf 位數(10) <> "0" And 末位數 <> "0" Then : 答案 &= " " & 十位(位數(10)) & " " & 個位(末位數) : End If

  772.                     End If

  773.                 End If

  774.             ElseIf 數長 = 12 Then

  775.                 '------------------百(千億)------------------------------------------------------------------------------------------------------

  776.                 If 位數(1) = "1" Then : 答案 = 百位(0) : ElseIf 位數(1) <> "1" Then : 答案 = 個位(位數(1)) & " " & 百位(1) : End If

  777.                 '------------------十十億(百億)------------------------------------------------------------------------------------------------------

  778.                 If 位數(2) = "0" And 位數(3) = "0" Then : 答案 &= " " & 十億

  779.                 ElseIf CInt(位數(2) & 位數(3)) < 21 Then

  780.                     If 位數(3) = "0" Then : 答案 &= " " & 十位(位數(2)) & " " & 十億 : Else : 答案 &= " " & 個位(位數(2) & 位數(3)) & " " & 十億 : End If

  781.                 Else

  782.                     If 位數(2) <> "0" And 位數(3) = "0" Then : 答案 &= " " & 十位(位數(2)) & " " & 十億

  783.                     ElseIf 位數(2) <> "0" And 位數(3) <> "0" Then : 答案 &= " " & 十位(位數(2)) & " " & 個位(位數(3)) & " " & 十億 : End If

  784.                 End If

  785.                 '------------------百百萬(億)------------------------------------------------------------------------------------------------------

  786.                 If CInt(位數(4)) = 0 Then

  787.                 ElseIf CInt(位數(4)) = 1 Then : 答案 &= " " & 百位(0)

  788.                 ElseIf CInt(位數(4)) > 1 Then : 答案 &= " " & 個位(位數(4)) & " " & 百位(1) : End If

  789.                 '------------------十百萬(千萬)------------------------------------------------------------------------------------------------------

  790.                 If 位數(4) = "0" And 位數(5) = "0" And 位數(6) = "0" Then

  791.                 ElseIf 位數(5) = "0" And 位數(6) = "0" Then : 答案 &= " " & 百萬

  792.                 ElseIf 位數(5) = "0" And 位數(6) <> "0" Then : 答案 &= " " & 個位(位數(6)) & " " & 百萬

  793.                 ElseIf CInt(位數(5) & 位數(6)) < 21 Then

  794.                     If 位數(6) = "0" Then : 答案 &= " " & 十位(位數(5)) & " " & 百萬 : Else : 答案 &= " " & 個位(位數(5) & 位數(6)) & " " & 百萬 : End If

  795.                 ElseIf CInt(位數(5) & 位數(6)) >= 21 Then

  796.                     If 位數(5) <> "0" And 位數(6) = "0" Then : 答案 &= " " & 十位(位數(5)) & " " & 百萬

  797.                     ElseIf 位數(5) <> "0" And 位數(6) <> "0" Then : 答案 &= " " & 十位(位數(5)) & " " & 個位(位數(6)) & " " & 百萬 : End If

  798.                 End If

  799.                 '------------------百千(十萬)------------------------------------------------------------------------------------------------------

  800.                 If CInt(位數(7)) = 0 Then : ElseIf CInt(位數(7)) = 1 Then : 答案 &= " " & 百位(0)

  801.                 ElseIf CInt(位數(7)) > 1 Then : 答案 &= " " & 個位(位數(7)) & " " & 百位(1) : End If

  802.                 '------------------十千(萬)------------------------------------------------------------------------------------------------------

  803.                 If CInt(位數(8) & 位數(9)) < 21 Then

  804.                     If 位數(7) = "0" And 位數(8) = "0" And 位數(9) = "0" Then

  805.                     ElseIf 位數(8) = "0" And 位數(9) = "0" Then : 答案 &= " " & 千位(1)

  806.                     ElseIf 位數(8) = "0" And 位數(9) <> "0" Then : 答案 &= " " & 個位(位數(9)) & " " & 千位(1)

  807.                     ElseIf 位數(8) <> "0" And 位數(9) = "0" Then : 答案 &= " " & 十位(位數(8)) & " " & 千位(1)

  808.                     ElseIf 位數(8) <> "0" And 位數(9) <> "0" Then : 答案 &= " " & 個位(位數(8) & 位數(9)) & " " & 千位(1) : End If

  809.                 Else

  810.                     If 位數(8) <> "0" And 位數(9) = "0" Then : 答案 &= " " & 十位(位數(8)) & " " & 千位(1)

  811.                     ElseIf 位數(8) <> "0" And 位數(9) <> "0" Then : 答案 &= " " & 十位(位數(8)) & " " & 個位(位數(9)) & " " & 千位(1) : End If

  812.                 End If

  813.                 '------------------百------------------------------------------------------------------------------------------------------

  814.                 If CInt(位數(10) & 位數(11) & 末位數) < 100 Then

  815.                 ElseIf CInt(位數(10) & 位數(11) & 末位數) < 200 Then : 答案 &= " " & 百位(0)

  816.                 ElseIf CInt(位數(10) & 位數(11) & 末位數) >= 200 Then : 答案 &= " " & 個位(位數(10)) & " " & 百位(1) : End If

  817.                 '------------------個十------------------------------------------------------------------------------------------------------

  818.                 If 位數(11) = "0" And 末位數 = "0" Then

  819.                 ElseIf 位數(11) = "0" And 末位數 <> "0" Then : 答案 &= " " & 個位(末位數)

  820.                 Else

  821.                     If CInt(位數(11) & 末位數) < 21 Then

  822.                         If 末位數 = "0" Then : 答案 &= " " & 十位(位數(11)) : Else : 答案 &= " " & 個位(位數(11) & 末位數) : End If

  823.                     Else

  824.                         If 位數(11) <> "0" And 末位數 = "0" Then : 答案 &= " " & 十位(位數(11))

  825.                         ElseIf 位數(11) <> "0" And 末位數 <> "0" Then : 答案 &= " " & 十位(位數(11)) & " " & 個位(末位數) : End If

  826.                     End If

  827.                 End If

  828.             ElseIf 數長 = 13 Then

  829.                 '------------------兆------------------------------------------------------------------------------------------------------

  830.                 答案 = 個位(位數(1)) & " " & 兆

  831.                 '------------------百(千億)------------------------------------------------------------------------------------------------------

  832.                 If 位數(2) = "0" Then

  833.                 ElseIf 位數(2) = "1" Then : 答案 &= " " & 百位(0)

  834.                 ElseIf 位數(2) <> "1" Then : 答案 &= " " & 個位(位數(2)) & " " & 百位(1) : End If

  835.                 '------------------十十億(百億)------------------------------------------------------------------------------------------------------

  836.                 If 位數(2) = "0" And 位數(3) = "0" And 位數(4) = "0" Then

  837.                 ElseIf 位數(3) = "0" And 位數(4) = "0" Then : 答案 &= " " & 十億

  838.                 ElseIf CInt(位數(3) & 位數(4)) < 21 Then

  839.                     If 位數(4) = "0" Then : 答案 &= " " & 十位(位數(3)) & " " & 十億 : Else : 答案 &= " " & 個位(位數(3) & 位數(4)) & " " & 十億 : End If

  840.                 Else

  841.                     If 位數(3) <> "0" And 位數(4) = "0" Then : 答案 &= " " & 十位(位數(3)) & " " & 十億

  842.                     ElseIf 位數(3) <> "0" And 位數(4) <> "0" Then : 答案 &= " " & 十位(位數(3)) & " " & 個位(位數(4)) & " " & 十億 : End If

  843.                 End If

  844.                 '------------------百百萬(億)------------------------------------------------------------------------------------------------------

  845.                 If CInt(位數(5)) = 0 Then

  846.                 ElseIf CInt(位數(5)) = 1 Then : 答案 &= " " & 百位(0)

  847.                 ElseIf CInt(位數(5)) > 1 Then : 答案 &= " " & 個位(位數(5)) & " " & 百位(1) : End If

  848.                 '------------------十百萬(千萬)------------------------------------------------------------------------------------------------------

  849.                 If 位數(5) = "0" And 位數(6) = "0" And 位數(7) = "0" Then

  850.                 ElseIf 位數(6) = "0" And 位數(7) = "0" Then : 答案 &= " " & 百萬

  851.                 ElseIf 位數(6) = "0" And 位數(7) <> "0" Then : 答案 &= " " & 個位(位數(7)) & " " & 百萬

  852.                 ElseIf CInt(位數(6) & 位數(7)) < 21 Then

  853.                     If 位數(7) = "0" Then : 答案 &= " " & 十位(位數(6)) & " " & 百萬 : Else : 答案 &= " " & 個位(位數(6) & 位數(7)) & " " & 百萬 : End If

  854.                 ElseIf CInt(位數(6) & 位數(7)) >= 21 Then

  855.                     If 位數(6) <> "0" And 位數(7) = "0" Then : 答案 &= " " & 十位(位數(6)) & " " & 百萬

  856.                     ElseIf 位數(6) <> "0" And 位數(7) <> "0" Then : 答案 &= " " & 十位(位數(6)) & " " & 個位(位數(7)) & " " & 百萬 : End If

  857.                 End If

  858.                 '------------------百千(十萬)------------------------------------------------------------------------------------------------------

  859.                 If CInt(位數(8)) = 0 Then : ElseIf CInt(位數(8)) = 1 Then : 答案 &= " " & 百位(0)

  860.                 ElseIf CInt(位數(8)) > 1 Then : 答案 &= " " & 個位(位數(8)) & " " & 百位(1) : End If

  861.                 '------------------十千(萬)------------------------------------------------------------------------------------------------------

  862.                 If CInt(位數(9) & 位數(10)) < 21 Then

  863.                     If 位數(8) = "0" And 位數(9) = "0" And 位數(10) = "0" Then

  864.                     ElseIf 位數(9) = "0" And 位數(10) = "0" Then : 答案 &= " " & 千位(1)

  865.                     ElseIf 位數(9) = "0" And 位數(10) <> "0" Then : 答案 &= " " & 個位(位數(10)) & " " & 千位(1)

  866.                     ElseIf 位數(9) <> "0" And 位數(10) = "0" Then : 答案 &= " " & 十位(位數(9)) & " " & 千位(1)

  867.                     ElseIf 位數(9) <> "0" And 位數(10) <> "0" Then : 答案 &= " " & 個位(位數(9) & 位數(10)) & " " & 千位(1) : End If

  868.                 Else

  869.                     If 位數(9) <> "0" And 位數(10) = "0" Then : 答案 &= " " & 十位(位數(9)) & " " & 千位(1)

  870.                     ElseIf 位數(9) <> "0" And 位數(10) <> "0" Then : 答案 &= " " & 十位(位數(9)) & " " & 個位(位數(10)) & " " & 千位(1) : End If

  871.                 End If

  872.                 '------------------百------------------------------------------------------------------------------------------------------

  873.                 If CInt(位數(11) & 位數(12) & 末位數) < 100 Then

  874.                 ElseIf CInt(位數(11) & 位數(12) & 末位數) < 200 Then : 答案 &= " " & 百位(0)

  875.                 ElseIf CInt(位數(11) & 位數(12) & 末位數) >= 200 Then : 答案 &= " " & 個位(位數(11)) & " " & 百位(1) : End If

  876.                 '------------------個十------------------------------------------------------------------------------------------------------

  877.                 If 位數(12) = "0" And 末位數 = "0" Then

  878.                 ElseIf 位數(12) = "0" And 末位數 <> "0" Then : 答案 &= " " & 個位(末位數)

  879.                 Else

  880.                     If CInt(位數(12) & 末位數) < 21 Then

  881.                         If 末位數 = "0" Then : 答案 &= " " & 十位(位數(12)) : Else : 答案 &= " " & 個位(位數(12) & 末位數) : End If

  882.                     Else

  883.                         If 位數(12) <> "0" And 末位數 = "0" Then : 答案 &= " " & 十位(位數(12))

  884.                         ElseIf 位數(12) <> "0" And 末位數 <> "0" Then : 答案 &= " " & 十位(位數(12)) & " " & 個位(末位數) : End If

  885.                     End If

  886.                 End If

  887.             ElseIf 數長 = 14 Then

  888.                 '------------------十兆------------------------------------------------------------------------------------------------------

  889.                 If CInt(位數(1) & 位數(2)) < 21 Then

  890.                     If 位數(2) = "0" Then : 答案 = 十位(位數(1)) & " " & 兆 : Else : 答案 = 個位(位數(1) & 位數(2)) & " " & 兆 : End If

  891.                 Else

  892.                     If 位數(1) <> "0" And 位數(2) = "0" Then : 答案 = 十位(位數(1)) & " " & 兆

  893.                     ElseIf 位數(1) <> "0" And 位數(2) <> "0" Then : 答案 = 十位(位數(1)) & " " & 個位(位數(2)) & " " & 兆 : End If

  894.                 End If

  895.                 '------------------百(千億)------------------------------------------------------------------------------------------------------

  896.                 If 位數(3) = "0" Then

  897.                 ElseIf 位數(3) = "1" Then : 答案 &= " " & 百位(0)

  898.                 ElseIf 位數(3) <> "1" Then : 答案 &= " " & 個位(位數(3)) & " " & 百位(1) : End If

  899.                 '------------------十十億(百億)------------------------------------------------------------------------------------------------------

  900.                 If 位數(3) = "0" And 位數(4) = "0" And 位數(5) = "0" Then

  901.                 ElseIf 位數(4) = "0" And 位數(5) = "0" Then : 答案 &= " " & 十億

  902.                 ElseIf CInt(位數(4) & 位數(5)) < 21 Then

  903.                     If 位數(5) = "0" Then : 答案 &= " " & 十位(位數(4)) & " " & 十億 : Else : 答案 &= " " & 個位(位數(4) & 位數(5)) & " " & 十億 : End If

  904.                 Else

  905.                     If 位數(4) <> "0" And 位數(5) = "0" Then : 答案 &= " " & 十位(位數(4)) & " " & 十億

  906.                     ElseIf 位數(4) <> "0" And 位數(5) <> "0" Then : 答案 &= " " & 十位(位數(4)) & " " & 個位(位數(5)) & " " & 十億 : End If

  907.                 End If

  908.                 '------------------百百萬(億)------------------------------------------------------------------------------------------------------

  909.                 If CInt(位數(6)) = 0 Then

  910.                 ElseIf CInt(位數(6)) = 1 Then : 答案 &= " " & 百位(0)

  911.                 ElseIf CInt(位數(6)) > 1 Then : 答案 &= " " & 個位(位數(6)) & " " & 百位(1) : End If

  912.                 '------------------十百萬(千萬)------------------------------------------------------------------------------------------------------

  913.                 If 位數(6) = "0" And 位數(7) = "0" And 位數(8) = "0" Then

  914.                 ElseIf 位數(7) = "0" And 位數(8) = "0" Then : 答案 &= " " & 百萬

  915.                 ElseIf 位數(7) = "0" And 位數(8) <> "0" Then : 答案 &= " " & 個位(位數(8)) & " " & 百萬

  916.                 ElseIf CInt(位數(7) & 位數(8)) < 21 Then

  917.                     If 位數(8) = "0" Then : 答案 &= " " & 十位(位數(7)) & " " & 百萬 : Else : 答案 &= " " & 個位(位數(7) & 位數(8)) & " " & 百萬 : End If

  918.                 ElseIf CInt(位數(7) & 位數(8)) >= 21 Then

  919.                     If 位數(7) <> "0" And 位數(8) = "0" Then : 答案 &= " " & 十位(位數(7)) & " " & 百萬

  920.                     ElseIf 位數(7) <> "0" And 位數(8) <> "0" Then : 答案 &= " " & 十位(位數(7)) & " " & 個位(位數(8)) & " " & 百萬 : End If

  921.                 End If

  922.                 '------------------百千(十萬)------------------------------------------------------------------------------------------------------

  923.                 If CInt(位數(9)) = 0 Then : ElseIf CInt(位數(9)) = 1 Then : 答案 &= " " & 百位(0)

  924.                 ElseIf CInt(位數(9)) > 1 Then : 答案 &= " " & 個位(位數(9)) & " " & 百位(1) : End If

  925.                 '------------------十千(萬)------------------------------------------------------------------------------------------------------

  926.                 If CInt(位數(10) & 位數(11)) < 21 Then

  927.                     If 位數(9) = "0" And 位數(10) = "0" And 位數(11) = "0" Then

  928.                     ElseIf 位數(10) = "0" And 位數(11) = "0" Then : 答案 &= " " & 千位(1)

  929.                     ElseIf 位數(10) = "0" And 位數(11) <> "0" Then : 答案 &= " " & 個位(位數(11)) & " " & 千位(1)

  930.                     ElseIf 位數(10) <> "0" And 位數(11) = "0" Then : 答案 &= " " & 十位(位數(10)) & " " & 千位(1)

  931.                     ElseIf 位數(10) <> "0" And 位數(11) <> "0" Then : 答案 &= " " & 個位(位數(10) & 位數(11)) & " " & 千位(1) : End If

  932.                 Else

  933.                     If 位數(10) <> "0" And 位數(11) = "0" Then : 答案 &= " " & 十位(位數(10)) & " " & 千位(1)

  934.                     ElseIf 位數(10) <> "0" And 位數(11) <> "0" Then : 答案 &= " " & 十位(位數(10)) & " " & 個位(位數(11)) & " " & 千位(1) : End If

  935.                 End If

  936.                 '------------------百------------------------------------------------------------------------------------------------------

  937.                 If CInt(位數(12) & 位數(13) & 末位數) < 100 Then

  938.                 ElseIf CInt(位數(12) & 位數(13) & 末位數) < 200 Then : 答案 &= " " & 百位(0)

  939.                 ElseIf CInt(位數(12) & 位數(13) & 末位數) >= 200 Then : 答案 &= " " & 個位(位數(12)) & " " & 百位(1) : End If

  940.                 '------------------個十------------------------------------------------------------------------------------------------------

  941.                 If 位數(13) = "0" And 末位數 = "0" Then

  942.                 ElseIf 位數(13) = "0" And 末位數 <> "0" Then : 答案 &= " " & 個位(末位數)

  943.                 Else

  944.                     If CInt(位數(13) & 末位數) < 21 Then

  945.                         If 末位數 = "0" Then : 答案 &= " " & 十位(位數(13)) : Else : 答案 &= " " & 個位(位數(13) & 末位數) : End If

  946.                     Else

  947.                         If 位數(13) <> "0" And 末位數 = "0" Then : 答案 &= " " & 十位(位數(13))

  948.                         ElseIf 位數(13) <> "0" And 末位數 <> "0" Then : 答案 &= " " & 十位(位數(13)) & " " & 個位(末位數)

  949.                         End If

  950.                     End If

  951.                 End If

  952.             End If

  953.         Else

  954.             If 數長 = 1 Then : 答案 = 個位(申請金額_nud.Value)

  955.             ElseIf 數長 = 2 Then

  956.                 If 末位數 = "0" Then : 答案 = 個位(位數(1)) & 拾 : Else : 答案 = 個位(位數(1)) & 拾 & 個位(末位數) : End If

  957.             ElseIf 數長 = 3 Then : 答案 = 個位(位數(1)) & 百

  958.                 If 位數(2) = "0" And 末位數 = "0" Then

  959.                 ElseIf 位數(2) = "0" And 末位數 <> "0" Then : 答案 &= 零 & 個位(末位數)

  960.                 ElseIf 位數(2) <> "0" And 末位數 = "0" Then : 答案 &= 個位(位數(2)) & 拾

  961.                 ElseIf 位數(2) <> "0" And 末位數 <> "0" Then : 答案 &= 個位(位數(2)) & 拾 & 個位(末位數)

  962.                 End If

  963.             ElseIf 數長 = 4 Then : 答案 = 個位(位數(1)) & 仟

  964.                 If 位數(2) = "0" And 位數(3) = "0" And 末位數 = "0" Then

  965.                 ElseIf 位數(2) = "0" And 位數(3) = "0" And 末位數 <> "0" Then : 答案 &= 零 & 個位(末位數)

  966.                 ElseIf 位數(2) = "0" And 位數(3) <> "0" And 末位數 <> "0" Then : 答案 &= 零 & 個位(位數(3)) & 拾 & 個位(末位數)

  967.                 ElseIf 位數(2) = "0" And 位數(3) <> "0" And 末位數 = "0" Then : 答案 &= 零 & 個位(位數(3)) & 拾

  968.                 ElseIf 位數(2) <> "0" And 位數(3) = "0" And 末位數 = "0" Then : 答案 &= 個位(位數(2)) & 百

  969.                 ElseIf 位數(2) <> "0" And 位數(3) = "0" And 末位數 <> "0" Then : 答案 &= 個位(位數(2)) & 百 & 零 & 個位(末位數)

  970.                 ElseIf 位數(2) <> "0" And 位數(3) <> "0" And 末位數 = "0" Then : 答案 &= 個位(位數(2)) & 百 & 個位(位數(3)) & 拾

  971.                 ElseIf 位數(2) <> "0" And 末位數 <> "0" And 末位數 <> "0" Then : 答案 &= 個位(位數(2)) & 百 & 個位(位數(3)) & 拾 & 個位(末位數)

  972.                 End If

  973.             ElseIf 數長 = 5 Then : 答案 = 個位(位數(1)) & 萬

  974.                 If 位數(2) = "0" And 位數(3) = "0" And 位數(4) = "0" And 末位數 = "0" Then

  975.                 ElseIf 位數(2) = "0" And 位數(3) = "0" And 位數(4) = "0" And 末位數 <> "0" Then : 答案 &= 零 & 個位(末位數)

  976.                 ElseIf 位數(2) = "0" And 位數(3) = "0" And 位數(4) <> "0" And 末位數 = "0" Then : 答案 &= 零 & 個位(位數(4)) & 拾

  977.                 ElseIf 位數(2) = "0" And 位數(3) = "0" And 位數(4) <> "0" And 末位數 <> "0" Then : 答案 &= 零 & 個位(位數(4)) & 拾 & 個位(末位數)

  978.                 ElseIf 位數(2) = "0" And 位數(3) <> "0" And 位數(4) = "0" And 末位數 = "0" Then : 答案 &= 零 & 個位(位數(3)) & 百

  979.                 ElseIf 位數(2) = "0" And 位數(3) <> "0" And 位數(4) = "0" And 末位數 <> "0" Then : 答案 &= 零 & 個位(位數(3)) & 百 & 零 & 個位(末位數)

  980.                 ElseIf 位數(2) = "0" And 位數(3) <> "0" And 位數(4) <> "0" And 末位數 = "0" Then : 答案 &= 零 & 個位(位數(3)) & 百 & 個位(位數(4)) & 拾

  981.                 ElseIf 位數(2) = "0" And 位數(3) <> "0" And 位數(4) <> "0" And 末位數 <> "0" Then : 答案 &= 零 & 個位(位數(3)) & 百 & 個位(位數(4)) & 拾 & 個位(末位數)

  982.                 ElseIf 位數(2) <> "0" And 位數(3) = "0" And 位數(4) = "0" And 末位數 = "0" Then : 答案 &= 個位(位數(2)) & 仟

  983.                 ElseIf 位數(2) <> "0" And 位數(3) = "0" And 位數(4) = "0" And 末位數 <> "0" Then : 答案 &= 個位(位數(2)) & 仟 & 零 & 個位(末位數)

  984.                 ElseIf 位數(2) <> "0" And 位數(3) = "0" And 位數(4) <> "0" And 末位數 = "0" Then : 答案 &= 個位(位數(2)) & 仟 & 零 & 個位(位數(4)) & 拾

  985.                 ElseIf 位數(2) <> "0" And 位數(3) = "0" And 位數(4) <> "0" And 末位數 <> "0" Then : 答案 &= 個位(位數(2)) & 仟 & 零 & 個位(位數(4)) & 拾 & 個位(末位數)

  986.                 ElseIf 位數(2) <> "0" And 位數(3) <> "0" And 位數(4) = "0" And 末位數 = "0" Then : 答案 &= 個位(位數(2)) & 仟 & 個位(位數(3)) & 百

  987.                 ElseIf 位數(2) <> "0" And 位數(3) <> "0" And 位數(4) = "0" And 末位數 <> "0" Then : 答案 &= 個位(位數(2)) & 仟 & 個位(位數(3)) & 百 & 零 & 個位(末位數)

  988.                 ElseIf 位數(2) <> "0" And 位數(3) <> "0" And 位數(4) <> "0" And 末位數 = "0" Then : 答案 &= 個位(位數(2)) & 仟 & 個位(位數(3)) & 百 & 個位(位數(4)) & 拾

  989.                 ElseIf 位數(2) <> "0" And 位數(3) <> "0" And 位數(4) <> "0" And 末位數 <> "0" Then : 答案 &= 個位(位數(2)) & 仟 & 個位(位數(3)) & 百 & 個位(位數(4)) & 拾 & 個位(末位數)

  990.                 End If

  991.             ElseIf 數長 = 6 Then

  992.                 If 位數(2) = "0" Then : 答案 = 個位(位數(1)) & 拾 & 萬 : Else : 答案 = 個位(位數(1)) & 拾 & 個位(位數(2)) & 萬 : End If

  993.                 If 位數(3) = "0" And 位數(4) = "0" And 位數(5) = "0" And 末位數 = "0" Then

  994.                 ElseIf 位數(3) = "0" And 位數(4) = "0" And 位數(5) = "0" And 末位數 <> "0" Then : 答案 &= 零 & 個位(末位數)

  995.                 ElseIf 位數(3) = "0" And 位數(4) = "0" And 位數(5) <> "0" And 末位數 = "0" Then : 答案 &= 零 & 個位(位數(5)) & 拾

  996.                 ElseIf 位數(3) = "0" And 位數(4) = "0" And 位數(5) <> "0" And 末位數 <> "0" Then : 答案 &= 零 & 個位(位數(5)) & 拾 & 個位(末位數)

  997.                 ElseIf 位數(3) = "0" And 位數(4) <> "0" And 位數(5) = "0" And 末位數 = "0" Then : 答案 &= 零 & 個位(位數(4)) & 百

  998.                 ElseIf 位數(3) = "0" And 位數(4) <> "0" And 位數(5) = "0" And 末位數 <> "0" Then : 答案 &= 零 & 個位(位數(4)) & 百 & 零 & 個位(末位數)

  999.                 ElseIf 位數(3) = "0" And 位數(4) <> "0" And 位數(5) <> "0" And 末位數 = "0" Then : 答案 &= 零 & 個位(位數(4)) & 百 & 個位(位數(5)) & 拾

  1000.                 ElseIf 位數(3) = "0" And 位數(4) <> "0" And 位數(5) <> "0" And 末位數 <> "0" Then : 答案 &= 零 & 個位(位數(4)) & 百 & 個位(位數(5)) & 拾 & 個位(末位數)

  1001.                 ElseIf 位數(3) <> "0" And 位數(4) = "0" And 位數(5) = "0" And 末位數 = "0" Then : 答案 &= 個位(位數(3)) & 仟

  1002.                 ElseIf 位數(3) <> "0" And 位數(4) = "0" And 位數(5) = "0" And 末位數 <> "0" Then : 答案 &= 個位(位數(3)) & 仟 & 零 & 個位(末位數)

  1003.                 ElseIf 位數(3) <> "0" And 位數(4) = "0" And 位數(5) <> "0" And 末位數 = "0" Then : 答案 &= 個位(位數(3)) & 仟 & 零 & 個位(位數(5)) & 拾

  1004.                 ElseIf 位數(3) <> "0" And 位數(4) = "0" And 位數(5) <> "0" And 末位數 <> "0" Then : 答案 &= 個位(位數(3)) & 仟 & 零 & 個位(位數(5)) & 拾 & 個位(末位數)

  1005.                 ElseIf 位數(3) <> "0" And 位數(4) <> "0" And 位數(5) = "0" And 末位數 = "0" Then : 答案 &= 個位(位數(3)) & 仟 & 個位(位數(4)) & 百

  1006.                 ElseIf 位數(3) <> "0" And 位數(4) <> "0" And 位數(5) = "0" And 末位數 <> "0" Then : 答案 &= 個位(位數(3)) & 仟 & 個位(位數(4)) & 百 & 零 & 個位(末位數)

  1007.                 ElseIf 位數(3) <> "0" And 位數(4) <> "0" And 位數(5) <> "0" And 末位數 = "0" Then : 答案 &= 個位(位數(3)) & 仟 & 個位(位數(4)) & 百 & 個位(位數(5)) & 拾

  1008.                 ElseIf 位數(3) <> "0" And 位數(4) <> "0" And 位數(5) <> "0" And 末位數 <> "0" Then : 答案 &= 個位(位數(3)) & 仟 & 個位(位數(4)) & 百 & 個位(位數(5)) & 拾 & 個位(末位數)

  1009.                 End If

  1010.             ElseIf 數長 = 7 Then : 答案 = 個位(位數(1)) & 百

  1011.                 If 位數(2) = "0" And 位數(3) = "0" Then : 答案 &= 萬

  1012.                 ElseIf 位數(2) = "0" And 位數(3) <> "0" Then : 答案 &= 零 & 個位(位數(3)) & 萬

  1013.                 ElseIf 位數(2) <> "0" And 位數(3) = "0" Then : 答案 &= 個位(位數(2)) & 拾 & 萬

  1014.                 ElseIf 位數(2) <> "0" And 位數(3) <> "0" Then : 答案 &= 個位(位數(2)) & 拾 & 個位(位數(3)) & 萬

  1015.                 End If

  1016.                 If 位數(4) = "0" And 位數(5) = "0" And 位數(6) = "0" And 末位數 = "0" Then

  1017.                 ElseIf 位數(4) = "0" And 位數(5) = "0" And 位數(6) = "0" And 末位數 <> "0" Then : 答案 &= 零 & 個位(末位數)

  1018.                 ElseIf 位數(4) = "0" And 位數(5) = "0" And 位數(6) <> "0" And 末位數 = "0" Then : 答案 &= 零 & 個位(位數(6)) & 拾

  1019.                 ElseIf 位數(4) = "0" And 位數(5) = "0" And 位數(6) <> "0" And 末位數 <> "0" Then : 答案 &= 零 & 個位(位數(6)) & 拾 & 個位(末位數)

  1020.                 ElseIf 位數(4) = "0" And 位數(5) <> "0" And 位數(6) = "0" And 末位數 = "0" Then : 答案 &= 零 & 個位(位數(5)) & 百

  1021.                 ElseIf 位數(4) = "0" And 位數(5) <> "0" And 位數(6) = "0" And 末位數 <> "0" Then : 答案 &= 零 & 個位(位數(5)) & 百 & 零 & 個位(末位數)

  1022.                 ElseIf 位數(4) = "0" And 位數(5) <> "0" And 位數(6) <> "0" And 末位數 = "0" Then : 答案 &= 零 & 個位(位數(5)) & 百 & 個位(位數(6)) & 拾

  1023.                 ElseIf 位數(4) = "0" And 位數(5) <> "0" And 位數(6) <> "0" And 末位數 <> "0" Then : 答案 &= 零 & 個位(位數(5)) & 百 & 個位(位數(6)) & 拾 & 個位(末位數)

  1024.                 ElseIf 位數(4) <> "0" And 位數(5) = "0" And 位數(6) = "0" And 末位數 = "0" Then : 答案 &= 個位(位數(4)) & 仟

  1025.                 ElseIf 位數(4) <> "0" And 位數(5) = "0" And 位數(6) = "0" And 末位數 <> "0" Then : 答案 &= 個位(位數(4)) & 仟 & 零 & 個位(末位數)

  1026.                 ElseIf 位數(4) <> "0" And 位數(5) = "0" And 位數(6) <> "0" And 末位數 = "0" Then : 答案 &= 個位(位數(4)) & 仟 & 零 & 個位(位數(6)) & 拾

  1027.                 ElseIf 位數(4) <> "0" And 位數(5) = "0" And 位數(6) <> "0" And 末位數 <> "0" Then : 答案 &= 個位(位數(4)) & 仟 & 零 & 個位(位數(6)) & 拾 & 個位(末位數)

  1028.                 ElseIf 位數(4) <> "0" And 位數(5) <> "0" And 位數(6) = "0" And 末位數 = "0" Then : 答案 &= 個位(位數(4)) & 仟 & 個位(位數(5)) & 百

  1029.                 ElseIf 位數(4) <> "0" And 位數(5) <> "0" And 位數(6) = "0" And 末位數 <> "0" Then : 答案 &= 個位(位數(4)) & 仟 & 個位(位數(5)) & 百 & 零 & 個位(末位數)

  1030.                 ElseIf 位數(4) <> "0" And 位數(5) <> "0" And 位數(6) <> "0" And 末位數 = "0" Then : 答案 &= 個位(位數(4)) & 仟 & 個位(位數(5)) & 百 & 個位(位數(6)) & 拾

  1031.                 ElseIf 位數(4) <> "0" And 位數(5) <> "0" And 位數(6) <> "0" And 末位數 <> "0" Then : 答案 &= 個位(位數(4)) & 仟 & 個位(位數(5)) & 百 & 個位(位數(6)) & 拾 & 個位(末位數)

  1032.                 End If

  1033.             ElseIf 數長 = 8 Then : 答案 = 個位(位數(1)) & 仟

  1034.                 If 位數(2) = "0" And 位數(3) = "0" And 位數(4) = "0" Then : 答案 &= 萬

  1035.                 ElseIf 位數(2) = "0" And 位數(3) = "0" And 位數(4) <> "0" Then : 答案 &= 零 & 個位(位數(4)) & 萬

  1036.                 ElseIf 位數(2) = "0" And 位數(3) <> "0" And 位數(4) <> "0" Then : 答案 &= 零 & 個位(位數(3)) & 拾 & 個位(位數(4)) & 萬

  1037.                 ElseIf 位數(2) = "0" And 位數(3) <> "0" And 位數(4) = "0" Then : 答案 &= 零 & 個位(位數(3)) & 拾 & 萬

  1038.                 ElseIf 位數(2) <> "0" And 位數(3) = "0" And 位數(4) = "0" Then : 答案 &= 個位(位數(2)) & 百 & 萬

  1039.                 ElseIf 位數(2) <> "0" And 位數(3) = "0" And 位數(4) <> "0" Then : 答案 &= 個位(位數(2)) & 百 & 零 & 個位(位數(4)) & 萬

  1040.                 ElseIf 位數(2) <> "0" And 位數(3) <> "0" And 位數(4) = "0" Then : 答案 &= 個位(位數(2)) & 百 & 個位(位數(3)) & 拾 & 萬

  1041.                 ElseIf 位數(2) <> "0" And 位數(4) <> "0" And 位數(4) <> "0" Then : 答案 &= 個位(位數(2)) & 百 & 個位(位數(3)) & 拾 & 個位(位數(4)) & 萬

  1042.                 End If

  1043.                 If 位數(5) = "0" And 位數(6) = "0" And 位數(7) = "0" And 末位數 = "0" Then

  1044.                 ElseIf 位數(5) = "0" And 位數(6) = "0" And 位數(7) = "0" And 末位數 <> "0" Then : 答案 &= 零 & 個位(末位數)

  1045.                 ElseIf 位數(5) = "0" And 位數(6) = "0" And 位數(7) <> "0" And 末位數 = "0" Then : 答案 &= 零 & 個位(位數(7)) & 拾

  1046.                 ElseIf 位數(5) = "0" And 位數(6) = "0" And 位數(7) <> "0" And 末位數 <> "0" Then : 答案 &= 零 & 個位(位數(7)) & 拾 & 個位(末位數)

  1047.                 ElseIf 位數(5) = "0" And 位數(6) <> "0" And 位數(7) = "0" And 末位數 = "0" Then : 答案 &= 零 & 個位(位數(6)) & 百

  1048.                 ElseIf 位數(5) = "0" And 位數(6) <> "0" And 位數(7) = "0" And 末位數 <> "0" Then : 答案 &= 零 & 個位(位數(6)) & 百 & 零 & 個位(末位數)

  1049.                 ElseIf 位數(5) = "0" And 位數(6) <> "0" And 位數(7) <> "0" And 末位數 = "0" Then : 答案 &= 零 & 個位(位數(6)) & 百 & 個位(位數(7)) & 拾

  1050.                 ElseIf 位數(5) = "0" And 位數(6) <> "0" And 位數(7) <> "0" And 末位數 <> "0" Then : 答案 &= 零 & 個位(位數(6)) & 百 & 個位(位數(7)) & 拾 & 個位(末位數)

  1051.                 ElseIf 位數(5) <> "0" And 位數(6) = "0" And 位數(7) = "0" And 末位數 = "0" Then : 答案 &= 個位(位數(5)) & 仟

  1052.                 ElseIf 位數(5) <> "0" And 位數(6) = "0" And 位數(7) = "0" And 末位數 <> "0" Then : 答案 &= 個位(位數(5)) & 仟 & 零 & 個位(末位數)

  1053.                 ElseIf 位數(5) <> "0" And 位數(6) = "0" And 位數(7) <> "0" And 末位數 = "0" Then : 答案 &= 個位(位數(5)) & 仟 & 零 & 個位(位數(7)) & 拾

  1054.                 ElseIf 位數(5) <> "0" And 位數(6) = "0" And 位數(7) <> "0" And 末位數 <> "0" Then : 答案 &= 個位(位數(5)) & 仟 & 零 & 個位(位數(7)) & 拾 & 個位(末位數)

  1055.                 ElseIf 位數(5) <> "0" And 位數(6) <> "0" And 位數(7) = "0" And 末位數 = "0" Then : 答案 &= 個位(位數(5)) & 仟 & 個位(位數(6)) & 百

  1056.                 ElseIf 位數(5) <> "0" And 位數(6) <> "0" And 位數(7) = "0" And 末位數 <> "0" Then : 答案 &= 個位(位數(5)) & 仟 & 個位(位數(6)) & 百 & 零 & 個位(末位數)

  1057.                 ElseIf 位數(5) <> "0" And 位數(6) <> "0" And 位數(7) <> "0" And 末位數 = "0" Then : 答案 &= 個位(位數(5)) & 仟 & 個位(位數(6)) & 百 & 個位(位數(7)) & 拾

  1058.                 ElseIf 位數(5) <> "0" And 位數(6) <> "0" And 位數(7) <> "0" And 末位數 <> "0" Then : 答案 &= 個位(位數(5)) & 仟 & 個位(位數(6)) & 百 & 個位(位數(7)) & 拾 & 個位(末位數)

  1059.                 End If

  1060.             ElseIf 數長 = 9 Then : 答案 = 個位(位數(1)) & 億

  1061.                 If 位數(2) = "0" And 位數(3) = "0" And 位數(4) = "0" And 位數(5) = "0" Then

  1062.                 ElseIf 位數(2) = "0" And 位數(3) = "0" And 位數(4) = "0" And 位數(5) <> "0" Then : 答案 &= 零 & 個位(位數(5)) & 萬

  1063.                 ElseIf 位數(2) = "0" And 位數(3) = "0" And 位數(4) <> "0" And 位數(5) = "0" Then : 答案 &= 零 & 個位(位數(4)) & 拾 & 萬

  1064.                 ElseIf 位數(2) = "0" And 位數(3) = "0" And 位數(4) <> "0" And 位數(5) <> "0" Then : 答案 &= 零 & 個位(位數(4)) & 拾 & 個位(位數(5)) & 萬

  1065.                 ElseIf 位數(2) = "0" And 位數(3) <> "0" And 位數(4) = "0" And 位數(5) = "0" Then : 答案 &= 零 & 個位(位數(3)) & 百 & 萬

  1066.                 ElseIf 位數(2) = "0" And 位數(3) <> "0" And 位數(4) = "0" And 位數(5) <> "0" Then : 答案 &= 零 & 個位(位數(3)) & 百 & 零 & 個位(位數(5)) & 萬

  1067.                 ElseIf 位數(2) = "0" And 位數(3) <> "0" And 位數(4) <> "0" And 位數(5) = "0" Then : 答案 &= 零 & 個位(位數(3)) & 百 & 個位(位數(4)) & 拾 & 萬

  1068.                 ElseIf 位數(2) = "0" And 位數(3) <> "0" And 位數(4) <> "0" And 位數(5) <> "0" Then : 答案 &= 零 & 個位(位數(3)) & 百 & 個位(位數(4)) & 拾 & 個位(位數(5)) & 萬

  1069.                 ElseIf 位數(2) <> "0" And 位數(3) = "0" And 位數(4) = "0" And 位數(5) = "0" Then : 答案 &= 個位(位數(2)) & 仟 & 萬

  1070.                 ElseIf 位數(2) <> "0" And 位數(3) = "0" And 位數(4) = "0" And 位數(5) <> "0" Then : 答案 &= 個位(位數(2)) & 仟 & 零 & 個位(位數(5)) & 萬

  1071.                 ElseIf 位數(2) <> "0" And 位數(3) = "0" And 位數(4) <> "0" And 位數(5) = "0" Then : 答案 &= 個位(位數(2)) & 仟 & 零 & 個位(位數(4)) & 拾 & 萬

  1072.                 ElseIf 位數(2) <> "0" And 位數(3) = "0" And 位數(4) <> "0" And 位數(5) <> "0" Then : 答案 &= 個位(位數(2)) & 仟 & 零 & 個位(位數(4)) & 拾 & 個位(位數(5)) & 萬

  1073.                 ElseIf 位數(2) <> "0" And 位數(3) <> "0" And 位數(4) = "0" And 位數(5) = "0" Then : 答案 &= 個位(位數(2)) & 仟 & 個位(位數(3)) & 百 & 萬

  1074.                 ElseIf 位數(2) <> "0" And 位數(3) <> "0" And 位數(4) = "0" And 位數(5) <> "0" Then : 答案 &= 個位(位數(2)) & 仟 & 個位(位數(3)) & 百 & 零 & 個位(位數(5)) & 萬

  1075.                 ElseIf 位數(2) <> "0" And 位數(3) <> "0" And 位數(4) <> "0" And 位數(5) = "0" Then : 答案 &= 個位(位數(2)) & 仟 & 個位(位數(3)) & 百 & 個位(位數(4)) & 拾 & 萬

  1076.                 ElseIf 位數(2) <> "0" And 位數(3) <> "0" And 位數(4) <> "0" And 位數(5) <> "0" Then : 答案 &= 個位(位數(2)) & 仟 & 個位(位數(3)) & 百 & 個位(位數(4)) & 拾 & 個位(位數(5)) & 萬

  1077.                 End If

  1078.                 If 位數(6) = "0" And 位數(7) = "0" And 位數(8) = "0" And 末位數 = "0" Then

  1079.                 ElseIf 位數(6) = "0" And 位數(7) = "0" And 位數(8) = "0" And 末位數 <> "0" Then : 答案 &= 零 & 個位(末位數)

  1080.                 ElseIf 位數(6) = "0" And 位數(7) = "0" And 位數(8) <> "0" And 末位數 = "0" Then : 答案 &= 零 & 個位(位數(8)) & 拾

  1081.                 ElseIf 位數(6) = "0" And 位數(7) = "0" And 位數(8) <> "0" And 末位數 <> "0" Then : 答案 &= 零 & 個位(位數(8)) & 拾 & 個位(末位數)

  1082.                 ElseIf 位數(6) = "0" And 位數(7) <> "0" And 位數(8) = "0" And 末位數 = "0" Then : 答案 &= 零 & 個位(位數(7)) & 百

  1083.                 ElseIf 位數(6) = "0" And 位數(7) <> "0" And 位數(8) = "0" And 末位數 <> "0" Then : 答案 &= 零 & 個位(位數(7)) & 百 & 零 & 個位(末位數)

  1084.                 ElseIf 位數(6) = "0" And 位數(7) <> "0" And 位數(8) <> "0" And 末位數 = "0" Then : 答案 &= 零 & 個位(位數(7)) & 百 & 個位(位數(8)) & 拾

  1085.                 ElseIf 位數(6) = "0" And 位數(7) <> "0" And 位數(8) <> "0" And 末位數 <> "0" Then : 答案 &= 零 & 個位(位數(7)) & 百 & 個位(位數(8)) & 拾 & 個位(末位數)

  1086.                 ElseIf 位數(6) <> "0" And 位數(7) = "0" And 位數(8) = "0" And 末位數 = "0" Then : 答案 &= 個位(位數(6)) & 仟

  1087.                 ElseIf 位數(6) <> "0" And 位數(7) = "0" And 位數(8) = "0" And 末位數 <> "0" Then : 答案 &= 個位(位數(6)) & 仟 & 零 & 個位(末位數)

  1088.                 ElseIf 位數(6) <> "0" And 位數(7) = "0" And 位數(8) <> "0" And 末位數 = "0" Then : 答案 &= 個位(位數(6)) & 仟 & 零 & 個位(位數(8)) & 拾

  1089.                 ElseIf 位數(6) <> "0" And 位數(7) = "0" And 位數(8) <> "0" And 末位數 <> "0" Then : 答案 &= 個位(位數(6)) & 仟 & 零 & 個位(位數(8)) & 拾 & 個位(末位數)

  1090.                 ElseIf 位數(6) <> "0" And 位數(7) <> "0" And 位數(8) = "0" And 末位數 = "0" Then : 答案 &= 個位(位數(6)) & 仟 & 個位(位數(7)) & 百

  1091.                 ElseIf 位數(6) <> "0" And 位數(7) <> "0" And 位數(8) = "0" And 末位數 <> "0" Then : 答案 &= 個位(位數(6)) & 仟 & 個位(位數(7)) & 百 & 零 & 個位(末位數)

  1092.                 ElseIf 位數(6) <> "0" And 位數(7) <> "0" And 位數(8) <> "0" And 末位數 = "0" Then : 答案 &= 個位(位數(6)) & 仟 & 個位(位數(7)) & 百 & 個位(位數(8)) & 拾

  1093.                 ElseIf 位數(6) <> "0" And 位數(7) <> "0" And 位數(8) <> "0" And 末位數 <> "0" Then : 答案 &= 個位(位數(6)) & 仟 & 個位(位數(7)) & 百 & 個位(位數(8)) & 拾 & 個位(末位數)

  1094.                 End If

  1095.             ElseIf 數長 = 10 Then

  1096.                 If 位數(2) = "0" Then : 答案 = 個位(位數(1)) & 拾 & 億 : Else : 答案 = 個位(位數(1)) & 拾 & 個位(位數(2)) & 億 : End If

  1097.                 If 位數(3) = "0" And 位數(4) = "0" And 位數(5) = "0" And 位數(6) = "0" Then

  1098.                 ElseIf 位數(3) = "0" And 位數(4) = "0" And 位數(5) = "0" And 位數(6) <> "0" Then : 答案 &= 零 & 個位(位數(6)) & 萬

  1099.                 ElseIf 位數(3) = "0" And 位數(4) = "0" And 位數(5) <> "0" And 位數(6) = "0" Then : 答案 &= 零 & 個位(位數(5)) & 拾 & 萬

  1100.                 ElseIf 位數(3) = "0" And 位數(4) = "0" And 位數(5) <> "0" And 位數(6) <> "0" Then : 答案 &= 零 & 個位(位數(5)) & 拾 & 個位(位數(6)) & 萬

  1101.                 ElseIf 位數(3) = "0" And 位數(4) <> "0" And 位數(5) = "0" And 位數(6) = "0" Then : 答案 &= 零 & 個位(位數(4)) & 百 & 萬

  1102.                 ElseIf 位數(3) = "0" And 位數(4) <> "0" And 位數(5) = "0" And 位數(6) <> "0" Then : 答案 &= 零 & 個位(位數(4)) & 百 & 零 & 個位(位數(6)) & 萬

  1103.                 ElseIf 位數(3) = "0" And 位數(4) <> "0" And 位數(5) <> "0" And 位數(6) = "0" Then : 答案 &= 零 & 個位(位數(4)) & 百 & 個位(位數(5)) & 拾 & 萬

  1104.                 ElseIf 位數(3) = "0" And 位數(4) <> "0" And 位數(5) <> "0" And 位數(6) <> "0" Then : 答案 &= 零 & 個位(位數(4)) & 百 & 個位(位數(5)) & 拾 & 個位(位數(6)) & 萬

  1105.                 ElseIf 位數(3) <> "0" And 位數(4) = "0" And 位數(5) = "0" And 位數(6) = "0" Then : 答案 &= 個位(位數(3)) & 仟 & 萬

  1106.                 ElseIf 位數(3) <> "0" And 位數(4) = "0" And 位數(5) = "0" And 位數(6) <> "0" Then : 答案 &= 個位(位數(3)) & 仟 & 零 & 個位(位數(6)) & 萬

  1107.                 ElseIf 位數(3) <> "0" And 位數(4) = "0" And 位數(5) <> "0" And 位數(6) = "0" Then : 答案 &= 個位(位數(3)) & 仟 & 零 & 個位(位數(5)) & 拾 & 萬

  1108.                 ElseIf 位數(3) <> "0" And 位數(4) = "0" And 位數(5) <> "0" And 位數(6) <> "0" Then : 答案 &= 個位(位數(3)) & 仟 & 零 & 個位(位數(5)) & 拾 & 個位(位數(6)) & 萬

  1109.                 ElseIf 位數(3) <> "0" And 位數(4) <> "0" And 位數(5) = "0" And 位數(6) = "0" Then : 答案 &= 個位(位數(3)) & 仟 & 個位(位數(4)) & 百 & 萬

  1110.                 ElseIf 位數(3) <> "0" And 位數(4) <> "0" And 位數(5) = "0" And 位數(6) <> "0" Then : 答案 &= 個位(位數(3)) & 仟 & 個位(位數(4)) & 百 & 零 & 個位(位數(6)) & 萬

  1111.                 ElseIf 位數(3) <> "0" And 位數(4) <> "0" And 位數(5) <> "0" And 位數(6) = "0" Then : 答案 &= 個位(位數(3)) & 仟 & 個位(位數(4)) & 百 & 個位(位數(5)) & 拾 & 萬

  1112.                 ElseIf 位數(3) <> "0" And 位數(4) <> "0" And 位數(5) <> "0" And 位數(6) <> "0" Then : 答案 &= 個位(位數(3)) & 仟 & 個位(位數(4)) & 百 & 個位(位數(5)) & 拾 & 個位(位數(6)) & 萬

  1113.                 End If

  1114.                 If 位數(7) = "0" And 位數(8) = "0" And 位數(9) = "0" And 末位數 = "0" Then

  1115.                 ElseIf 位數(7) = "0" And 位數(8) = "0" And 位數(9) = "0" And 末位數 <> "0" Then : 答案 &= 零 & 個位(末位數)

  1116.                 ElseIf 位數(7) = "0" And 位數(8) = "0" And 位數(9) <> "0" And 末位數 = "0" Then : 答案 &= 零 & 個位(位數(9)) & 拾

  1117.                 ElseIf 位數(7) = "0" And 位數(8) = "0" And 位數(9) <> "0" And 末位數 <> "0" Then : 答案 &= 零 & 個位(位數(9)) & 拾 & 個位(末位數)

  1118.                 ElseIf 位數(7) = "0" And 位數(8) <> "0" And 位數(9) = "0" And 末位數 = "0" Then : 答案 &= 零 & 個位(位數(8)) & 百

  1119.                 ElseIf 位數(7) = "0" And 位數(8) <> "0" And 位數(9) = "0" And 末位數 <> "0" Then : 答案 &= 零 & 個位(位數(8)) & 百 & 零 & 個位(末位數)

  1120.                 ElseIf 位數(7) = "0" And 位數(8) <> "0" And 位數(9) <> "0" And 末位數 = "0" Then : 答案 &= 零 & 個位(位數(8)) & 百 & 個位(位數(9)) & 拾

  1121.                 ElseIf 位數(7) = "0" And 位數(8) <> "0" And 位數(9) <> "0" And 末位數 <> "0" Then : 答案 &= 零 & 個位(位數(8)) & 百 & 個位(位數(9)) & 拾 & 個位(末位數)

  1122.                 ElseIf 位數(7) <> "0" And 位數(8) = "0" And 位數(9) = "0" And 末位數 = "0" Then : 答案 &= 個位(位數(7)) & 仟

  1123.                 ElseIf 位數(7) <> "0" And 位數(8) = "0" And 位數(9) = "0" And 末位數 <> "0" Then : 答案 &= 個位(位數(7)) & 仟 & 零 & 個位(末位數)

  1124.                 ElseIf 位數(7) <> "0" And 位數(8) = "0" And 位數(9) <> "0" And 末位數 = "0" Then : 答案 &= 個位(位數(7)) & 仟 & 零 & 個位(位數(9)) & 拾

  1125.                 ElseIf 位數(7) <> "0" And 位數(8) = "0" And 位數(9) <> "0" And 末位數 <> "0" Then : 答案 &= 個位(位數(7)) & 仟 & 零 & 個位(位數(9)) & 拾 & 個位(末位數)

  1126.                 ElseIf 位數(7) <> "0" And 位數(8) <> "0" And 位數(9) = "0" And 末位數 = "0" Then : 答案 &= 個位(位數(7)) & 仟 & 個位(位數(8)) & 百

  1127.                 ElseIf 位數(7) <> "0" And 位數(8) <> "0" And 位數(9) = "0" And 末位數 <> "0" Then : 答案 &= 個位(位數(7)) & 仟 & 個位(位數(8)) & 百 & 零 & 個位(末位數)

  1128.                 ElseIf 位數(7) <> "0" And 位數(8) <> "0" And 位數(9) <> "0" And 末位數 = "0" Then : 答案 &= 個位(位數(7)) & 仟 & 個位(位數(8)) & 百 & 個位(位數(9)) & 拾

  1129.                 ElseIf 位數(7) <> "0" And 位數(8) <> "0" And 位數(9) <> "0" And 末位數 <> "0" Then : 答案 &= 個位(位數(7)) & 仟 & 個位(位數(8)) & 百 & 個位(位數(9)) & 拾 & 個位(末位數)

  1130.                 End If

  1131.             ElseIf 數長 = 11 Then : 答案 = 個位(位數(1)) & 百

  1132.                 If 位數(2) = "0" And 位數(3) = "0" Then : 答案 &= 億

  1133.                 ElseIf 位數(2) = "0" And 位數(3) <> "0" Then : 答案 &= 零 & 個位(位數(3)) & 億

  1134.                 ElseIf 位數(2) <> "0" And 位數(3) = "0" Then : 答案 &= 個位(位數(2)) & 拾 & 億

  1135.                 ElseIf 位數(2) <> "0" And 位數(3) <> "0" Then : 答案 &= 個位(位數(2)) & 拾 & 個位(位數(3)) & 億

  1136.                 End If

  1137.                 If 位數(4) = "0" And 位數(5) = "0" And 位數(6) = "0" And 位數(7) = "0" Then

  1138.                 ElseIf 位數(4) = "0" And 位數(5) = "0" And 位數(6) = "0" And 位數(7) <> "0" Then : 答案 &= 零 & 個位(位數(7)) & 萬

  1139.                 ElseIf 位數(4) = "0" And 位數(5) = "0" And 位數(6) <> "0" And 位數(7) = "0" Then : 答案 &= 零 & 個位(位數(6)) & 拾 & 萬

  1140.                 ElseIf 位數(4) = "0" And 位數(5) = "0" And 位數(6) <> "0" And 位數(7) <> "0" Then : 答案 &= 零 & 個位(位數(6)) & 拾 & 個位(位數(7)) & 萬

  1141.                 ElseIf 位數(4) = "0" And 位數(5) <> "0" And 位數(6) = "0" And 位數(7) = "0" Then : 答案 &= 零 & 個位(位數(5)) & 百 & 萬

  1142.                 ElseIf 位數(4) = "0" And 位數(5) <> "0" And 位數(6) = "0" And 位數(7) <> "0" Then : 答案 &= 零 & 個位(位數(5)) & 百 & 零 & 個位(位數(7)) & 萬

  1143.                 ElseIf 位數(4) = "0" And 位數(5) <> "0" And 位數(6) <> "0" And 位數(7) = "0" Then : 答案 &= 零 & 個位(位數(5)) & 百 & 個位(位數(6)) & 拾 & 萬

  1144.                 ElseIf 位數(4) = "0" And 位數(5) <> "0" And 位數(6) <> "0" And 位數(7) <> "0" Then : 答案 &= 零 & 個位(位數(5)) & 百 & 個位(位數(6)) & 拾 & 個位(位數(7)) & 萬

  1145.                 ElseIf 位數(4) <> "0" And 位數(5) = "0" And 位數(6) = "0" And 位數(7) = "0" Then : 答案 &= 個位(位數(4)) & 仟 & 萬

  1146.                 ElseIf 位數(4) <> "0" And 位數(5) = "0" And 位數(6) = "0" And 位數(7) <> "0" Then : 答案 &= 個位(位數(4)) & 仟 & 零 & 個位(位數(7)) & 萬

  1147.                 ElseIf 位數(4) <> "0" And 位數(5) = "0" And 位數(6) <> "0" And 位數(7) = "0" Then : 答案 &= 個位(位數(4)) & 仟 & 零 & 個位(位數(6)) & 拾 & 萬

  1148.                 ElseIf 位數(4) <> "0" And 位數(5) = "0" And 位數(6) <> "0" And 位數(7) <> "0" Then : 答案 &= 個位(位數(4)) & 仟 & 零 & 個位(位數(6)) & 拾 & 個位(位數(7)) & 萬

  1149.                 ElseIf 位數(4) <> "0" And 位數(5) <> "0" And 位數(6) = "0" And 位數(7) = "0" Then : 答案 &= 個位(位數(4)) & 仟 & 個位(位數(5)) & 百 & 萬

  1150.                 ElseIf 位數(4) <> "0" And 位數(5) <> "0" And 位數(6) = "0" And 位數(7) <> "0" Then : 答案 &= 個位(位數(4)) & 仟 & 個位(位數(5)) & 百 & 零 & 個位(位數(7)) & 萬

  1151.                 ElseIf 位數(4) <> "0" And 位數(5) <> "0" And 位數(6) <> "0" And 位數(7) = "0" Then : 答案 &= 個位(位數(4)) & 仟 & 個位(位數(5)) & 百 & 個位(位數(6)) & 拾 & 萬

  1152.                 ElseIf 位數(4) <> "0" And 位數(5) <> "0" And 位數(6) <> "0" And 位數(7) <> "0" Then : 答案 &= 個位(位數(4)) & 仟 & 個位(位數(5)) & 百 & 個位(位數(6)) & 拾 & 個位(位數(7)) & 萬

  1153.                 End If

  1154.                 If 位數(8) = "0" And 位數(9) = "0" And 位數(10) = "0" And 末位數 = "0" Then

  1155.                 ElseIf 位數(8) = "0" And 位數(9) = "0" And 位數(10) = "0" And 末位數 <> "0" Then : 答案 &= 零 & 個位(末位數)

  1156.                 ElseIf 位數(8) = "0" And 位數(9) = "0" And 位數(10) <> "0" And 末位數 = "0" Then : 答案 &= 零 & 個位(位數(10)) & 拾

  1157.                 ElseIf 位數(8) = "0" And 位數(9) = "0" And 位數(10) <> "0" And 末位數 <> "0" Then : 答案 &= 零 & 個位(位數(10)) & 拾 & 個位(末位數)

  1158.                 ElseIf 位數(8) = "0" And 位數(9) <> "0" And 位數(10) = "0" And 末位數 = "0" Then : 答案 &= 零 & 個位(位數(9)) & 百

  1159.                 ElseIf 位數(8) = "0" And 位數(9) <> "0" And 位數(10) = "0" And 末位數 <> "0" Then : 答案 &= 零 & 個位(位數(9)) & 百 & 零 & 個位(末位數)

  1160.                 ElseIf 位數(8) = "0" And 位數(9) <> "0" And 位數(10) <> "0" And 末位數 = "0" Then : 答案 &= 零 & 個位(位數(9)) & 百 & 個位(位數(10)) & 拾

  1161.                 ElseIf 位數(8) = "0" And 位數(9) <> "0" And 位數(10) <> "0" And 末位數 <> "0" Then : 答案 &= 零 & 個位(位數(9)) & 百 & 個位(位數(10)) & 拾 & 個位(末位數)

  1162.                 ElseIf 位數(8) <> "0" And 位數(9) = "0" And 位數(10) = "0" And 末位數 = "0" Then : 答案 &= 個位(位數(8)) & 仟

  1163.                 ElseIf 位數(8) <> "0" And 位數(9) = "0" And 位數(10) = "0" And 末位數 <> "0" Then : 答案 &= 個位(位數(8)) & 仟 & 零 & 個位(末位數)

  1164.                 ElseIf 位數(8) <> "0" And 位數(9) = "0" And 位數(10) <> "0" And 末位數 = "0" Then : 答案 &= 個位(位數(8)) & 仟 & 零 & 個位(位數(10)) & 拾

  1165.                 ElseIf 位數(8) <> "0" And 位數(9) = "0" And 位數(10) <> "0" And 末位數 <> "0" Then : 答案 &= 個位(位數(8)) & 仟 & 零 & 個位(位數(10)) & 拾 & 個位(末位數)

  1166.                 ElseIf 位數(8) <> "0" And 位數(9) <> "0" And 位數(10) = "0" And 末位數 = "0" Then : 答案 &= 個位(位數(8)) & 仟 & 個位(位數(9)) & 百

  1167.                 ElseIf 位數(8) <> "0" And 位數(9) <> "0" And 位數(10) = "0" And 末位數 <> "0" Then : 答案 &= 個位(位數(8)) & 仟 & 個位(位數(9)) & 百 & 零 & 個位(末位數)

  1168.                 ElseIf 位數(8) <> "0" And 位數(9) <> "0" And 位數(10) <> "0" And 末位數 = "0" Then : 答案 &= 個位(位數(8)) & 仟 & 個位(位數(9)) & 百 & 個位(位數(10)) & 拾

  1169.                 ElseIf 位數(8) <> "0" And 位數(9) <> "0" And 位數(10) <> "0" And 末位數 <> "0" Then : 答案 &= 個位(位數(8)) & 仟 & 個位(位數(9)) & 百 & 個位(位數(10)) & 拾 & 個位(末位數)

  1170.                 End If

  1171.             ElseIf 數長 = 12 Then : 答案 = 個位(位數(1)) & 仟

  1172.                 If 位數(2) = "0" And 位數(3) = "0" And 位數(4) = "0" Then : 答案 &= 億

  1173.                 ElseIf 位數(2) = "0" And 位數(3) = "0" And 位數(4) <> "0" Then : 答案 &= 零 & 個位(位數(4)) & 億

  1174.                 ElseIf 位數(2) = "0" And 位數(3) <> "0" And 位數(4) <> "0" Then : 答案 &= 零 & 個位(位數(3)) & 拾 & 個位(位數(4)) & 億

  1175.                 ElseIf 位數(2) = "0" And 位數(3) <> "0" And 位數(4) = "0" Then : 答案 &= 零 & 個位(位數(3)) & 拾 & 億

  1176.                 ElseIf 位數(2) <> "0" And 位數(3) = "0" And 位數(4) = "0" Then : 答案 &= 個位(位數(2)) & 百 & 億

  1177.                 ElseIf 位數(2) <> "0" And 位數(3) = "0" And 位數(4) <> "0" Then : 答案 &= 個位(位數(2)) & 百 & 零 & 個位(位數(4)) & 億

  1178.                 ElseIf 位數(2) <> "0" And 位數(3) <> "0" And 位數(4) = "0" Then : 答案 &= 個位(位數(2)) & 百 & 個位(位數(3)) & 拾 & 億

  1179.                 ElseIf 位數(2) <> "0" And 位數(4) <> "0" And 位數(4) <> "0" Then : 答案 &= 個位(位數(2)) & 百 & 個位(位數(3)) & 拾 & 個位(位數(4)) & 億

  1180.                 End If

  1181.                 If 位數(5) = "0" And 位數(6) = "0" And 位數(7) = "0" And 位數(8) = "0" Then

  1182.                 ElseIf 位數(5) = "0" And 位數(6) = "0" And 位數(7) = "0" And 位數(8) <> "0" Then : 答案 &= 零 & 個位(位數(8)) & 萬

  1183.                 ElseIf 位數(5) = "0" And 位數(6) = "0" And 位數(7) <> "0" And 位數(8) = "0" Then : 答案 &= 零 & 個位(位數(7)) & 拾 & 萬

  1184.                 ElseIf 位數(5) = "0" And 位數(6) = "0" And 位數(7) <> "0" And 位數(8) <> "0" Then : 答案 &= 零 & 個位(位數(7)) & 拾 & 個位(位數(8)) & 萬

  1185.                 ElseIf 位數(5) = "0" And 位數(6) <> "0" And 位數(7) = "0" And 位數(8) = "0" Then : 答案 &= 零 & 個位(位數(6)) & 百 & 萬

  1186.                 ElseIf 位數(5) = "0" And 位數(6) <> "0" And 位數(7) = "0" And 位數(8) <> "0" Then : 答案 &= 零 & 個位(位數(6)) & 百 & 零 & 個位(位數(8)) & 萬

  1187.                 ElseIf 位數(5) = "0" And 位數(6) <> "0" And 位數(7) <> "0" And 位數(8) = "0" Then : 答案 &= 零 & 個位(位數(6)) & 百 & 個位(位數(7)) & 拾 & 萬

  1188.                 ElseIf 位數(5) = "0" And 位數(6) <> "0" And 位數(7) <> "0" And 位數(8) <> "0" Then : 答案 &= 零 & 個位(位數(6)) & 百 & 個位(位數(7)) & 拾 & 個位(位數(8)) & 萬

  1189.                 ElseIf 位數(5) <> "0" And 位數(6) = "0" And 位數(7) = "0" And 位數(8) = "0" Then : 答案 &= 個位(位數(5)) & 仟 & 萬

  1190.                 ElseIf 位數(5) <> "0" And 位數(6) = "0" And 位數(7) = "0" And 位數(8) <> "0" Then : 答案 &= 個位(位數(5)) & 仟 & 零 & 個位(位數(8)) & 萬

  1191.                 ElseIf 位數(5) <> "0" And 位數(6) = "0" And 位數(7) <> "0" And 位數(8) = "0" Then : 答案 &= 個位(位數(5)) & 仟 & 零 & 個位(位數(7)) & 拾 & 萬

  1192.                 ElseIf 位數(5) <> "0" And 位數(6) = "0" And 位數(7) <> "0" And 位數(8) <> "0" Then : 答案 &= 個位(位數(5)) & 仟 & 零 & 個位(位數(7)) & 拾 & 個位(位數(8)) & 萬

  1193.                 ElseIf 位數(5) <> "0" And 位數(6) <> "0" And 位數(7) = "0" And 位數(8) = "0" Then : 答案 &= 個位(位數(5)) & 仟 & 個位(位數(6)) & 百 & 萬

  1194.                 ElseIf 位數(5) <> "0" And 位數(6) <> "0" And 位數(7) = "0" And 位數(8) <> "0" Then : 答案 &= 個位(位數(5)) & 仟 & 個位(位數(6)) & 百 & 零 & 個位(位數(8)) & 萬

  1195.                 ElseIf 位數(5) <> "0" And 位數(6) <> "0" And 位數(7) <> "0" And 位數(8) = "0" Then : 答案 &= 個位(位數(5)) & 仟 & 個位(位數(6)) & 百 & 個位(位數(7)) & 拾 & 萬

  1196.                 ElseIf 位數(5) <> "0" And 位數(6) <> "0" And 位數(7) <> "0" And 位數(8) <> "0" Then : 答案 &= 個位(位數(5)) & 仟 & 個位(位數(6)) & 百 & 個位(位數(7)) & 拾 & 個位(位數(8)) & 萬

  1197.                 End If

  1198.                 If 位數(9) = "0" And 位數(10) = "0" And 位數(11) = "0" And 末位數 = "0" Then

  1199.                 ElseIf 位數(9) = "0" And 位數(10) = "0" And 位數(11) = "0" And 末位數 <> "0" Then : 答案 &= 零 & 個位(末位數)

  1200.                 ElseIf 位數(9) = "0" And 位數(10) = "0" And 位數(11) <> "0" And 末位數 = "0" Then : 答案 &= 零 & 個位(位數(11)) & 拾

  1201.                 ElseIf 位數(9) = "0" And 位數(10) = "0" And 位數(11) <> "0" And 末位數 <> "0" Then : 答案 &= 零 & 個位(位數(11)) & 拾 & 個位(末位數)

  1202.                 ElseIf 位數(9) = "0" And 位數(10) <> "0" And 位數(11) = "0" And 末位數 = "0" Then : 答案 &= 零 & 個位(位數(10)) & 百

  1203.                 ElseIf 位數(9) = "0" And 位數(10) <> "0" And 位數(11) = "0" And 末位數 <> "0" Then : 答案 &= 零 & 個位(位數(10)) & 百 & 零 & 個位(末位數)

  1204.                 ElseIf 位數(9) = "0" And 位數(10) <> "0" And 位數(11) <> "0" And 末位數 = "0" Then : 答案 &= 零 & 個位(位數(10)) & 百 & 個位(位數(11)) & 拾

  1205.                 ElseIf 位數(9) = "0" And 位數(10) <> "0" And 位數(11) <> "0" And 末位數 <> "0" Then : 答案 &= 零 & 個位(位數(10)) & 百 & 個位(位數(11)) & 拾 & 個位(末位數)

  1206.                 ElseIf 位數(9) <> "0" And 位數(10) = "0" And 位數(11) = "0" And 末位數 = "0" Then : 答案 &= 個位(位數(9)) & 仟

  1207.                 ElseIf 位數(9) <> "0" And 位數(10) = "0" And 位數(11) = "0" And 末位數 <> "0" Then : 答案 &= 個位(位數(9)) & 仟 & 零 & 個位(末位數)

  1208.                 ElseIf 位數(9) <> "0" And 位數(10) = "0" And 位數(11) <> "0" And 末位數 = "0" Then : 答案 &= 個位(位數(9)) & 仟 & 零 & 個位(位數(11)) & 拾

  1209.                 ElseIf 位數(9) <> "0" And 位數(10) = "0" And 位數(11) <> "0" And 末位數 <> "0" Then : 答案 &= 個位(位數(9)) & 仟 & 零 & 個位(位數(11)) & 拾 & 個位(末位數)

  1210.                 ElseIf 位數(9) <> "0" And 位數(10) <> "0" And 位數(11) = "0" And 末位數 = "0" Then : 答案 &= 個位(位數(9)) & 仟 & 個位(位數(10)) & 百

  1211.                 ElseIf 位數(9) <> "0" And 位數(10) <> "0" And 位數(11) = "0" And 末位數 <> "0" Then : 答案 &= 個位(位數(9)) & 仟 & 個位(位數(10)) & 百 & 零 & 個位(末位數)

  1212.                 ElseIf 位數(9) <> "0" And 位數(10) <> "0" And 位數(11) <> "0" And 末位數 = "0" Then : 答案 &= 個位(位數(9)) & 仟 & 個位(位數(10)) & 百 & 個位(位數(11)) & 拾

  1213.                 ElseIf 位數(9) <> "0" And 位數(10) <> "0" And 位數(11) <> "0" And 末位數 <> "0" Then : 答案 &= 個位(位數(9)) & 仟 & 個位(位數(10)) & 百 & 個位(位數(11)) & 拾 & 個位(末位數)

  1214.                 End If

  1215.             ElseIf 數長 = 13 Then : 答案 = 個位(位數(1)) & 兆 : 答案 &= 個位(位數(2)) & 仟

  1216.                 If 位數(3) = "0" And 位數(4) = "0" And 位數(5) = "0" Then : 答案 &= 億

  1217.                 ElseIf 位數(3) = "0" And 位數(4) = "0" And 位數(5) <> "0" Then : 答案 &= 零 & 個位(位數(5)) & 億

  1218.                 ElseIf 位數(3) = "0" And 位數(4) <> "0" And 位數(5) <> "0" Then : 答案 &= 零 & 個位(位數(4)) & 拾 & 個位(位數(5)) & 億

  1219.                 ElseIf 位數(3) = "0" And 位數(4) <> "0" And 位數(5) = "0" Then : 答案 &= 零 & 個位(位數(4)) & 拾 & 億

  1220.                 ElseIf 位數(3) <> "0" And 位數(4) = "0" And 位數(5) = "0" Then : 答案 &= 個位(位數(3)) & 百 & 億

  1221.                 ElseIf 位數(3) <> "0" And 位數(4) = "0" And 位數(5) <> "0" Then : 答案 &= 個位(位數(3)) & 百 & 零 & 個位(位數(5)) & 億

  1222.                 ElseIf 位數(3) <> "0" And 位數(4) <> "0" And 位數(5) = "0" Then : 答案 &= 個位(位數(3)) & 百 & 個位(位數(4)) & 拾 & 億

  1223.                 ElseIf 位數(3) <> "0" And 位數(5) <> "0" And 位數(5) <> "0" Then : 答案 &= 個位(位數(3)) & 百 & 個位(位數(4)) & 拾 & 個位(位數(5)) & 億

  1224.                 End If

  1225.                 If 位數(6) = "0" And 位數(7) = "0" And 位數(8) = "0" And 位數(9) = "0" Then

  1226.                 ElseIf 位數(6) = "0" And 位數(7) = "0" And 位數(8) = "0" And 位數(9) <> "0" Then : 答案 &= 零 & 個位(位數(9)) & 萬

  1227.                 ElseIf 位數(6) = "0" And 位數(7) = "0" And 位數(8) <> "0" And 位數(9) = "0" Then : 答案 &= 零 & 個位(位數(8)) & 拾 & 萬

  1228.                 ElseIf 位數(6) = "0" And 位數(7) = "0" And 位數(8) <> "0" And 位數(9) <> "0" Then : 答案 &= 零 & 個位(位數(8)) & 拾 & 個位(位數(9)) & 萬

  1229.                 ElseIf 位數(6) = "0" And 位數(7) <> "0" And 位數(8) = "0" And 位數(9) = "0" Then : 答案 &= 零 & 個位(位數(7)) & 百 & 萬

  1230.                 ElseIf 位數(6) = "0" And 位數(7) <> "0" And 位數(8) = "0" And 位數(9) <> "0" Then : 答案 &= 零 & 個位(位數(7)) & 百 & 零 & 個位(位數(9)) & 萬

  1231.                 ElseIf 位數(6) = "0" And 位數(7) <> "0" And 位數(8) <> "0" And 位數(9) = "0" Then : 答案 &= 零 & 個位(位數(7)) & 百 & 個位(位數(8)) & 拾 & 萬

  1232.                 ElseIf 位數(6) = "0" And 位數(7) <> "0" And 位數(8) <> "0" And 位數(9) <> "0" Then : 答案 &= 零 & 個位(位數(7)) & 百 & 個位(位數(8)) & 拾 & 個位(位數(9)) & 萬

  1233.                 ElseIf 位數(6) <> "0" And 位數(7) = "0" And 位數(8) = "0" And 位數(9) = "0" Then : 答案 &= 個位(位數(6)) & 仟 & 萬

  1234.                 ElseIf 位數(6) <> "0" And 位數(7) = "0" And 位數(8) = "0" And 位數(9) <> "0" Then : 答案 &= 個位(位數(6)) & 仟 & 零 & 個位(位數(9)) & 萬

  1235.                 ElseIf 位數(6) <> "0" And 位數(7) = "0" And 位數(8) <> "0" And 位數(9) = "0" Then : 答案 &= 個位(位數(6)) & 仟 & 零 & 個位(位數(8)) & 拾 & 萬

  1236.                 ElseIf 位數(6) <> "0" And 位數(7) = "0" And 位數(8) <> "0" And 位數(9) <> "0" Then : 答案 &= 個位(位數(6)) & 仟 & 零 & 個位(位數(8)) & 拾 & 個位(位數(9)) & 萬

  1237.                 ElseIf 位數(6) <> "0" And 位數(7) <> "0" And 位數(8) = "0" And 位數(9) = "0" Then : 答案 &= 個位(位數(6)) & 仟 & 個位(位數(7)) & 百 & 萬

  1238.                 ElseIf 位數(6) <> "0" And 位數(7) <> "0" And 位數(8) = "0" And 位數(9) <> "0" Then : 答案 &= 個位(位數(6)) & 仟 & 個位(位數(7)) & 百 & 零 & 個位(位數(9)) & 萬

  1239.                 ElseIf 位數(6) <> "0" And 位數(7) <> "0" And 位數(8) <> "0" And 位數(9) = "0" Then : 答案 &= 個位(位數(6)) & 仟 & 個位(位數(7)) & 百 & 個位(位數(8)) & 拾 & 萬

  1240.                 ElseIf 位數(6) <> "0" And 位數(7) <> "0" And 位數(8) <> "0" And 位數(9) <> "0" Then : 答案 &= 個位(位數(6)) & 仟 & 個位(位數(7)) & 百 & 個位(位數(8)) & 拾 & 個位(位數(9)) & 萬

  1241.                 End If

  1242.                 If 位數(10) = "0" And 位數(11) = "0" And 位數(12) = "0" And 末位數 = "0" Then

  1243.                 ElseIf 位數(10) = "0" And 位數(11) = "0" And 位數(12) = "0" And 末位數 <> "0" Then : 答案 &= 零 & 個位(末位數)

  1244.                 ElseIf 位數(10) = "0" And 位數(11) = "0" And 位數(12) <> "0" And 末位數 = "0" Then : 答案 &= 零 & 個位(位數(12)) & 拾

  1245.                 ElseIf 位數(10) = "0" And 位數(11) = "0" And 位數(12) <> "0" And 末位數 <> "0" Then : 答案 &= 零 & 個位(位數(12)) & 拾 & 個位(末位數)

  1246.                 ElseIf 位數(10) = "0" And 位數(11) <> "0" And 位數(12) = "0" And 末位數 = "0" Then : 答案 &= 零 & 個位(位數(11)) & 百

  1247.                 ElseIf 位數(10) = "0" And 位數(11) <> "0" And 位數(12) = "0" And 末位數 <> "0" Then : 答案 &= 零 & 個位(位數(11)) & 百 & 零 & 個位(末位數)

  1248.                 ElseIf 位數(10) = "0" And 位數(11) <> "0" And 位數(12) <> "0" And 末位數 = "0" Then : 答案 &= 零 & 個位(位數(11)) & 百 & 個位(位數(12)) & 拾

  1249.                 ElseIf 位數(10) = "0" And 位數(11) <> "0" And 位數(12) <> "0" And 末位數 <> "0" Then : 答案 &= 零 & 個位(位數(11)) & 百 & 個位(位數(12)) & 拾 & 個位(末位數)

  1250.                 ElseIf 位數(10) <> "0" And 位數(11) = "0" And 位數(12) = "0" And 末位數 = "0" Then : 答案 &= 個位(位數(10)) & 仟

  1251.                 ElseIf 位數(10) <> "0" And 位數(11) = "0" And 位數(12) = "0" And 末位數 <> "0" Then : 答案 &= 個位(位數(10)) & 仟 & 零 & 個位(末位數)

  1252.                 ElseIf 位數(10) <> "0" And 位數(11) = "0" And 位數(12) <> "0" And 末位數 = "0" Then : 答案 &= 個位(位數(10)) & 仟 & 零 & 個位(位數(12)) & 拾

  1253.                 ElseIf 位數(10) <> "0" And 位數(11) = "0" And 位數(12) <> "0" And 末位數 <> "0" Then : 答案 &= 個位(位數(10)) & 仟 & 零 & 個位(位數(12)) & 拾 & 個位(末位數)

  1254.                 ElseIf 位數(10) <> "0" And 位數(11) <> "0" And 位數(12) = "0" And 末位數 = "0" Then : 答案 &= 個位(位數(10)) & 仟 & 個位(位數(11)) & 百

  1255.                 ElseIf 位數(10) <> "0" And 位數(11) <> "0" And 位數(12) = "0" And 末位數 <> "0" Then : 答案 &= 個位(位數(10)) & 仟 & 個位(位數(11)) & 百 & 零 & 個位(末位數)

  1256.                 ElseIf 位數(10) <> "0" And 位數(11) <> "0" And 位數(12) <> "0" And 末位數 = "0" Then : 答案 &= 個位(位數(10)) & 仟 & 個位(位數(11)) & 百 & 個位(位數(12)) & 拾

  1257.                 ElseIf 位數(10) <> "0" And 位數(11) <> "0" And 位數(12) <> "0" And 末位數 <> "0" Then : 答案 &= 個位(位數(10)) & 仟 & 個位(位數(11)) & 百 & 個位(位數(12)) & 拾 & 個位(末位數)

  1258.                 End If

  1259.             ElseIf 數長 = 14 Then

  1260.                 If 位數(2) = "0" Then : 答案 = 個位(位數(1)) & 拾 & 兆 : Else : 答案 = 個位(位數(1)) & 拾 & 個位(位數(2)) & 兆 : End If : 答案 &= 個位(位數(3)) & 仟

  1261.                 If 位數(4) = "0" And 位數(5) = "0" And 位數(6) = "0" Then : 答案 &= 億

  1262.                 ElseIf 位數(4) = "0" And 位數(5) = "0" And 位數(6) <> "0" Then : 答案 &= 零 & 個位(位數(6)) & 億

  1263.                 ElseIf 位數(4) = "0" And 位數(5) <> "0" And 位數(6) <> "0" Then : 答案 &= 零 & 個位(位數(5)) & 拾 & 個位(位數(6)) & 億

  1264.                 ElseIf 位數(4) = "0" And 位數(5) <> "0" And 位數(6) = "0" Then : 答案 &= 零 & 個位(位數(5)) & 拾 & 億

  1265.                 ElseIf 位數(4) <> "0" And 位數(5) = "0" And 位數(6) = "0" Then : 答案 &= 個位(位數(4)) & 百 & 億

  1266.                 ElseIf 位數(4) <> "0" And 位數(5) = "0" And 位數(6) <> "0" Then : 答案 &= 個位(位數(4)) & 百 & 零 & 個位(位數(6)) & 億

  1267.                 ElseIf 位數(4) <> "0" And 位數(5) <> "0" And 位數(6) = "0" Then : 答案 &= 個位(位數(4)) & 百 & 個位(位數(5)) & 拾 & 億

  1268.                 ElseIf 位數(4) <> "0" And 位數(6) <> "0" And 位數(6) <> "0" Then : 答案 &= 個位(位數(4)) & 百 & 個位(位數(5)) & 拾 & 個位(位數(6)) & 億

  1269.                 End If

  1270.                 If 位數(7) = "0" And 位數(8) = "0" And 位數(9) = "0" And 位數(10) = "0" Then

  1271.                 ElseIf 位數(7) = "0" And 位數(8) = "0" And 位數(9) = "0" And 位數(10) <> "0" Then : 答案 &= 零 & 個位(位數(10)) & 萬

  1272.                 ElseIf 位數(7) = "0" And 位數(8) = "0" And 位數(9) <> "0" And 位數(10) = "0" Then : 答案 &= 零 & 個位(位數(9)) & 拾 & 萬

  1273.                 ElseIf 位數(7) = "0" And 位數(8) = "0" And 位數(9) <> "0" And 位數(10) <> "0" Then : 答案 &= 零 & 個位(位數(9)) & 拾 & 個位(位數(10)) & 萬

  1274.                 ElseIf 位數(7) = "0" And 位數(8) <> "0" And 位數(9) = "0" And 位數(10) = "0" Then : 答案 &= 零 & 個位(位數(8)) & 百 & 萬

  1275.                 ElseIf 位數(7) = "0" And 位數(8) <> "0" And 位數(9) = "0" And 位數(10) <> "0" Then : 答案 &= 零 & 個位(位數(8)) & 百 & 零 & 個位(位數(10)) & 萬

  1276.                 ElseIf 位數(7) = "0" And 位數(8) <> "0" And 位數(9) <> "0" And 位數(10) = "0" Then : 答案 &= 零 & 個位(位數(8)) & 百 & 個位(位數(9)) & 拾 & 萬

  1277.                 ElseIf 位數(7) = "0" And 位數(8) <> "0" And 位數(9) <> "0" And 位數(10) <> "0" Then : 答案 &= 零 & 個位(位數(8)) & 百 & 個位(位數(9)) & 拾 & 個位(位數(10)) & 萬

  1278.                 ElseIf 位數(7) <> "0" And 位數(8) = "0" And 位數(9) = "0" And 位數(10) = "0" Then : 答案 &= 個位(位數(7)) & 仟 & 萬

  1279.                 ElseIf 位數(7) <> "0" And 位數(8) = "0" And 位數(9) = "0" And 位數(10) <> "0" Then : 答案 &= 個位(位數(7)) & 仟 & 零 & 個位(位數(10)) & 萬

  1280.                 ElseIf 位數(7) <> "0" And 位數(8) = "0" And 位數(9) <> "0" And 位數(10) = "0" Then : 答案 &= 個位(位數(7)) & 仟 & 零 & 個位(位數(9)) & 拾 & 萬

  1281.                 ElseIf 位數(7) <> "0" And 位數(8) = "0" And 位數(9) <> "0" And 位數(10) <> "0" Then : 答案 &= 個位(位數(7)) & 仟 & 零 & 個位(位數(9)) & 拾 & 個位(位數(10)) & 萬

  1282.                 ElseIf 位數(7) <> "0" And 位數(8) <> "0" And 位數(9) = "0" And 位數(10) = "0" Then : 答案 &= 個位(位數(7)) & 仟 & 個位(位數(8)) & 百 & 萬

  1283.                 ElseIf 位數(7) <> "0" And 位數(8) <> "0" And 位數(9) = "0" And 位數(10) <> "0" Then : 答案 &= 個位(位數(7)) & 仟 & 個位(位數(8)) & 百 & 零 & 個位(位數(10)) & 萬

  1284.                 ElseIf 位數(7) <> "0" And 位數(8) <> "0" And 位數(9) <> "0" And 位數(10) = "0" Then : 答案 &= 個位(位數(7)) & 仟 & 個位(位數(8)) & 百 & 個位(位數(9)) & 拾 & 萬

  1285.                 ElseIf 位數(7) <> "0" And 位數(8) <> "0" And 位數(9) <> "0" And 位數(10) <> "0" Then : 答案 &= 個位(位數(7)) & 仟 & 個位(位數(8)) & 百 & 個位(位數(9)) & 拾 & 個位(位數(10)) & 萬

  1286.                 End If

  1287.                 If 位數(11) = "0" And 位數(12) = "0" And 位數(13) = "0" And 末位數 = "0" Then

  1288.                 ElseIf 位數(11) = "0" And 位數(12) = "0" And 位數(13) = "0" And 末位數 <> "0" Then : 答案 &= 零 & 個位(末位數)

  1289.                 ElseIf 位數(11) = "0" And 位數(12) = "0" And 位數(13) <> "0" And 末位數 = "0" Then : 答案 &= 零 & 個位(位數(13)) & 拾

  1290.                 ElseIf 位數(11) = "0" And 位數(12) = "0" And 位數(13) <> "0" And 末位數 <> "0" Then : 答案 &= 零 & 個位(位數(13)) & 拾 & 個位(末位數)

  1291.                 ElseIf 位數(11) = "0" And 位數(12) <> "0" And 位數(13) = "0" And 末位數 = "0" Then : 答案 &= 零 & 個位(位數(12)) & 百

  1292.                 ElseIf 位數(11) = "0" And 位數(12) <> "0" And 位數(13) = "0" And 末位數 <> "0" Then : 答案 &= 零 & 個位(位數(12)) & 百 & 零 & 個位(末位數)

  1293.                 ElseIf 位數(11) = "0" And 位數(12) <> "0" And 位數(13) <> "0" And 末位數 = "0" Then : 答案 &= 零 & 個位(位數(12)) & 百 & 個位(位數(13)) & 拾

  1294.                 ElseIf 位數(11) = "0" And 位數(12) <> "0" And 位數(13) <> "0" And 末位數 <> "0" Then : 答案 &= 零 & 個位(位數(12)) & 百 & 個位(位數(13)) & 拾 & 個位(末位數)

  1295.                 ElseIf 位數(11) <> "0" And 位數(12) = "0" And 位數(13) = "0" And 末位數 = "0" Then : 答案 &= 個位(位數(11)) & 仟

  1296.                 ElseIf 位數(11) <> "0" And 位數(12) = "0" And 位數(13) = "0" And 末位數 <> "0" Then : 答案 &= 個位(位數(11)) & 仟 & 零 & 個位(末位數)

  1297.                 ElseIf 位數(11) <> "0" And 位數(12) = "0" And 位數(13) <> "0" And 末位數 = "0" Then : 答案 &= 個位(位數(11)) & 仟 & 零 & 個位(位數(13)) & 拾

  1298.                 ElseIf 位數(11) <> "0" And 位數(12) = "0" And 位數(13) <> "0" And 末位數 <> "0" Then : 答案 &= 個位(位數(11)) & 仟 & 零 & 個位(位數(13)) & 拾 & 個位(末位數)

  1299.                 ElseIf 位數(11) <> "0" And 位數(12) <> "0" And 位數(13) = "0" And 末位數 = "0" Then : 答案 &= 個位(位數(11)) & 仟 & 個位(位數(12)) & 百

  1300.                 ElseIf 位數(11) <> "0" And 位數(12) <> "0" And 位數(13) = "0" And 末位數 <> "0" Then : 答案 &= 個位(位數(11)) & 仟 & 個位(位數(12)) & 百 & 零 & 個位(末位數)

  1301.                 ElseIf 位數(11) <> "0" And 位數(12) <> "0" And 位數(13) <> "0" And 末位數 = "0" Then : 答案 &= 個位(位數(11)) & 仟 & 個位(位數(12)) & 百 & 個位(位數(13)) & 拾

  1302.                 ElseIf 位數(11) <> "0" And 位數(12) <> "0" And 位數(13) <> "0" And 末位數 <> "0" Then : 答案 &= 個位(位數(11)) & 仟 & 個位(位數(12)) & 百 & 個位(位數(13)) & 拾 & 個位(末位數)

  1303.                 End If

  1304.             End If

  1305.         End If

  1306.         If 系統語言 = "繁體中文" Then : 金額大寫_tb.Text = 答案 & " 元整"

  1307.         ElseIf 系統語言 = "Indonesian" Then : 金額大寫_tb.Text = 答案 & " Rupiah"

  1308.         ElseIf 系統語言 = "English" Then : 金額大寫_tb.Text = 答案 & " Rupee" : End If

  1309.     End Sub

  1310. 

  1311.     Private Sub 列印成EXCEL_bt_Click(sender As Object, e As EventArgs) Handles 列印成EXCEL_bt.Click

  1312.         If 主管_tb.Text = "" Then : MGB(對話框(9), 1) : Else

  1313.             If 系統單號_bt.Text = "" Then : MGB(對話框(3), 1) : 首次開啟 = False : Else

  1314.                 xlApp = CType(CreateObject("Excel.Application"), Application)

  1315.                 xlBook = xlApp.Workbooks.Add

  1316.                 xlApp.DisplayAlerts = True

  1317.                 xlApp.Visible = True

  1318.                 xlApp.Application.WindowState = xlMaximized

  1319. 

  1320.                 xlSheet = NewMethod(xlBook) : xlApp.Sheets(1).Select

  1321.                 xlApp.Sheets(1).Name = 單號_tb.Text.Replace("/", "_") : xlBook.Activate() : xlSheet.Activate()

  1322. 

  1323.                 xlSheet.Cells(2, 1) = Label7.Text

  1324.                 xlSheet.Cells(3, 1) = 單號_tb.Text

  1325.                 xlSheet.Cells(5, 2) = Label2.Text : xlSheet.Cells(5, 3) = "' : " : xlSheet.Cells(5, 4) = "'" & Strings.Format(申請日期_dtp.Value, "yyyy/MM/dd")

  1326.                 xlSheet.Cells(6, 2) = Label1.Text : xlSheet.Cells(6, 3) = "' : " : xlSheet.Cells(6, 4) = 部門選單_cb.Text

  1327.                 xlSheet.Cells(7, 2) = Label3.Text : xlSheet.Cells(7, 3) = "' : " : xlSheet.Cells(7, 4) = Strings.Format(申請金額_nud.Value, "#,##0")

  1328.                 xlSheet.Cells(8, 2) = Label4.Text : xlSheet.Cells(8, 3) = "' : " : xlSheet.Cells(8, 4) = 金額大寫_tb.Text

  1329.                 xlSheet.Cells(9, 2) = Label5.Text : xlSheet.Cells(9, 3) = "' : " : xlSheet.Cells(9, 4) = 內容_tb.Text

  1330.                 xlSheet.Cells(10, 2) = Label6.Text : xlSheet.Cells(10, 3) = "' : "

  1331.                 xlSheet.Cells(10, 4) = Label18.Text & " / " & 支付對象_tb.Text & vbLf &

  1332.                                        Label15.Text & " / " & 營行帳號_tb.Text & vbLf &

  1333.                                        Label17.Text & " / " & 支付銀行_tb.Text & vbLf &

  1334.                                        Label16.Text & " / " & 銀行支行_tb.Text

  1335.                 xlSheet.Cells(12, 2) = Label8.Text : xlSheet.Cells(13, 2) = 申請人_tb.Text

  1336.                 xlSheet.Cells(12, 4) = Label19.Text : xlSheet.Cells(13, 4) = 檢查人_tb.Text

  1337.                 xlSheet.Cells(12, 6) = Label9.Text : xlSheet.Cells(13, 6) = 主管_tb.Text : xlSheet.Cells(14, 6) = Label11.Text

  1338.                 xlSheet.Cells(12, 8) = Label10.Text : xlSheet.Cells(13, 8) = 審核人_tb.Text : xlSheet.Cells(14, 8) = Label12.Text

  1339.                 AA(xlApp, xlSheet)

  1340.                 If 單號_tb.Text.Contains("HXI") Then : CC(xlApp, xlSheet) : Else : DD(xlApp, xlSheet) : End If

  1341.                 xlApp.Sheets(2).Delete : xlSheet.PageSetup.PrintArea = ""

  1342.                     '-------------轉換成PDF---------------------------------------------------------------------

  1343.                     Dim SERT As String = Environment.GetFolderPath(Environment.SpecialFolder.Desktop)

  1344.                     xlBook.Sheets(1).ExportAsFixedFormat(XlFixedFormatType.xlTypePDF, SERT & "\" & 單號_tb.Text.Replace("/", "_") & ".pdf", XlFixedFormatQuality.xlQualityStandard, True)

  1345.                     '-------------關閉EXCEL---------------------------------------------------------------------

  1346.                     xlApp.Cells.Select() : xlApp.Application.WindowState = xlMinimized

  1347.                     xlBook.Close(False)

  1348.                     Runtime.InteropServices.Marshal.ReleaseComObject(xlSheet)

  1349.                     Runtime.InteropServices.Marshal.ReleaseComObject(xlBook)

  1350.                     Runtime.InteropServices.Marshal.ReleaseComObject(xlApp)

  1351.                     xlApp.Quit() : xlSheet = Nothing : xlBook = Nothing : xlApp = Nothing : GC.Collect()

  1352.                     '-------------開啟PDF---------------------------------------------------------------------

  1353.                     Dim pdfFilePath As String = SERT & "\" & 單號_tb.Text.Replace("/", "_") & ".pdf"

  1354.                     If IsChromeInstalled() Then

  1355.                         Try

  1356.                             Dim chromeProcess As New Process()

  1357.                             chromeProcess.StartInfo.FileName = "chrome"

  1358.                             chromeProcess.StartInfo.Arguments = """" & pdfFilePath & """"

  1359.                             chromeProcess.Start()

  1360.                         Catch ex As Exception

  1361.                         End Try

  1362.                     Else

  1363.                         Try

  1364.                             System.Diagnostics.Process.Start("""" & pdfFilePath & """")

  1365.                         Catch ex As Exception

  1366.                         End Try

  1367.                     End If

  1368.                     MGB(系統語言字典("H508-121-" & 語言), 1) : 首次開啟 = False

  1369.                 End If

  1370.             End If

  1371.     End Sub

  1372.     ' 檢查系統是否已安裝 Google Chrome

  1373.     Private Function IsChromeInstalled() As Boolean

  1374.         Dim key As Microsoft.Win32.RegistryKey = Microsoft.Win32.Registry.LocalMachine.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall")

  1375.         If key IsNot Nothing Then

  1376.             For Each subkeyName As String In key.GetSubKeyNames()

  1377.                 Dim subkey As Microsoft.Win32.RegistryKey = key.OpenSubKey(subkeyName)

  1378.                 Dim displayName As Object = subkey.GetValue("DisplayName")

  1379. 

  1380.                 If displayName IsNot Nothing AndAlso displayName.ToString().Contains("Google Chrome") Then

  1381.                     Return True

  1382.                 End If

  1383.             Next

  1384.         End If

  1385.         Return False

  1386.     End Function

  1387.     Private Shared Function NewMethod(xlBook As Workbook) As Worksheet

  1388.         Return CType(xlBook.Worksheets.Add, Worksheet)

  1389.     End Function

  1390.     Private Sub AA(ByVal myExcel As Microsoft.Office.Interop.Excel.Application, ByVal xlSheet As Worksheet)

  1391.         xlSheet.Cells.Select()

  1392.         With myExcel.Selection.Font : .Name = "微軟正黑體" : .Size = 12 : .Strikethrough = False : .Superscript = False : .Subscript = False : .OutlineFont = False : .Shadow = False

  1393.             .Underline = xlUnderlineStyleNone : .ThemeColor = xlThemeColorLight1 : .TintAndShade = 0 : .ThemeFont = xlThemeFontNone : End With

  1394.         xlSheet.Rows("1:1").Select : myExcel.Selection.RowHeight = 90 : xlSheet.Rows("2:2").Select : myExcel.Selection.RowHeight = 25

  1395.         xlSheet.Rows("3:3").Select : myExcel.Selection.RowHeight = 19 : xlSheet.Rows("5:7").Select : myExcel.Selection.RowHeight = 25

  1396.         xlSheet.Rows("8:8").Select : myExcel.Selection.RowHeight = 50 : xlSheet.Rows("9:9").Select : myExcel.Selection.RowHeight = 100

  1397.         xlSheet.Rows("10:10").Select : myExcel.Selection.RowHeight = 80 : xlSheet.Rows("13:13").Select : myExcel.Selection.RowHeight = 50

  1398.         xlSheet.Columns("A:A").Select : myExcel.Selection.ColumnWidth = 4 : xlSheet.Columns("B:B").Select : myExcel.Selection.ColumnWidth = 20

  1399.         xlSheet.Columns("C:C").Select : myExcel.Selection.ColumnWidth = 1.7 : xlSheet.Columns("D:D").Select : myExcel.Selection.ColumnWidth = 30

  1400.         xlSheet.Columns("E:E").Select : myExcel.Selection.ColumnWidth = 10 : xlSheet.Columns("F:F").Select : myExcel.Selection.ColumnWidth = 30

  1401.         xlSheet.Columns("G:G").Select : myExcel.Selection.ColumnWidth = 10 : xlSheet.Columns("H:H").Select : myExcel.Selection.ColumnWidth = 30

  1402.         xlSheet.Columns("I:I").Select : myExcel.Selection.ColumnWidth = 4

  1403. 

  1404.         xlSheet.Range("A2:I2").Select()

  1405.         With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0

  1406.             .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False : End With : myExcel.Selection.Merge

  1407.         With myExcel.Selection.Font : .Name = "微軟正黑體" : .Size = 22 : .Strikethrough = False : .Superscript = False : .Subscript = False : .OutlineFont = False : .Shadow = False

  1408.             .Underline = xlUnderlineStyleNone : .ThemeColor = xlThemeColorLight1 : .TintAndShade = 0 : .ThemeFont = xlThemeFontNone : End With

  1409.         xlSheet.Range("A3:I3").Select()

  1410.         With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0

  1411.             .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False : End With : myExcel.Selection.Merge

  1412.         With myExcel.Selection.Font : .Name = "微軟正黑體" : .Size = 14 : .Strikethrough = False : .Superscript = False : .Subscript = False : .OutlineFont = False : .Shadow = False

  1413.             .Underline = xlUnderlineStyleNone : .ThemeColor = xlThemeColorLight1 : .TintAndShade = 0 : .ThemeFont = xlThemeFontNone : End With

  1414.         xlSheet.Range("B5:C10").Select()

  1415.         With myExcel.Selection : .HorizontalAlignment = xlGeneral : .VerticalAlignment = xlTop : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0

  1416.             .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False : End With

  1417.         xlSheet.Range("D5:H5").Select()

  1418.         With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0

  1419.             .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False : End With : myExcel.Selection.Merge

  1420.         With myExcel.Selection : .HorizontalAlignment = xlLeft : .VerticalAlignment = xlTop : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0

  1421.             .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = True : End With

  1422.         xlSheet.Range("D6:H6").Select()

  1423.         With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0

  1424.             .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False : End With : myExcel.Selection.Merge

  1425.         With myExcel.Selection : .HorizontalAlignment = xlLeft : .VerticalAlignment = xlTop : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0

  1426.             .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = True : End With

  1427.         xlSheet.Range("D7:H7").Select()

  1428.         With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0

  1429.             .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False : End With : myExcel.Selection.Merge

  1430.         With myExcel.Selection : .HorizontalAlignment = xlLeft : .VerticalAlignment = xlTop : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0

  1431.             .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = True : End With

  1432.         xlSheet.Range("D8:H8").Select()

  1433.         With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0

  1434.             .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False : End With : myExcel.Selection.Merge

  1435.         With myExcel.Selection : .HorizontalAlignment = xlLeft : .VerticalAlignment = xlTop : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0

  1436.             .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = True : End With

  1437.         xlSheet.Range("D9:H9").Select()

  1438.         With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0

  1439.             .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False : End With : myExcel.Selection.Merge

  1440.         With myExcel.Selection : .HorizontalAlignment = xlLeft : .VerticalAlignment = xlTop : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0

  1441.             .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = True : End With

  1442.         xlSheet.Range("D10:H10").Select()

  1443.         With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0

  1444.             .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False : End With : myExcel.Selection.Merge

  1445.         With myExcel.Selection : .HorizontalAlignment = xlLeft : .VerticalAlignment = xlTop : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0

  1446.             .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = True : End With

  1447.         xlSheet.Range("D12:H14").Select()

  1448.         With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0

  1449.             .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False : End With

  1450. 

  1451.         xlSheet.Range("A1:I2").Select()

  1452.         myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone : myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone

  1453.         With myExcel.Selection.Borders(xlEdgeLeft) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  1454.         With myExcel.Selection.Borders(xlEdgeTop) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  1455.         With myExcel.Selection.Borders(xlEdgeBottom) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  1456.         With myExcel.Selection.Borders(xlEdgeRight) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  1457.         myExcel.Selection.Borders(xlInsideVertical).LineStyle = xlNone : myExcel.Selection.Borders(xlInsideHorizontal).LineStyle = xlNone

  1458.         xlSheet.Range("A3:I3").Select()

  1459.         myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone : myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone

  1460.         With myExcel.Selection.Borders(xlEdgeLeft) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  1461.         With myExcel.Selection.Borders(xlEdgeTop) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  1462.         With myExcel.Selection.Borders(xlEdgeBottom) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  1463.         With myExcel.Selection.Borders(xlEdgeRight) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  1464.         myExcel.Selection.Borders(xlInsideVertical).LineStyle = xlNone : myExcel.Selection.Borders(xlInsideHorizontal).LineStyle = xlNone

  1465.         xlSheet.Range("A4:I14").Select()

  1466.         myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone : myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone

  1467.         With myExcel.Selection.Borders(xlEdgeLeft) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  1468.         With myExcel.Selection.Borders(xlEdgeTop) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  1469.         With myExcel.Selection.Borders(xlEdgeBottom) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  1470.         With myExcel.Selection.Borders(xlEdgeRight) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  1471.         myExcel.Selection.Borders(xlInsideVertical).LineStyle = xlNone : myExcel.Selection.Borders(xlInsideHorizontal).LineStyle = xlNone

  1472.         xlSheet.Range("D5:H5").Select()

  1473.         myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone : myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone

  1474.         myExcel.Selection.Borders(xlEdgeLeft).LineStyle = xlNone : myExcel.Selection.Borders(xlEdgeTop).LineStyle = xlNone

  1475.         With myExcel.Selection.Borders(xlEdgeBottom) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  1476.         myExcel.Selection.Borders(xlEdgeRight).LineStyle = xlNone : myExcel.Selection.Borders(xlInsideVertical).LineStyle = xlNone

  1477.         myExcel.Selection.Borders(xlInsideHorizontal).LineStyle = xlNone

  1478.         xlSheet.Range("D6:H6").Select()

  1479.         myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone : myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone

  1480.         myExcel.Selection.Borders(xlEdgeLeft).LineStyle = xlNone

  1481.         With myExcel.Selection.Borders(xlEdgeTop) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  1482.         With myExcel.Selection.Borders(xlEdgeBottom) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  1483.         myExcel.Selection.Borders(xlEdgeRight).LineStyle = xlNone : myExcel.Selection.Borders(xlInsideVertical).LineStyle = xlNone

  1484.         myExcel.Selection.Borders(xlInsideHorizontal).LineStyle = xlNone

  1485.         xlSheet.Range("D7:H7").Select()

  1486.         myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone : myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone

  1487.         myExcel.Selection.Borders(xlEdgeLeft).LineStyle = xlNone

  1488.         With myExcel.Selection.Borders(xlEdgeTop) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  1489.         With myExcel.Selection.Borders(xlEdgeBottom) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  1490.         myExcel.Selection.Borders(xlEdgeRight).LineStyle = xlNone : myExcel.Selection.Borders(xlInsideVertical).LineStyle = xlNone

  1491.         myExcel.Selection.Borders(xlInsideHorizontal).LineStyle = xlNone

  1492.         xlSheet.Range("D8:H8").Select()

  1493.         myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone : myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone

  1494.         myExcel.Selection.Borders(xlEdgeLeft).LineStyle = xlNone

  1495.         With myExcel.Selection.Borders(xlEdgeTop) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  1496.         With myExcel.Selection.Borders(xlEdgeBottom) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  1497.         myExcel.Selection.Borders(xlEdgeRight).LineStyle = xlNone : myExcel.Selection.Borders(xlInsideVertical).LineStyle = xlNone

  1498.         myExcel.Selection.Borders(xlInsideHorizontal).LineStyle = xlNone

  1499.         xlSheet.Range("D9:H9").Select()

  1500.         myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone : myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone

  1501.         myExcel.Selection.Borders(xlEdgeLeft).LineStyle = xlNone

  1502.         With myExcel.Selection.Borders(xlEdgeTop) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  1503.         With myExcel.Selection.Borders(xlEdgeBottom) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  1504.         myExcel.Selection.Borders(xlEdgeRight).LineStyle = xlNone : myExcel.Selection.Borders(xlInsideVertical).LineStyle = xlNone

  1505.         myExcel.Selection.Borders(xlInsideHorizontal).LineStyle = xlNone

  1506.         xlSheet.Range("D10:H10").Select()

  1507.         myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone : myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone

  1508.         myExcel.Selection.Borders(xlEdgeLeft).LineStyle = xlNone

  1509.         With myExcel.Selection.Borders(xlEdgeTop) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  1510.         With myExcel.Selection.Borders(xlEdgeBottom) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  1511.         myExcel.Selection.Borders(xlEdgeRight).LineStyle = xlNone : myExcel.Selection.Borders(xlInsideVertical).LineStyle = xlNone

  1512.         myExcel.Selection.Borders(xlInsideHorizontal).LineStyle = xlNone

  1513.         xlSheet.Range("F13").Select()

  1514.         myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone : myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone

  1515.         myExcel.Selection.Borders(xlEdgeLeft).LineStyle = xlNone : myExcel.Selection.Borders(xlEdgeTop).LineStyle = xlNone

  1516.         With myExcel.Selection.Borders(xlEdgeBottom) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  1517.         myExcel.Selection.Borders(xlEdgeRight).LineStyle = xlNone : myExcel.Selection.Borders(xlInsideVertical).LineStyle = xlNone

  1518.         myExcel.Selection.Borders(xlInsideHorizontal).LineStyle = xlNone

  1519.         xlSheet.Range("H13").Select()

  1520.         myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone : myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone

  1521.         myExcel.Selection.Borders(xlEdgeLeft).LineStyle = xlNone : myExcel.Selection.Borders(xlEdgeTop).LineStyle = xlNone

  1522.         With myExcel.Selection.Borders(xlEdgeBottom) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  1523.         myExcel.Selection.Borders(xlEdgeRight).LineStyle = xlNone : myExcel.Selection.Borders(xlInsideVertical).LineStyle = xlNone

  1524.         myExcel.Selection.Borders(xlInsideHorizontal).LineStyle = xlNone

  1525.         myExcel.ActiveWindow.DisplayGridlines = False

  1526.         xlSheet.Range("B5:B10").Select() : myExcel.Selection.Font.Bold = True : xlSheet.Range("D12:H12").Select() : myExcel.Selection.Font.Bold = True

  1527.         xlSheet.Range("F14:H14").Select() : myExcel.Selection.Font.Bold = True

  1528. 

  1529.         xlSheet.Range("D8:H10").Select()

  1530.         With myExcel.Selection : .HorizontalAlignment = xlLeft : .VerticalAlignment = xlTop : .WrapText = True : .Orientation = 0 : .AddIndent = False

  1531.             .IndentLevel = 0 : .ShrinkToFit = False : .ReadingOrder = xlContext : End With

  1532.         xlSheet.Range("B13").Select()

  1533.         myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone : myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone

  1534.         myExcel.Selection.Borders(xlEdgeLeft).LineStyle = xlNone : myExcel.Selection.Borders(xlEdgeTop).LineStyle = xlNone

  1535.         With myExcel.Selection.Borders(xlEdgeBottom) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  1536.         myExcel.Selection.Borders(xlEdgeRight).LineStyle = xlNone : myExcel.Selection.Borders(xlInsideVertical).LineStyle = xlNone

  1537.         myExcel.Selection.Borders(xlInsideHorizontal).LineStyle = xlNone

  1538.         With myExcel.Selection : .HorizontalAlignment = xlGeneral : .VerticalAlignment = xlCenter : .WrapText = True : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0

  1539.             .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False : End With

  1540.         xlSheet.Range("D13").Select()

  1541.         myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone : myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone

  1542.         myExcel.Selection.Borders(xlEdgeLeft).LineStyle = xlNone : myExcel.Selection.Borders(xlEdgeTop).LineStyle = xlNone

  1543.         With myExcel.Selection.Borders(xlEdgeBottom) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  1544.         myExcel.Selection.Borders(xlEdgeRight).LineStyle = xlNone : myExcel.Selection.Borders(xlInsideVertical).LineStyle = xlNone

  1545.         myExcel.Selection.Borders(xlInsideHorizontal).LineStyle = xlNone

  1546.         With myExcel.Selection : .HorizontalAlignment = xlGeneral : .VerticalAlignment = xlCenter : .WrapText = True : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0

  1547.             .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False : End With

  1548. 

  1549.         myExcel.ActiveSheet.PageSetup.CenterHeaderPicture.Filename =

  1550.             Str01 & "\HXBWLOG.png"

  1551.         myExcel.Application.PrintCommunication = False : With myExcel.ActiveSheet.PageSetup : .PrintTitleRows = "" : .PrintTitleColumns = "" : End With

  1552.         myExcel.Application.PrintCommunication = True : myExcel.ActiveSheet.PageSetup.PrintArea = "" : myExcel.Application.PrintCommunication = False

  1553.         With myExcel.ActiveSheet.PageSetup : .LeftHeader = ""

  1554.             .CenterHeader = "" & Chr(10) & "" & Chr(10) & "" & Chr(10) & "" & Chr(10) & "" & Chr(10) & "" & Chr(10) & "" & Chr(10) & "" & Chr(10) & "&G"

  1555.             .RightHeader = "" : .LeftFooter = "" : .CenterFooter = "" : .RightFooter = ""

  1556.             .LeftMargin = myExcel.Application.InchesToPoints(0.236220472440945) : .RightMargin = myExcel.Application.InchesToPoints(0.236220472440945)

  1557.             .TopMargin = myExcel.Application.InchesToPoints(0.748031496062992) : .BottomMargin = myExcel.Application.InchesToPoints(0.748031496062992)

  1558.             .HeaderMargin = myExcel.Application.InchesToPoints(0.31496062992126) : .FooterMargin = myExcel.Application.InchesToPoints(0.31496062992126)

  1559.             .PrintHeadings = False : .PrintGridlines = False :  .CenterHorizontally = True : .CenterVertically = False

  1560.             .Draft = False : .FirstPageNumber = xlAutomatic : .BlackAndWhite = False : .Zoom = False : .FitToPagesWide = 1 : .FitToPagesTall = False

  1561.             .OddAndEvenPagesHeaderFooter = False : .DifferentFirstPageHeaderFooter = False : .ScaleWithDocHeaderFooter = True : .AlignMarginsHeaderFooter = True

  1562.             .EvenPage.LeftHeader.Text = "" : .EvenPage.CenterHeader.Text = "" : .EvenPage.RightHeader.Text = "" : .EvenPage.LeftFooter.Text = ""

  1563.             .EvenPage.CenterFooter.Text = "" : .EvenPage.RightFooter.Text = "" : .FirstPage.LeftHeader.Text = "" : .FirstPage.CenterHeader.Text = ""

  1564.             .FirstPage.RightHeader.Text = "" : .FirstPage.LeftFooter.Text = "" : .FirstPage.CenterFooter.Text = "" : .FirstPage.RightFooter.Text = ""

  1565.         End With

  1566.         myExcel.Application.PrintCommunication = True

  1567.     End Sub

  1568.     Private Sub CC(ByVal myExcel As Microsoft.Office.Interop.Excel.Application, ByVal xlSheet As Worksheet)

  1569.         Clipboard.SetDataObject(PictureBox1.Image)

  1570.         xlSheet.Range("A1").Select()

  1571.         myExcel.ActiveSheet.Pictures.Paste.Select

  1572.         myExcel.Selection.ShapeRange.Height = 88

  1573.         myExcel.Selection.ShapeRange.IncrementLeft(50)

  1574.         myExcel.Selection.ShapeRange.IncrementTop(2)

  1575.     End Sub

  1576.     Private Sub DD(ByVal myExcel As Microsoft.Office.Interop.Excel.Application, ByVal xlSheet As Worksheet)

  1577.         Clipboard.SetDataObject(PictureBox2.Image)

  1578.         xlSheet.Range("A1").Select()

  1579.         myExcel.ActiveSheet.Pictures.Paste.Select

  1580.         myExcel.Selection.ShapeRange.Height = 88

  1581.         myExcel.Selection.ShapeRange.IncrementLeft(50)

  1582.         myExcel.Selection.ShapeRange.IncrementTop(2)

  1583.     End Sub

  1584. 

  1585.     Private Sub HX_ch_CheckedChanged(sender As Object, e As EventArgs) Handles HX_ch.Click

  1586.         HX_ch.Checked = True : PGS_ch.Checked = False : ALL_ch.Checked = False : Set_清單1()

  1587.     End Sub

  1588. 

  1589.     Private Sub PGS_ch_CheckedChanged(sender As Object, e As EventArgs) Handles PGS_ch.Click

  1590.         HX_ch.Checked = False : PGS_ch.Checked = True : ALL_ch.Checked = False : Set_清單1()

  1591.     End Sub

  1592. 

  1593.     Private Sub ALL_ch_CheckedChanged(sender As Object, e As EventArgs) Handles ALL_ch.Click

  1594.         HX_ch.Checked = False : PGS_ch.Checked = False : ALL_ch.Checked = True : Set_清單1()

  1595.     End Sub

  1596. 

  1597.     Private Sub 月_ch_Click(sender As Object, e As EventArgs) Handles 月_ch.Click

  1598.         月_ch.Checked = True : 週_ch.Checked = False : 日_ch.Checked = False : 修改BT() : 當月_bt.PerformClick()

  1599.     End Sub

  1600.     Private Sub 週_ch_Click(sender As Object, e As EventArgs) Handles 週_ch.Click

  1601.         月_ch.Checked = False : 週_ch.Checked = True : 日_ch.Checked = False : 修改BT() : 當月_bt.PerformClick()

  1602.     End Sub

  1603.     Private Sub 日_ch_Click(sender As Object, e As EventArgs) Handles 日_ch.Click

  1604.         月_ch.Checked = False : 週_ch.Checked = False : 日_ch.Checked = True : 修改BT() : 當月_bt.PerformClick()

  1605.     End Sub

  1606. 

  1607.     Private Sub 當月_bt_Click(sender As Object, e As EventArgs) Handles 當月_bt.Click

  1608.         If 月_ch.Checked Then

  1609.             開始日期_dtp.Value = New Date(Today.Year, Today.Month, 1)

  1610.             結束日期_dtp.Value = 開始日期_dtp.Value.AddMonths(1).AddDays(-1)

  1611.         ElseIf 週_ch.Checked Then

  1612.             開始日期_dtp.Value = Today.AddDays(-Today.DayOfWeek)

  1613.             結束日期_dtp.Value = Today.AddDays(6 - Today.DayOfWeek)

  1614.         ElseIf 日_ch.Checked Then

  1615.             開始日期_dtp.Value = Today

  1616.             結束日期_dtp.Value = Today

  1617.         End If

  1618.     End Sub

  1619.     Private Sub 上個月_bt_Click(sender As Object, e As EventArgs) Handles 上個月_bt.Click

  1620.         If 月_ch.Checked Then

  1621.             Dim today As Date = 開始日期_dtp.Value

  1622.             Dim 前一個月第一天 As Date = today.AddMonths(-1).AddDays(1 - today.Day)

  1623.             Dim 前一個月最後一天 As Date = 前一個月第一天.AddMonths(1).AddDays(-1)

  1624.             開始日期_dtp.Value = 前一個月第一天

  1625.             結束日期_dtp.Value = 前一個月最後一天

  1626.         ElseIf 週_ch.Checked Then

  1627.             Dim today As Date = 開始日期_dtp.Value

  1628.             Dim 前一週第一天 As Date = today.AddDays(-7)

  1629.             Dim 前一週最後一天 As Date = today.AddDays(-1)

  1630.             開始日期_dtp.Value = 前一週第一天

  1631.             結束日期_dtp.Value = 前一週最後一天

  1632.         ElseIf 日_ch.Checked Then

  1633.             Dim today As Date = 開始日期_dtp.Value

  1634.             開始日期_dtp.Value = today.AddDays(-1)

  1635.             結束日期_dtp.Value = today.AddDays(-1)

  1636.         End If

  1637.     End Sub

  1638.     Private Sub 下個月_bt_Click(sender As Object, e As EventArgs) Handles 下個月_bt.Click

  1639.         If 月_ch.Checked Then

  1640.             Dim today As Date = 開始日期_dtp.Value

  1641.             Dim 下個月第一天 As Date = today.AddMonths(1).AddDays(-today.Day + 1)

  1642.             Dim 下個月最後一天 As Date = 下個月第一天.AddMonths(1).AddDays(-1)

  1643.             開始日期_dtp.Value = 下個月第一天

  1644.             結束日期_dtp.Value = 下個月最後一天

  1645.         ElseIf 週_ch.Checked Then

  1646.             Dim today As Date = 開始日期_dtp.Value

  1647.             Dim 下一週第一天 As Date = today.AddDays(7)

  1648.             Dim 下一週最後一天 As Date = today.AddDays(13)

  1649.             開始日期_dtp.Value = 下一週第一天

  1650.             結束日期_dtp.Value = 下一週最後一天

  1651.         ElseIf 日_ch.Checked Then

  1652.             Dim today As Date = 開始日期_dtp.Value

  1653.             開始日期_dtp.Value = today.AddDays(1)

  1654.             結束日期_dtp.Value = today.AddDays(1)

  1655.         End If

  1656.     End Sub

  1657.     Private Sub 支付對象_cb_Click(sender As Object, e As EventArgs) Handles 支付對象_cb.Click

  1658.         CB選擇清單(支付對象_cb, 支付對象_cb.Text)

  1659.     End Sub

  1660.     Private Sub 支付對象_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 支付對象_cb.SelectedIndexChanged

  1661.         If 支付對象_cb.Text.Substring(0, 1) = "A" Then

  1662.             For i As Integer = 0 To 支付對象1_dgv.Rows.Count - 1

  1663.                 Dim 要寫入的文字 As String = 支付對象_cb.Text.Substring(2)

  1664.                 If 要寫入的文字 = 支付對象1_dgv.Rows(i).Cells(2).Value.ToString Then

  1665.                     支付對象_cb.Text = 支付對象1_dgv.Rows(i).Cells(2).Value.ToString : 支付對象_tb.Text = 支付對象1_dgv.Rows(i).Cells(2).Value.ToString

  1666.                     支付銀行_tb.Text = 支付對象1_dgv.Rows(i).Cells(3).Value.ToString : 營行帳號_tb.Text = 支付對象1_dgv.Rows(i).Cells(4).Value.ToString

  1667.                     銀行支行_tb.Text = 支付對象1_dgv.Rows(i).Cells(5).Value.ToString

  1668.                     Exit For

  1669.                 End If

  1670.             Next

  1671.             支付銀行_tb.Enabled = False : 營行帳號_tb.Enabled = False : 銀行支行_tb.Enabled = False

  1672.         ElseIf 支付對象_cb.Text.Substring(0, 1) = "B" Then

  1673.             SQL_查詢支付對象資料(支付對象_cb.Text.Substring(2))

  1674.             If dr.Read() Then

  1675.                 支付對象_cb.Text = dr(0).ToString : 支付對象_tb.Text = dr(0).ToString

  1676.                 支付銀行_tb.Text = dr(1).ToString : 營行帳號_tb.Text = dr(2).ToString

  1677.                 銀行支行_tb.Text = dr(3).ToString

  1678.             Else

  1679.                 支付對象_cb.Text = 支付對象_cb.Text.Substring(2) : 支付對象_tb.Text = 支付對象_cb.Text.Substring(2)

  1680.                 支付銀行_tb.Text = "" : 營行帳號_tb.Text = "" : 銀行支行_tb.Text = ""

  1681.             End If

  1682.             支付銀行_tb.Enabled = True : 營行帳號_tb.Enabled = True : 銀行支行_tb.Enabled = True

  1683.         End If

  1684.     End Sub

  1685.     Private Sub 條件_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 條件_cb.SelectedIndexChanged

  1686.         If 已開啟 = True Then : Set_清單1() : End If

  1687.     End Sub

  1688.     Private Sub 解開星期五_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 解開星期五_ch.Click

  1689.         If 解開星期五_ch.Checked = True Then : 支付日期_dtp.Enabled = True : Else : 支付日期_dtp.Enabled = False : End If

  1690.     End Sub

  1691.     Private Sub 結束日期_dtp_ValueChanged(sender As Object, e As EventArgs) Handles 結束日期_dtp.ValueChanged

  1692.         If 已開啟 = True Then : Set_清單1() : End If

  1693.     End Sub

  1694.     Private Sub 風格()

  1695.         If 深色風格 = False Then

  1696.             Me.BackColor = SystemColors.Control

  1697.             財務單號_lb.ForeColor = Color.Black : Label1.ForeColor = Color.Black : Label2.ForeColor = Color.Black : 補單_cb.ForeColor = Color.Black

  1698.             Label3.ForeColor = Color.Black : Label4.ForeColor = Color.Black : Label5.ForeColor = Color.Black : 會計科目_lb.ForeColor = Color.Black

  1699.             Label6.ForeColor = Color.Black : Label7.ForeColor = Color.Black : Label8.ForeColor = Color.Black : Label9.ForeColor = Color.Black

  1700.             Label10.ForeColor = Color.Black : Label11.ForeColor = Color.Black : Label12.ForeColor = Color.Black : Label13.ForeColor = Color.Black

  1701.             Label14.ForeColor = Color.Black : HX_ch.ForeColor = Color.Black : PGS_ch.ForeColor = Color.Black : ALL_ch.ForeColor = Color.Black

  1702.             Label18.ForeColor = Color.Black : Label17.ForeColor = Color.Black : Label15.ForeColor = Color.Black : Label16.ForeColor = Color.Black

  1703.             Label19.ForeColor = Color.Black

  1704. 

  1705.             單號_tb.BackColor = Color.White : 單號_tb.ForeColor = Color.Black : 部門選單_cb.BackColor = Color.White : 部門選單_cb.ForeColor = Color.Black

  1706.             申請金額_nud.BackColor = Color.White : 申請金額_nud.ForeColor = Color.Black : 金額大寫_tb.BackColor = Color.White : 金額大寫_tb.ForeColor = Color.Black

  1707.             內容_tb.BackColor = Color.White : 內容_tb.ForeColor = Color.Black : 支付對象_tb.BackColor = Color.White : 支付對象_tb.ForeColor = Color.Black

  1708.             第二層_cb.BackColor = Color.White : 第二層_cb.ForeColor = Color.Black : 第三層_cb.BackColor = Color.White : 第三層_cb.ForeColor = Color.Black

  1709.             申請人_tb.BackColor = Color.White : 申請人_tb.ForeColor = Color.Black : 年份2_cb.BackColor = Color.White : 年份2_cb.ForeColor = Color.Black

  1710.             月份2_cb.BackColor = Color.White : 月份2_cb.ForeColor = Color.Black : 審核人_tb.BackColor = Color.White : 審核人_tb.ForeColor = Color.Black

  1711.             營行帳號_tb.BackColor = Color.White : 營行帳號_tb.ForeColor = Color.Black : 支付銀行_tb.BackColor = Color.White : 支付銀行_tb.ForeColor = Color.Black

  1712.             銀行支行_tb.BackColor = Color.White : 銀行支行_tb.ForeColor = Color.Black : 檢查人_tb.BackColor = Color.White : 檢查人_tb.ForeColor = Color.Black

  1713.             主管_tb.BackColor = Color.White : 主管_tb.ForeColor = Color.Black

  1714. 

  1715.             重選部門_bt.BackColor = Color.White : 開立收支單_bt.BackColor = Color.White : 申請完成_bt.BackColor = Color.White : 刪除收支單_bt.BackColor = Color.White

  1716.             列印成EXCEL_bt.BackColor = Color.White : 審核通過_bt.BackColor = Color.White : 單據作廢_bt.BackColor = Color.White : 檢查人_bt.BackColor = Color.White

  1717.             主管_bt.BackColor = Color.White

  1718. 

  1719.             財務收支單_dgv.EnableHeadersVisualStyles = True : 財務收支單_dgv.BackgroundColor = Color.White : 財務收支單_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black

  1720.             財務收支單_dgv.DefaultCellStyle.BackColor = Color.White : 財務收支單_dgv.DefaultCellStyle.ForeColor = Color.Black

  1721.         Else

  1722.             Me.BackColor = Color.Black

  1723.             財務單號_lb.ForeColor = Color.White : Label1.ForeColor = Color.White : Label2.ForeColor = Color.White : 補單_cb.ForeColor = Color.White

  1724.             Label3.ForeColor = Color.White : Label4.ForeColor = Color.White : Label5.ForeColor = Color.White : 會計科目_lb.ForeColor = Color.White

  1725.             Label6.ForeColor = Color.White : Label7.ForeColor = Color.White : Label8.ForeColor = Color.White : Label9.ForeColor = Color.White

  1726.             Label10.ForeColor = Color.White : Label11.ForeColor = Color.White : Label12.ForeColor = Color.White : Label13.ForeColor = Color.White

  1727.             Label14.ForeColor = Color.White : HX_ch.ForeColor = Color.White : PGS_ch.ForeColor = Color.White : ALL_ch.ForeColor = Color.White

  1728.             Label18.ForeColor = Color.White : Label17.ForeColor = Color.White : Label15.ForeColor = Color.White : Label16.ForeColor = Color.White

  1729.             Label19.ForeColor = Color.White

  1730. 

  1731.             單號_tb.BackColor = Color.DimGray : 單號_tb.ForeColor = Color.White : 部門選單_cb.BackColor = Color.DimGray : 部門選單_cb.ForeColor = Color.White

  1732.             申請金額_nud.BackColor = Color.DimGray : 申請金額_nud.ForeColor = Color.White : 金額大寫_tb.BackColor = Color.DimGray : 金額大寫_tb.ForeColor = Color.White

  1733.             內容_tb.BackColor = Color.DimGray : 內容_tb.ForeColor = Color.White : 支付對象_tb.BackColor = Color.DimGray : 支付對象_tb.ForeColor = Color.White

  1734.             第二層_cb.BackColor = Color.DimGray : 第二層_cb.ForeColor = Color.White : 第三層_cb.BackColor = Color.DimGray : 第三層_cb.ForeColor = Color.White

  1735.             申請人_tb.BackColor = Color.DimGray : 申請人_tb.ForeColor = Color.White : 年份2_cb.BackColor = Color.DimGray : 年份2_cb.ForeColor = Color.White

  1736.             月份2_cb.BackColor = Color.DimGray : 月份2_cb.ForeColor = Color.White : 審核人_tb.BackColor = Color.DimGray : 審核人_tb.ForeColor = Color.White

  1737.             營行帳號_tb.BackColor = Color.DimGray : 營行帳號_tb.ForeColor = Color.White : 支付銀行_tb.BackColor = Color.DimGray : 支付銀行_tb.ForeColor = Color.White

  1738.             銀行支行_tb.BackColor = Color.DimGray : 銀行支行_tb.ForeColor = Color.White : 檢查人_tb.BackColor = Color.DimGray : 檢查人_tb.ForeColor = Color.White

  1739.             主管_tb.BackColor = Color.DimGray : 主管_tb.ForeColor = Color.White

  1740. 

  1741.             重選部門_bt.BackColor = Color.DimGray : 開立收支單_bt.BackColor = Color.DimGray : 申請完成_bt.BackColor = Color.DimGray : 刪除收支單_bt.BackColor = Color.DimGray

  1742.             列印成EXCEL_bt.BackColor = Color.DimGray : 審核通過_bt.BackColor = Color.DimGray : 單據作廢_bt.BackColor = Color.DimGray : 檢查人_bt.BackColor = Color.DimGray

  1743.             主管_bt.BackColor = Color.DimGray

  1744. 

  1745.             財務收支單_dgv.EnableHeadersVisualStyles = False : 財務收支單_dgv.BackgroundColor = Color.DimGray : 財務收支單_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.White

  1746.             財務收支單_dgv.ColumnHeadersDefaultCellStyle.BackColor = Color.Black : 財務收支單_dgv.DefaultCellStyle.BackColor = Color.Black

  1747.             財務收支單_dgv.DefaultCellStyle.ForeColor = Color.White

  1748.         End If

  1749.     End Sub

  1750. End Class