HX-PGS-ERP-SYS
/
Calculator-SYS-LEEHSIEHJUI
Watch 4
Star 0
Fork 0
Code Issues 0 Pull Requests 0 Releases 0 Wiki Activity
No Description
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 Commits
1 Branch
Tree: dfcdd8ea19
Branches Tags
${ item.name }
Create branch ${ searchTerm }
from 'dfcdd8ea19'
${ noResults }
Calculator-SYS-LEEHSIEHJUI/Calculator-SYS/06、財務系統管理/每月零用金設定.vb

每月零用金設定.vb 373KB
History Raw

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980818283848586878889909192939495969798991001011021031041051061071081091101111121131141151161171181191201211221231241251261271281291301311321331341351361371381391401411421431441451461471481491501511521531541551561571581591601611621631641651661671681691701711721731741751761771781791801811821831841851861871881891901911921931941951961971981992002012022032042052062072082092102112122132142152162172182192202212222232242252262272282292302312322332342352362372382392402412422432442452462472482492502512522532542552562572582592602612622632642652662672682692702712722732742752762772782792802812822832842852862872882892902912922932942952962972982993003013023033043053063073083093103113123133143153163173183193203213223233243253263273283293303313323333343353363373383393403413423433443453463473483493503513523533543553563573583593603613623633643653663673683693703713723733743753763773783793803813823833843853863873883893903913923933943953963973983994004014024034044054064074084094104114124134144154164174184194204214224234244254264274284294304314324334344354364374384394404414424434444454464474484494504514524534544554564574584594604614624634644654664674684694704714724734744754764774784794804814824834844854864874884894904914924934944954964974984995005015025035045055065075085095105115125135145155165175185195205215225235245255265275285295305315325335345355365375385395405415425435445455465475485495505515525535545555565575585595605615625635645655665675685695705715725735745755765775785795805815825835845855865875885895905915925935945955965975985996006016026036046056066076086096106116126136146156166176186196206216226236246256266276286296306316326336346356366376386396406416426436446456466476486496506516526536546556566576586596606616626636646656666676686696706716726736746756766776786796806816826836846856866876886896906916926936946956966976986997007017027037047057067077087097107117127137147157167177187197207217227237247257267277287297307317327337347357367377387397407417427437447457467477487497507517527537547557567577587597607617627637647657667677687697707717727737747757767777787797807817827837847857867877887897907917927937947957967977987998008018028038048058068078088098108118128138148158168178188198208218228238248258268278288298308318328338348358368378388398408418428438448458468478488498508518528538548558568578588598608618628638648658668678688698708718728738748758768778788798808818828838848858868878888898908918928938948958968978988999009019029039049059069079089099109119129139149159169179189199209219229239249259269279289299309319329339349359369379389399409419429439449459469479489499509519529539549559569579589599609619629639649659669679689699709719729739749759769779789799809819829839849859869879889899909919929939949959969979989991000100110021003100410051006100710081009101010111012101310141015101610171018101910201021102210231024102510261027102810291030103110321033103410351036103710381039104010411042104310441045104610471048104910501051105210531054105510561057105810591060106110621063106410651066106710681069107010711072107310741075107610771078107910801081108210831084108510861087108810891090109110921093109410951096109710981099110011011102110311041105110611071108110911101111111211131114111511161117111811191120112111221123112411251126112711281129113011311132113311341135113611371138113911401141114211431144114511461147114811491150115111521153115411551156115711581159116011611162116311641165116611671168116911701171117211731174117511761177117811791180118111821183118411851186118711881189119011911192119311941195119611971198119912001201120212031204120512061207120812091210121112121213121412151216121712181219122012211222122312241225122612271228122912301231123212331234123512361237123812391240124112421243124412451246124712481249125012511252125312541255125612571258125912601261126212631264126512661267126812691270127112721273127412751276127712781279128012811282128312841285128612871288128912901291129212931294129512961297129812991300130113021303130413051306130713081309131013111312131313141315131613171318131913201321132213231324132513261327132813291330133113321333133413351336133713381339134013411342134313441345134613471348134913501351135213531354135513561357135813591360136113621363136413651366136713681369137013711372137313741375137613771378137913801381138213831384138513861387138813891390139113921393139413951396139713981399140014011402140314041405140614071408140914101411141214131414141514161417141814191420142114221423142414251426142714281429143014311432143314341435143614371438143914401441144214431444144514461447144814491450145114521453145414551456145714581459146014611462146314641465146614671468146914701471147214731474147514761477147814791480148114821483148414851486148714881489149014911492149314941495149614971498149915001501150215031504150515061507150815091510151115121513151415151516151715181519152015211522152315241525152615271528152915301531153215331534153515361537153815391540154115421543154415451546154715481549155015511552155315541555155615571558155915601561156215631564156515661567156815691570157115721573157415751576157715781579158015811582158315841585158615871588158915901591159215931594159515961597159815991600160116021603160416051606160716081609161016111612161316141615161616171618161916201621162216231624162516261627162816291630163116321633163416351636163716381639164016411642164316441645164616471648164916501651165216531654165516561657165816591660166116621663166416651666166716681669167016711672167316741675167616771678167916801681168216831684168516861687168816891690169116921693169416951696169716981699170017011702170317041705170617071708170917101711171217131714171517161717171817191720172117221723172417251726172717281729173017311732173317341735173617371738173917401741174217431744174517461747174817491750175117521753175417551756175717581759176017611762176317641765176617671768176917701771177217731774177517761777177817791780178117821783178417851786178717881789179017911792179317941795179617971798179918001801180218031804180518061807180818091810181118121813181418151816181718181819182018211822182318241825182618271828182918301831183218331834183518361837183818391840184118421843184418451846184718481849185018511852185318541855185618571858185918601861186218631864186518661867186818691870187118721873187418751876187718781879188018811882188318841885188618871888188918901891189218931894189518961897189818991900190119021903190419051906190719081909191019111912191319141915191619171918191919201921192219231924192519261927192819291930193119321933193419351936193719381939194019411942194319441945194619471948194919501951195219531954195519561957195819591960196119621963196419651966196719681969197019711972197319741975197619771978197919801981198219831984198519861987198819891990199119921993199419951996199719981999200020012002200320042005200620072008200920102011201220132014201520162017201820192020202120222023202420252026202720282029203020312032203320342035203620372038203920402041204220432044204520462047204820492050205120522053205420552056205720582059206020612062206320642065206620672068206920702071207220732074207520762077207820792080208120822083208420852086208720882089209020912092209320942095209620972098209921002101210221032104210521062107210821092110211121122113211421152116211721182119212021212122212321242125212621272128212921302131213221332134213521362137213821392140214121422143214421452146214721482149215021512152215321542155215621572158215921602161216221632164216521662167216821692170217121722173217421752176217721782179218021812182218321842185218621872188218921902191219221932194219521962197219821992200220122022203220422052206220722082209221022112212221322142215221622172218221922202221222222232224222522262227222822292230223122322233223422352236223722382239224022412242224322442245224622472248224922502251225222532254225522562257225822592260226122622263226422652266226722682269227022712272227322742275227622772278227922802281228222832284228522862287228822892290229122922293229422952296229722982299230023012302230323042305230623072308230923102311231223132314231523162317231823192320232123222323232423252326232723282329233023312332233323342335233623372338233923402341234223432344234523462347234823492350235123522353235423552356235723582359236023612362236323642365236623672368236923702371237223732374237523762377237823792380238123822383238423852386238723882389239023912392239323942395239623972398239924002401240224032404240524062407240824092410241124122413241424152416241724182419242024212422242324242425242624272428242924302431243224332434243524362437243824392440244124422443244424452446244724482449245024512452245324542455245624572458245924602461246224632464246524662467246824692470247124722473247424752476247724782479248024812482248324842485248624872488248924902491249224932494249524962497249824992500250125022503250425052506250725082509251025112512251325142515251625172518251925202521252225232524252525262527252825292530253125322533253425352536253725382539254025412542254325442545254625472548254925502551255225532554255525562557255825592560256125622563256425652566256725682569257025712572257325742575257625772578257925802581258225832584258525862587258825892590259125922593259425952596259725982599260026012602260326042605260626072608260926102611261226132614261526162617261826192620262126222623262426252626262726282629263026312632263326342635263626372638263926402641264226432644264526462647264826492650265126522653265426552656265726582659266026612662266326642665266626672668266926702671267226732674267526762677267826792680268126822683268426852686268726882689269026912692269326942695269626972698269927002701270227032704270527062707270827092710271127122713271427152716271727182719272027212722272327242725272627272728272927302731273227332734273527362737273827392740274127422743274427452746274727482749275027512752275327542755275627572758275927602761276227632764276527662767276827692770277127722773277427752776277727782779278027812782278327842785278627872788278927902791279227932794279527962797279827992800280128022803280428052806280728082809281028112812281328142815281628172818281928202821282228232824282528262827282828292830283128322833283428352836283728382839284028412842284328442845284628472848284928502851285228532854285528562857285828592860286128622863286428652866286728682869287028712872287328742875287628772878287928802881288228832884288528862887288828892890289128922893289428952896289728982899290029012902290329042905290629072908290929102911291229132914291529162917291829192920292129222923292429252926292729282929293029312932293329342935293629372938293929402941294229432944294529462947294829492950295129522953295429552956295729582959296029612962296329642965296629672968296929702971297229732974297529762977297829792980298129822983298429852986298729882989299029912992299329942995299629972998299930003001300230033004300530063007300830093010301130123013301430153016301730183019302030213022302330243025302630273028302930303031303230333034303530363037303830393040304130423043304430453046304730483049305030513052305330543055305630573058305930603061306230633064306530663067306830693070307130723073307430753076307730783079308030813082308330843085308630873088308930903091309230933094309530963097309830993100310131023103310431053106310731083109311031113112311331143115311631173118311931203121312231233124312531263127312831293130313131323133313431353136313731383139314031413142314331443145314631473148314931503151315231533154315531563157315831593160316131623163316431653166316731683169317031713172317331743175317631773178317931803181318231833184318531863187318831893190319131923193319431953196319731983199320032013202320332043205320632073208320932103211321232133214321532163217321832193220322132223223322432253226322732283229323032313232323332343235323632373238323932403241324232433244324532463247324832493250325132523253325432553256325732583259326032613262326332643265326632673268326932703271327232733274327532763277327832793280328132823283328432853286328732883289329032913292329332943295329632973298329933003301330233033304330533063307330833093310331133123313331433153316331733183319332033213322332333243325332633273328332933303331333233333334333533363337333833393340334133423343334433453346334733483349335033513352335333543355335633573358335933603361336233633364336533663367336833693370337133723373337433753376337733783379338033813382338333843385338633873388338933903391339233933394339533963397339833993400340134023403340434053406340734083409341034113412341334143415341634173418341934203421342234233424342534263427342834293430343134323433343434353436343734383439344034413442344334443445344634473448344934503451345234533454345534563457345834593460 
  1. Imports System.Globalization

  2. Public Class 每月零用金設定

  3.     Dim 間隔1, Hours, Hours舊, Xours, Xours舊, Qours, Qours舊, HMD As Integer

  4.     Dim 計算(6), X1, AUTO時, AUTO舊1, AUTO舊2 As String : Private ReadOnly 對話框(7) As String

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

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

  7.         Me.Text = 系統語言字典("G000-238-" & 語言)

  8.         Label11.Text = 系統語言字典("G000-239-" & 語言) : Label20.Text = 系統語言字典("G000-239-" & 語言) : Label23.Text = 系統語言字典("G000-239-" & 語言)

  9.         薪資計算_ch.Text = 系統語言字典("G000-240-" & 語言) : 採購計算_ch.Text = 系統語言字典("G000-241-" & 語言) : 物料採購_g.Text = 系統語言字典("G000-242-" & 語言)

  10.         GroupBox3.Text = 系統語言字典("G000-242-" & 語言) : GroupBox2.Text = 系統語言字典("G000-243-" & 語言) : GroupBox1.Text = 系統語言字典("G000-243-" & 語言)

  11.         DA1_bt.Text = 系統語言字典("H611-111-" & 語言) : DA2_bt.Text = 系統語言字典("H611-112-" & 語言) : DA3_bt.Text = 系統語言字典("H611-113-" & 語言)

  12.         考勤表_bt.Text = 系統語言字典("H611-116-" & 語言) : 薪資表_bt.Text = 系統語言字典("H611-117-" & 語言) : Label22.Text = 系統語言字典("H609-145-" & 語言)

  13.         Label1.Text = 系統語言字典("H611-119-" & 語言) : Label12.Text = 系統語言字典("H611-119-" & 語言) : Label19.Text = 系統語言字典("H611-120-" & 語言)

  14.         Label7.Text = 系統語言字典("H609-124-" & 語言) : Label17.Text = 系統語言字典("H609-144-" & 語言) : Label8.Text = 系統語言字典("H611-120-" & 語言)

  15.         設定_g.Text = 系統語言字典("G000-244-" & 語言) : Label9.Text = 系統語言字典("G000-245-" & 語言) : Label10.Text = 系統語言字典("G000-246-" & 語言)

  16.         Label3.Text = 系統語言字典("G000-247-" & 語言) : Label6.Text = 系統語言字典("G000-248-" & 語言) : Label15.Text = 系統語言字典("G000-249-" & 語言)

  17.         Label16.Text = 系統語言字典("G000-250-" & 語言) : 對話框(0) = 系統語言字典("G000-251-" & 語言) : 對話框(1) = 系統語言字典("G000-252-" & 語言)

  18.         對話框(2) = 系統語言字典("G000-253-" & 語言) : 對話框(3) = 系統語言字典("H204-133-" & 語言)

  19.         表頭(0) = 系統語言字典("H601-103-" & 語言) : 表頭(1) = 系統語言字典("H602-104-" & 語言) : 表頭(2) = 系統語言字典("H609-107-" & 語言) : 表頭(3) = 系統語言字典("H609-108-" & 語言)

  20.         表頭(4) = 系統語言字典("H609-109-" & 語言) : 表頭(5) = 系統語言字典("H609-110-" & 語言) : 表頭(6) = 系統語言字典("H609-111-" & 語言) : 表頭(7) = 系統語言字典("H609-112-" & 語言)

  21.         表頭(8) = 系統語言字典("H609-113-" & 語言) : 表頭(9) = 系統語言字典("H609-114-" & 語言) : 表頭(10) = 系統語言字典("H609-115-" & 語言) : 表頭(11) = 系統語言字典("H609-116-" & 語言)

  22.         表頭(12) = 系統語言字典("H609-117-" & 語言) : 表頭(13) = 系統語言字典("H609-118-" & 語言) : 表頭(14) = 系統語言字典("H609-119-" & 語言) : 表頭(15) = 系統語言字典("H609-120-" & 語言)

  23.         表頭(16) = 系統語言字典("H609-123-" & 語言) : 表頭(17) = 系統語言字典("H609-124-" & 語言) : 表頭(18) = 系統語言字典("H609-128-" & 語言) : 表頭(19) = 系統語言字典("H601-108-" & 語言)

  24.         表頭(20) = 系統語言字典("H609-129-" & 語言) : 表頭(21) = 系統語言字典("H609-125-" & 語言) : 表頭(22) = 系統語言字典("H607-103-" & 語言) : 表頭(23) = 系統語言字典("H609-130-" & 語言)

  25.         表頭(24) = 系統語言字典("H609-131-" & 語言) : 表頭(25) = 系統語言字典("H609-132-" & 語言) : 表頭(26) = 系統語言字典("H611-105-" & 語言) : 表頭(27) = 系統語言字典("H611-106-" & 語言)

  26.         表頭(28) = 系統語言字典("H611-107-" & 語言) : 表頭(29) = 系統語言字典("H611-108-" & 語言) : 表頭(30) = 系統語言字典("H611-109-" & 語言) : 表頭(64) = 系統語言字典("H611-122-" & 語言)

  27.         表頭(31) = 系統語言字典("H611-123-" & 語言) : 表頭(32) = 系統語言字典("H611-124-" & 語言) : 表頭(33) = 系統語言字典("H611-125-" & 語言) : 表頭(34) = 系統語言字典("H611-126-" & 語言)

  28.         表頭(35) = 系統語言字典("H611-127-" & 語言) : 表頭(36) = 系統語言字典("H611-128-" & 語言) : 表頭(37) = 系統語言字典("H611-129-" & 語言) : 表頭(38) = 系統語言字典("H611-130-" & 語言)

  29.         表頭(39) = 系統語言字典("H611-131-" & 語言) : 表頭(40) = 系統語言字典("H611-132-" & 語言) : 表頭(41) = 系統語言字典("H611-133-" & 語言) : 表頭(42) = 系統語言字典("H611-134-" & 語言)

  30.         表頭(43) = 系統語言字典("H611-135-" & 語言) : 表頭(44) = 系統語言字典("H611-136-" & 語言) : 表頭(45) = 系統語言字典("H611-137-" & 語言) : 表頭(46) = 系統語言字典("H611-138-" & 語言)

  31.         表頭(47) = 系統語言字典("H611-139-" & 語言) : 表頭(48) = 系統語言字典("H611-140-" & 語言) : 表頭(49) = 系統語言字典("H611-141-" & 語言) : 表頭(50) = 系統語言字典("H611-142-" & 語言)

  32.         表頭(51) = 系統語言字典("H611-143-" & 語言) : 表頭(52) = 系統語言字典("H611-144-" & 語言) : 表頭(53) = 系統語言字典("H611-145-" & 語言) : 表頭(54) = 系統語言字典("H611-146-" & 語言)

  33.         表頭(55) = 系統語言字典("H611-147-" & 語言) : 表頭(56) = 系統語言字典("H611-148-" & 語言) : 表頭(57) = 系統語言字典("H611-149-" & 語言) : 表頭(58) = 系統語言字典("H611-150-" & 語言)

  34.         表頭(59) = 系統語言字典("H611-151-" & 語言) : 表頭(60) = 系統語言字典("H611-152-" & 語言) : 表頭(61) = 系統語言字典("H611-153-" & 語言) : 表頭(62) = 系統語言字典("H611-154-" & 語言)

  35.         表頭(63) = 系統語言字典("H611-155-" & 語言)

  36.     End Sub

  37.     Private Sub Set_虛擬表()

  38.         Dim ds1 As New DataSet

  39.         虛擬表_dgv.DataSource = Nothing : ds1.Clear()

  40.         虛擬表_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing

  41.         虛擬表_dgv.ColumnHeadersHeight = 25 : 虛擬表_dgv.AllowUserToAddRows = False : 虛擬表_dgv.RowTemplate.Height = 25

  42.         SQL_考勤虛擬表() : PA25 = ""

  43.         da.Fill(ds1) : 虛擬表_dgv.DataSource = ds1.Tables(0) : conn.Close()

  44.     End Sub

  45.     Private Sub Set_供應商()

  46.         Dim ds1 As New DataSet

  47.         供應商_dgv.DataSource = Nothing : ds1.Clear()

  48.         供應商_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing

  49.         供應商_dgv.ColumnHeadersHeight = 25 : 供應商_dgv.AllowUserToAddRows = False : 供應商_dgv.RowTemplate.Height = 25

  50.         SQL_特殊供應商()

  51.         da.Fill(ds1) : 供應商_dgv.DataSource = ds1.Tables(0) : conn.Close()

  52.     End Sub

  53.     Private Sub Set_使用地點()

  54.         Dim ds1 As New DataSet

  55.         使用地點_dgv.DataSource = Nothing : ds1.Clear()

  56.         使用地點_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing

  57.         使用地點_dgv.ColumnHeadersHeight = 25 : 使用地點_dgv.AllowUserToAddRows = False : 使用地點_dgv.RowTemplate.Height = 25

  58.         SQL_使用地點()

  59.         da.Fill(ds1) : 使用地點_dgv.DataSource = ds1.Tables(0) : conn.Close()

  60.     End Sub

  61.     Private Sub Set_詢價人員()

  62.         Dim ds1 As New DataSet

  63.         核對與詢價_dgv.DataSource = Nothing : ds1.Clear()

  64.         核對與詢價_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing

  65.         核對與詢價_dgv.ColumnHeadersHeight = 25 : 核對與詢價_dgv.AllowUserToAddRows = False : 核對與詢價_dgv.RowTemplate.Height = 25

  66.         SQL_詢價人員()

  67.         da.Fill(ds1) : 核對與詢價_dgv.DataSource = ds1.Tables(0) : conn.Close()

  68.     End Sub

  69.     Private Sub Set_可用物料()

  70.         Dim ds1 As New DataSet

  71.         可用物料_dgv.DataSource = Nothing : ds1.Clear()

  72.         可用物料_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing

  73.         可用物料_dgv.ColumnHeadersHeight = 25 : 可用物料_dgv.AllowUserToAddRows = False : 可用物料_dgv.RowTemplate.Height = 25

  74.         SQL_可用物料()

  75.         da.Fill(ds1) : 可用物料_dgv.DataSource = ds1.Tables(0) : conn.Close()

  76.     End Sub

  77.     Private Sub Set_申請人()

  78.         Dim ds1 As New DataSet

  79.         申請人_dgv.DataSource = Nothing : ds1.Clear()

  80.         申請人_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing

  81.         申請人_dgv.ColumnHeadersHeight = 25 : 申請人_dgv.AllowUserToAddRows = False : 申請人_dgv.RowTemplate.Height = 25

  82.         SQL_申請人()

  83.         da.Fill(ds1) : 申請人_dgv.DataSource = ds1.Tables(0) : conn.Close()

  84.     End Sub

  85.     Private Sub Set_採購單號()

  86.         Dim ds1 As New DataSet

  87.         該月單號_dgv.DataSource = Nothing : ds1.Clear()

  88.         該月單號_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing

  89.         該月單號_dgv.ColumnHeadersHeight = 25 : 該月單號_dgv.AllowUserToAddRows = False : 該月單號_dgv.RowTemplate.Height = 25

  90.         SQL_該月單號()

  91.         da.Fill(ds1) : 該月單號_dgv.DataSource = ds1.Tables(0) : conn.Close()

  92.     End Sub

  93.     Private Sub Set_合約號()

  94.         Dim ds1 As New DataSet

  95.         合約號_dgv.DataSource = Nothing : ds1.Clear()

  96.         合約號_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing

  97.         合約號_dgv.ColumnHeadersHeight = 25 : 合約號_dgv.AllowUserToAddRows = False : 合約號_dgv.RowTemplate.Height = 25

  98.         SQL_合約號()

  99.         da.Fill(ds1) : 合約號_dgv.DataSource = ds1.Tables(0) : conn.Close()

  100.     End Sub

  101.     Private Sub Set_使用者清單()

  102.         Set_使用者清單1() : Set_使用者清單2() : Set_使用者清單3() : Set_使用者清單4() : Set_使用者清單5() : Set_使用者清單6() : 極限設定()

  103.     End Sub

  104.     Private Sub Set_使用者清單1()

  105.         PA25 = 星1_bt.Text : Set_虛擬表() : Dim ds1, ds2 As New DataSet

  106.         清單1_dgv.DataSource = Nothing : ds1.Clear()

  107.         清單1_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing

  108.         清單1_dgv.ColumnHeadersHeight = 45 : 清單1_dgv.AllowUserToAddRows = False : 清單1_dgv.RowTemplate.Height = 35

  109. 

  110.         If 群組1_cb.Text = "HARIAN GROUP" Then

  111.             SQL5 = " AND [HX-PGS-MSN].dbo.人員資料表.部門名稱 LIKE 'HARIAN GROUP'"

  112.             SQL4 = "[HX-PGS-MSN].dbo.人員資料表.員工代碼"

  113.         Else

  114.             SQL5 = " AND [HX-PGS-MSN].dbo.人員資料表.部門名稱 NOT LIKE 'HARIAN GROUP'"

  115.             SQL4 = "[HX-PGS-MSN].dbo.人員資料表.部門名稱,使用者權限管理表.姓名"

  116.         End If

  117.         PA25 = "" : SQL3 = "" : PA14 = "" : PA19 = "" : 工人 = True : 在職 = True

  118.         SQL_人員薪資表1() : da.Fill(ds1) : 清單1_dgv.DataSource = ds1.Tables(0) : conn.Close()

  119. 

  120.         清單1_dgv.Columns("Save.").FillWeight = 40 : 清單1_dgv.Columns(12).Visible = True : 清單1_dgv.Columns(50).Visible = False : 清單1_dgv.Columns(0).FillWeight = 120

  121.         清單1_dgv.Columns(4).FillWeight = 25

  122. 

  123.         For i As Integer = 2 To 14 : 清單1_dgv.Columns(i).Visible = False : Next : For i As Integer = 29 To 48 : 清單1_dgv.Columns(i).Visible = False : Next

  124.         For i As Integer = 15 To 28 : 清單1_dgv.Columns(i).FillWeight = 60 : Next : For i As Integer = 29 To 34 : 清單1_dgv.Columns(i).FillWeight = 60 : Next

  125.         For i As Integer = 35 To 48 : 清單1_dgv.Columns(i).FillWeight = 40 : Next : 清單1_dgv.Columns(12).Visible = True : 清單1_dgv.Columns(4).Visible = True

  126.         For i As Integer = 1 To 50 : 清單1_dgv.Columns(i).ReadOnly = True : Next

  127.         清單1_dgv.Columns(12).ReadOnly = False

  128. 

  129.         清單1_dgv.Columns(12).DefaultCellStyle.Format = "#,##0" : 清單1_dgv.Columns(13).DefaultCellStyle.Format = "#,##0"

  130.         For i As Integer = 4 To 11

  131.             清單1_dgv.Columns(i).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter

  132.             清單1_dgv.Columns(i).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  133.         Next

  134.         For i As Integer = 12 To 48

  135.             清單1_dgv.Columns(i).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter

  136.             清單1_dgv.Columns(i).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  137.         Next

  138. 

  139.         For i As Integer = 0 To 清單1_dgv.Rows.Count - 1

  140.             '-------------------------實際考勤--------------------------------------------------------------------------------------------------------------------

  141.             If 清單1_dgv.Rows(i).Cells(0).Value.ToString <> "" Then : 清單1_dgv.Rows(i).Cells(0).Value = 清單1_dgv.Rows(i).Cells(0).Value.ToString.ToUpper : End If

  142.             If 清單1_dgv.Rows(i).Cells(1).Value.ToString <> "" Then : 清單1_dgv.Rows(i).Cells(1).Value = 清單1_dgv.Rows(i).Cells(1).Value.ToString.ToUpper : End If

  143.             '-------------------------清空資料取得預設值--------------------------------------------------------------------------------------------------------------------

  144.             For FF As Integer = 15 To 48 : 清單1_dgv.Rows(i).Cells(FF).Value = "" : Next

  145. 

  146.             '-------------------------虛擬考勤--------------------------------------------------------------------------------------------------------------------

  147.             For ii As Integer = 0 To 虛擬表_dgv.Rows.Count - 1

  148.                 If 清單1_dgv.Rows(i).Cells(50).Value.ToString = 虛擬表_dgv.Rows(ii).Cells(0).Value.ToString Then

  149.                     If 月份2_cb.Text = Strings.Mid(星1_bt.Text, 6, 2) Then

  150.                         清單1_dgv.Rows(i).Cells(15).Value = 虛擬表_dgv.Rows(ii).Cells(1).Value.ToString : 清單1_dgv.Rows(i).Cells(16).Value = 虛擬表_dgv.Rows(ii).Cells(2).Value.ToString

  151.                     End If

  152.                     If 月份2_cb.Text = Strings.Mid(星2_bt.Text, 6, 2) Then

  153.                         清單1_dgv.Rows(i).Cells(17).Value = 虛擬表_dgv.Rows(ii).Cells(3).Value.ToString : 清單1_dgv.Rows(i).Cells(18).Value = 虛擬表_dgv.Rows(ii).Cells(4).Value.ToString

  154.                     End If

  155.                     If 月份2_cb.Text = Strings.Mid(星3_bt.Text, 6, 2) Then

  156.                         清單1_dgv.Rows(i).Cells(19).Value = 虛擬表_dgv.Rows(ii).Cells(5).Value.ToString : 清單1_dgv.Rows(i).Cells(20).Value = 虛擬表_dgv.Rows(ii).Cells(6).Value.ToString

  157.                     End If

  158.                     If 月份2_cb.Text = Strings.Mid(星4_bt.Text, 6, 2) Then

  159.                         清單1_dgv.Rows(i).Cells(21).Value = 虛擬表_dgv.Rows(ii).Cells(7).Value.ToString : 清單1_dgv.Rows(i).Cells(22).Value = 虛擬表_dgv.Rows(ii).Cells(8).Value.ToString

  160.                     End If

  161.                     If 月份2_cb.Text = Strings.Mid(星5_bt.Text, 6, 2) Then

  162.                         清單1_dgv.Rows(i).Cells(23).Value = 虛擬表_dgv.Rows(ii).Cells(9).Value.ToString : 清單1_dgv.Rows(i).Cells(24).Value = 虛擬表_dgv.Rows(ii).Cells(10).Value.ToString

  163.                     End If

  164.                     If 月份2_cb.Text = Strings.Mid(星6_bt.Text, 6, 2) Then

  165.                         清單1_dgv.Rows(i).Cells(25).Value = 虛擬表_dgv.Rows(ii).Cells(11).Value.ToString : 清單1_dgv.Rows(i).Cells(26).Value = 虛擬表_dgv.Rows(ii).Cells(12).Value.ToString

  166.                     End If

  167.                     If 月份2_cb.Text = Strings.Mid(星7_bt.Text, 6, 2) Then

  168.                         清單1_dgv.Rows(i).Cells(27).Value = 虛擬表_dgv.Rows(ii).Cells(13).Value.ToString : 清單1_dgv.Rows(i).Cells(28).Value = 虛擬表_dgv.Rows(ii).Cells(14).Value.ToString

  169.                     End If

  170.                 End If

  171.             Next

  172.         Next : AUTO第1周()

  173.     End Sub

  174.     Private Sub AUTO第1周()

  175.         For i As Integer = 0 To 清單1_dgv.Rows.Count - 1

  176.             '-------------------------計算星期一--------------------------------------------------------------------------------------------------------------------

  177.             If 清單1_dgv.Rows(i).Cells(15).Value.ToString <> "" And 清單1_dgv.Rows(i).Cells(16).Value.ToString <> "" Then

  178.                 X1 = 清單1_dgv.Rows(i).Cells(15).Value.ToString : Set_時段定點() : 計算(0) = X1 : X1 = 清單1_dgv.Rows(i).Cells(16).Value.ToString : Set_時段定點() : 計算(1) = X1 : 時間比對()

  179.                 If 間隔1 >= 240 And 間隔1 < 660 Then : 間隔1 -= 60 : ElseIf 間隔1 >= 660 Then : 間隔1 -= -120 : End If

  180.                 Dim 加班1 As Integer = 0 : Dim 時間 As Integer = 間隔1 / 60 : If 時間 <= 8 Then : Else : 加班1 = 時間 - 8 : 時間 = 8 : End If

  181.                 清單1_dgv.Rows(i).Cells(35).Value = 時間 : 清單1_dgv.Rows(i).Cells(36).Value = 加班1

  182.             Else : 清單1_dgv.Rows(i).Cells(35).Value = "" : 清單1_dgv.Rows(i).Cells(36).Value = "" : End If

  183.             '-------------------------計算星期二--------------------------------------------------------------------------------------------------------------------

  184.             If 清單1_dgv.Rows(i).Cells(17).Value.ToString <> "" And 清單1_dgv.Rows(i).Cells(18).Value.ToString <> "" Then

  185.                 X1 = 清單1_dgv.Rows(i).Cells(17).Value.ToString : Set_時段定點() : 計算(0) = X1 : X1 = 清單1_dgv.Rows(i).Cells(18).Value.ToString : Set_時段定點() : 計算(1) = X1 : 時間比對()

  186.                 If 間隔1 >= 240 And 間隔1 < 660 Then : 間隔1 -= 60 : ElseIf 間隔1 >= 660 Then : 間隔1 -= 120 : End If

  187.                 Dim 加班1 As Integer = 0 : Dim 時間 As Integer = 間隔1 / 60 : If 時間 <= 8 Then : Else : 加班1 = 時間 - 8 : 時間 = 8 : End If

  188.                 清單1_dgv.Rows(i).Cells(37).Value = 時間 : 清單1_dgv.Rows(i).Cells(38).Value = 加班1

  189.             Else : 清單1_dgv.Rows(i).Cells(37).Value = "" : 清單1_dgv.Rows(i).Cells(38).Value = "" : End If

  190.             '-------------------------計算星期三--------------------------------------------------------------------------------------------------------------------

  191.             If 清單1_dgv.Rows(i).Cells(19).Value.ToString <> "" And 清單1_dgv.Rows(i).Cells(20).Value.ToString <> "" Then

  192.                 X1 = 清單1_dgv.Rows(i).Cells(19).Value.ToString : Set_時段定點() : 計算(0) = X1 : X1 = 清單1_dgv.Rows(i).Cells(20).Value.ToString : Set_時段定點() : 計算(1) = X1 : 時間比對()

  193.                 If 間隔1 >= 240 And 間隔1 < 660 Then : 間隔1 -= 60 : ElseIf 間隔1 >= 660 Then : 間隔1 -= 120 : End If

  194.                 Dim 加班1 As Integer = 0 : Dim 時間 As Integer = 間隔1 / 60 : If 時間 <= 8 Then : Else : 加班1 = 時間 - 8 : 時間 = 8 : End If

  195.                 清單1_dgv.Rows(i).Cells(39).Value = 時間 : 清單1_dgv.Rows(i).Cells(40).Value = 加班1

  196.             Else : 清單1_dgv.Rows(i).Cells(39).Value = "" : 清單1_dgv.Rows(i).Cells(40).Value = "" : End If

  197.             '-------------------------計算星期四--------------------------------------------------------------------------------------------------------------------

  198.             If 清單1_dgv.Rows(i).Cells(21).Value.ToString <> "" And 清單1_dgv.Rows(i).Cells(22).Value.ToString <> "" Then

  199.                 X1 = 清單1_dgv.Rows(i).Cells(21).Value.ToString : Set_時段定點() : 計算(0) = X1 : X1 = 清單1_dgv.Rows(i).Cells(22).Value.ToString : Set_時段定點() : 計算(1) = X1 : 時間比對()

  200.                 If 間隔1 >= 240 And 間隔1 < 660 Then : 間隔1 -= 60 : ElseIf 間隔1 >= 660 Then : 間隔1 -= 120 : End If

  201.                 Dim 加班1 As Integer = 0 : Dim 時間 As Integer = 間隔1 / 60 : If 時間 <= 8 Then : Else : 加班1 = 時間 - 8 : 時間 = 8 : End If

  202.                 清單1_dgv.Rows(i).Cells(41).Value = 時間 : 清單1_dgv.Rows(i).Cells(42).Value = 加班1

  203.             Else : 清單1_dgv.Rows(i).Cells(41).Value = "" : 清單1_dgv.Rows(i).Cells(42).Value = "" : End If

  204.             '-------------------------計算星期五--------------------------------------------------------------------------------------------------------------------

  205.             If 清單1_dgv.Rows(i).Cells(23).Value.ToString <> "" And 清單1_dgv.Rows(i).Cells(24).Value.ToString <> "" Then

  206.                 X1 = 清單1_dgv.Rows(i).Cells(23).Value.ToString : Set_時段定點() : 計算(0) = X1 : X1 = 清單1_dgv.Rows(i).Cells(24).Value.ToString : Set_時段定點() : 計算(1) = X1 : 時間比對()

  207.                 If 間隔1 >= 240 And 間隔1 < 660 Then : 間隔1 -= 60 : ElseIf 間隔1 >= 660 Then : 間隔1 -= 120 : End If

  208.                 Dim 加班1 As Integer = 0 : Dim 時間 As Integer = 間隔1 / 60 : If 時間 <= 8 Then : Else : 加班1 = 時間 - 8 : 時間 = 8 : End If

  209.                 清單1_dgv.Rows(i).Cells(43).Value = 時間 : 清單1_dgv.Rows(i).Cells(44).Value = 加班1

  210.             Else : 清單1_dgv.Rows(i).Cells(43).Value = "" : 清單1_dgv.Rows(i).Cells(44).Value = "" : End If

  211.             '-------------------------計算星期六--------------------------------------------------------------------------------------------------------------------

  212.             If 清單1_dgv.Rows(i).Cells(25).Value.ToString <> "" And 清單1_dgv.Rows(i).Cells(26).Value.ToString <> "" Then

  213.                 X1 = 清單1_dgv.Rows(i).Cells(25).Value.ToString : Set_時段定點() : 計算(0) = X1 : X1 = 清單1_dgv.Rows(i).Cells(26).Value.ToString : Set_時段定點() : 計算(1) = X1 : 時間比對()

  214.                 If 間隔1 >= 240 And 間隔1 < 660 Then : 間隔1 -= 60 : ElseIf 間隔1 >= 660 Then : 間隔1 -= 120 : End If

  215.                 Dim 加班1 As Integer = 0 : Dim 時間 As Integer = 間隔1 / 60 : If 時間 <= 8 Then : Else : 加班1 = 時間 - 8 : 時間 = 8 : End If

  216.                 清單1_dgv.Rows(i).Cells(45).Value = 時間 : 清單1_dgv.Rows(i).Cells(46).Value = 加班1

  217.             Else : 清單1_dgv.Rows(i).Cells(45).Value = "" : 清單1_dgv.Rows(i).Cells(46).Value = "" : End If

  218.             '-------------------------計算星期日--------------------------------------------------------------------------------------------------------------------

  219.             If 清單1_dgv.Rows(i).Cells(27).Value.ToString <> "" And 清單1_dgv.Rows(i).Cells(28).Value.ToString <> "" Then

  220.                 X1 = 清單1_dgv.Rows(i).Cells(27).Value.ToString : Set_時段定點() : 計算(0) = X1 : X1 = 清單1_dgv.Rows(i).Cells(28).Value.ToString : Set_時段定點() : 計算(1) = X1 : 時間比對()

  221.                 If 間隔1 >= 240 And 間隔1 < 660 Then : 間隔1 -= 60 : ElseIf 間隔1 >= 660 Then : 間隔1 -= 120 : End If

  222.                 Dim 加班1 As Integer = 0 : Dim 時間 As Integer = 間隔1 / 60 : If 時間 <= 8 Then : Else : 加班1 = 時間 - 8 : 時間 = 8 : End If

  223.                 清單1_dgv.Rows(i).Cells(47).Value = 時間 : 清單1_dgv.Rows(i).Cells(48).Value = 加班1

  224.             Else : 清單1_dgv.Rows(i).Cells(47).Value = "" : 清單1_dgv.Rows(i).Cells(48).Value = "" : End If

  225. 

  226.             Dim 正常(6), 加班(6) As Integer

  227.             If 清單1_dgv.Rows(i).Cells(35).Value <> "" Then : 正常(0) = 清單1_dgv.Rows(i).Cells(35).Value.ToString : Else : 正常(0) = 0 : End If

  228.             If 清單1_dgv.Rows(i).Cells(37).Value <> "" Then : 正常(1) = 清單1_dgv.Rows(i).Cells(37).Value.ToString : Else : 正常(1) = 0 : End If

  229.             If 清單1_dgv.Rows(i).Cells(39).Value <> "" Then : 正常(2) = 清單1_dgv.Rows(i).Cells(39).Value.ToString : Else : 正常(2) = 0 : End If

  230.             If 清單1_dgv.Rows(i).Cells(41).Value <> "" Then : 正常(3) = 清單1_dgv.Rows(i).Cells(41).Value.ToString : Else : 正常(3) = 0 : End If

  231.             If 清單1_dgv.Rows(i).Cells(43).Value <> "" Then : 正常(4) = 清單1_dgv.Rows(i).Cells(43).Value.ToString : Else : 正常(4) = 0 : End If

  232.             If 清單1_dgv.Rows(i).Cells(45).Value <> "" Then : 正常(5) = 清單1_dgv.Rows(i).Cells(45).Value.ToString : Else : 正常(5) = 0 : End If

  233.             If 清單1_dgv.Rows(i).Cells(47).Value <> "" Then : 正常(6) = 清單1_dgv.Rows(i).Cells(47).Value.ToString : Else : 正常(6) = 0 : End If

  234. 

  235.             If 清單1_dgv.Rows(i).Cells(36).Value <> "" Then : 加班(0) = 清單1_dgv.Rows(i).Cells(36).Value.ToString : Else : 加班(0) = 0 : End If

  236.             If 清單1_dgv.Rows(i).Cells(38).Value <> "" Then : 加班(1) = 清單1_dgv.Rows(i).Cells(38).Value.ToString : Else : 加班(1) = 0 : End If

  237.             If 清單1_dgv.Rows(i).Cells(40).Value <> "" Then : 加班(2) = 清單1_dgv.Rows(i).Cells(40).Value.ToString : Else : 加班(2) = 0 : End If

  238.             If 清單1_dgv.Rows(i).Cells(42).Value <> "" Then : 加班(3) = 清單1_dgv.Rows(i).Cells(42).Value.ToString : Else : 加班(3) = 0 : End If

  239.             If 清單1_dgv.Rows(i).Cells(44).Value <> "" Then : 加班(4) = 清單1_dgv.Rows(i).Cells(44).Value.ToString : Else : 加班(4) = 0 : End If

  240.             If 清單1_dgv.Rows(i).Cells(46).Value <> "" Then : 加班(5) = 清單1_dgv.Rows(i).Cells(46).Value.ToString : Else : 加班(5) = 0 : End If

  241.             If 清單1_dgv.Rows(i).Cells(48).Value <> "" Then : 加班(6) = 清單1_dgv.Rows(i).Cells(48).Value.ToString : Else : 加班(6) = 0 : End If

  242. 

  243.             清單1_dgv.Rows(i).Cells(33).Value = 正常(0) + 正常(1) + 正常(2) + 正常(3) + 正常(4) + 正常(5) + 正常(6)

  244.             清單1_dgv.Rows(i).Cells(34).Value = 加班(0) + 加班(1) + 加班(2) + 加班(3) + 加班(4) + 加班(5) + 加班(6)

  245.             '-------------------------計算工資單價--------------------------------------------------------------------------------------------------------------------

  246.             If IsDBNull(清單1_dgv.Rows(i).Cells(12).Value) Then : Else

  247.                 If 清單1_dgv.Rows(i).Cells(12).Value.ToString <> "" Then

  248.                     清單1_dgv.Rows(i).Cells(31).Value = Strings.Format(清單1_dgv.Rows(i).Cells(12).Value / 8, "#,##0")

  249.                     清單1_dgv.Rows(i).Cells(32).Value = Strings.Format(清單1_dgv.Rows(i).Cells(12).Value / 6, "#,##0")

  250.                     清單1_dgv.Rows(i).Cells(29).Value = Strings.Format((清單1_dgv.Rows(i).Cells(12).Value / 8) * CLng(清單1_dgv.Rows(i).Cells(33).Value.ToString), "#,##0")

  251.                     清單1_dgv.Rows(i).Cells(30).Value = Strings.Format((清單1_dgv.Rows(i).Cells(12).Value / 6) * CLng(清單1_dgv.Rows(i).Cells(34).Value.ToString), "#,##0")

  252.                     清單1_dgv.Rows(i).Cells(13).Value = CLng(清單1_dgv.Rows(i).Cells(29).Value.ToString) + CLng(清單1_dgv.Rows(i).Cells(30).Value.ToString)

  253.                 End If

  254.             End If

  255.             清單1_dgv.Rows(i).Cells(4).Value = i + 1

  256.         Next

  257.     End Sub

  258. 

  259.     Private Sub Set_使用者清單2()

  260.         PA25 = 星8_bt.Text : Set_虛擬表() : Dim ds1, ds2 As New DataSet

  261.         清單2_dgv.DataSource = Nothing : ds1.Clear()

  262.         清單2_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing

  263.         清單2_dgv.ColumnHeadersHeight = 45 : 清單2_dgv.AllowUserToAddRows = False : 清單2_dgv.RowTemplate.Height = 35

  264. 

  265.         If 群組1_cb.Text = "HARIAN GROUP" Then

  266.             SQL5 = " AND [HX-PGS-MSN].dbo.人員資料表.部門名稱 LIKE 'HARIAN GROUP'"

  267.             SQL4 = "[HX-PGS-MSN].dbo.人員資料表.員工代碼"

  268.         Else

  269.             SQL5 = " AND [HX-PGS-MSN].dbo.人員資料表.部門名稱 NOT LIKE 'HARIAN GROUP'"

  270.             SQL4 = "[HX-PGS-MSN].dbo.人員資料表.部門名稱,使用者權限管理表.姓名"

  271.         End If

  272.         PA25 = "" : SQL3 = "" : PA14 = "" : PA19 = "" : 工人 = True : 在職 = True

  273.         SQL_人員薪資表1() : da.Fill(ds1) : 清單2_dgv.DataSource = ds1.Tables(0) : conn.Close()

  274. 

  275.         清單2_dgv.Columns("Save.").FillWeight = 40 : 清單2_dgv.Columns(12).Visible = True : 清單2_dgv.Columns(50).Visible = False : 清單2_dgv.Columns(0).FillWeight = 120

  276.         清單2_dgv.Columns(4).FillWeight = 25

  277. 

  278.         For i As Integer = 2 To 14 : 清單2_dgv.Columns(i).Visible = False : Next : For i As Integer = 29 To 48 : 清單2_dgv.Columns(i).Visible = False : Next

  279.         For i As Integer = 15 To 28 : 清單2_dgv.Columns(i).FillWeight = 60 : Next : For i As Integer = 29 To 34 : 清單2_dgv.Columns(i).FillWeight = 60 : Next

  280.         For i As Integer = 35 To 48 : 清單2_dgv.Columns(i).FillWeight = 40 : Next : 清單2_dgv.Columns(12).Visible = True : 清單2_dgv.Columns(4).Visible = True

  281.         For i As Integer = 1 To 50 : 清單2_dgv.Columns(i).ReadOnly = True : Next

  282.         清單2_dgv.Columns(12).ReadOnly = False

  283. 

  284.         清單2_dgv.Columns(12).DefaultCellStyle.Format = "#,##0" : 清單2_dgv.Columns(13).DefaultCellStyle.Format = "#,##0"

  285.         For i As Integer = 4 To 11

  286.             清單2_dgv.Columns(i).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter

  287.             清單2_dgv.Columns(i).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  288.         Next

  289.         For i As Integer = 12 To 48

  290.             清單2_dgv.Columns(i).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter

  291.             清單2_dgv.Columns(i).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  292.         Next

  293. 

  294.         For i As Integer = 0 To 清單2_dgv.Rows.Count - 1

  295.             '-------------------------實際考勤--------------------------------------------------------------------------------------------------------------------

  296.             If 清單2_dgv.Rows(i).Cells(0).Value.ToString <> "" Then : 清單2_dgv.Rows(i).Cells(0).Value = 清單2_dgv.Rows(i).Cells(0).Value.ToString.ToUpper : End If

  297.             If 清單2_dgv.Rows(i).Cells(1).Value.ToString <> "" Then : 清單2_dgv.Rows(i).Cells(1).Value = 清單2_dgv.Rows(i).Cells(1).Value.ToString.ToUpper : End If

  298.             '-------------------------清空資料取得預設值--------------------------------------------------------------------------------------------------------------------

  299.             For FF As Integer = 15 To 48 : 清單2_dgv.Rows(i).Cells(FF).Value = "" : Next

  300. 

  301.             '-------------------------虛擬考勤--------------------------------------------------------------------------------------------------------------------

  302.             For ii As Integer = 0 To 虛擬表_dgv.Rows.Count - 1

  303.                 If 清單2_dgv.Rows(i).Cells(50).Value.ToString = 虛擬表_dgv.Rows(ii).Cells(0).Value.ToString Then

  304.                     If 月份2_cb.Text = Strings.Mid(星8_bt.Text, 6, 2) Then

  305.                         清單2_dgv.Rows(i).Cells(15).Value = 虛擬表_dgv.Rows(ii).Cells(1).Value.ToString : 清單2_dgv.Rows(i).Cells(16).Value = 虛擬表_dgv.Rows(ii).Cells(2).Value.ToString

  306.                     End If

  307.                     If 月份2_cb.Text = Strings.Mid(星9_bt.Text, 6, 2) Then

  308.                         清單2_dgv.Rows(i).Cells(17).Value = 虛擬表_dgv.Rows(ii).Cells(3).Value.ToString : 清單2_dgv.Rows(i).Cells(18).Value = 虛擬表_dgv.Rows(ii).Cells(4).Value.ToString

  309.                     End If

  310.                     If 月份2_cb.Text = Strings.Mid(星10_bt.Text, 6, 2) Then

  311.                         清單2_dgv.Rows(i).Cells(19).Value = 虛擬表_dgv.Rows(ii).Cells(5).Value.ToString : 清單2_dgv.Rows(i).Cells(20).Value = 虛擬表_dgv.Rows(ii).Cells(6).Value.ToString

  312.                     End If

  313.                     If 月份2_cb.Text = Strings.Mid(星11_bt.Text, 6, 2) Then

  314.                         清單2_dgv.Rows(i).Cells(21).Value = 虛擬表_dgv.Rows(ii).Cells(7).Value.ToString : 清單2_dgv.Rows(i).Cells(22).Value = 虛擬表_dgv.Rows(ii).Cells(8).Value.ToString

  315.                     End If

  316.                     If 月份2_cb.Text = Strings.Mid(星12_bt.Text, 6, 2) Then

  317.                         清單2_dgv.Rows(i).Cells(23).Value = 虛擬表_dgv.Rows(ii).Cells(9).Value.ToString : 清單2_dgv.Rows(i).Cells(24).Value = 虛擬表_dgv.Rows(ii).Cells(10).Value.ToString

  318.                     End If

  319.                     If 月份2_cb.Text = Strings.Mid(星13_bt.Text, 6, 2) Then

  320.                         清單2_dgv.Rows(i).Cells(25).Value = 虛擬表_dgv.Rows(ii).Cells(11).Value.ToString : 清單2_dgv.Rows(i).Cells(26).Value = 虛擬表_dgv.Rows(ii).Cells(12).Value.ToString

  321.                     End If

  322.                     If 月份2_cb.Text = Strings.Mid(星14_bt.Text, 6, 2) Then

  323.                         清單2_dgv.Rows(i).Cells(27).Value = 虛擬表_dgv.Rows(ii).Cells(13).Value.ToString : 清單2_dgv.Rows(i).Cells(28).Value = 虛擬表_dgv.Rows(ii).Cells(14).Value.ToString

  324.                     End If

  325.                 End If

  326.             Next

  327.         Next : AUTO第2周()

  328.     End Sub

  329.     Private Sub AUTO第2周()

  330.         For i As Integer = 0 To 清單2_dgv.Rows.Count - 1

  331.             '-------------------------計算星期一--------------------------------------------------------------------------------------------------------------------

  332.             If 清單2_dgv.Rows(i).Cells(15).Value.ToString <> "" And 清單2_dgv.Rows(i).Cells(16).Value.ToString <> "" Then

  333.                 X1 = 清單2_dgv.Rows(i).Cells(15).Value.ToString : Set_時段定點() : 計算(0) = X1 : X1 = 清單2_dgv.Rows(i).Cells(16).Value.ToString : Set_時段定點() : 計算(1) = X1 : 時間比對()

  334.                 If 間隔1 >= 240 And 間隔1 < 660 Then : 間隔1 -= 60 : ElseIf 間隔1 >= 660 Then : 間隔1 -= -120 : End If

  335.                 Dim 加班1 As Integer = 0 : Dim 時間 As Integer = 間隔1 / 60 : If 時間 <= 8 Then : Else : 加班1 = 時間 - 8 : 時間 = 8 : End If

  336.                 清單2_dgv.Rows(i).Cells(35).Value = 時間 : 清單2_dgv.Rows(i).Cells(36).Value = 加班1

  337.             Else : 清單2_dgv.Rows(i).Cells(35).Value = "" : 清單2_dgv.Rows(i).Cells(36).Value = "" : End If

  338.             '-------------------------計算星期二--------------------------------------------------------------------------------------------------------------------

  339.             If 清單2_dgv.Rows(i).Cells(17).Value.ToString <> "" And 清單2_dgv.Rows(i).Cells(18).Value.ToString <> "" Then

  340.                 X1 = 清單2_dgv.Rows(i).Cells(17).Value.ToString : Set_時段定點() : 計算(0) = X1 : X1 = 清單2_dgv.Rows(i).Cells(18).Value.ToString : Set_時段定點() : 計算(1) = X1 : 時間比對()

  341.                 If 間隔1 >= 240 And 間隔1 < 660 Then : 間隔1 -= 60 : ElseIf 間隔1 >= 660 Then : 間隔1 -= 120 : End If

  342.                 Dim 加班1 As Integer = 0 : Dim 時間 As Integer = 間隔1 / 60 : If 時間 <= 8 Then : Else : 加班1 = 時間 - 8 : 時間 = 8 : End If

  343.                 清單2_dgv.Rows(i).Cells(37).Value = 時間 : 清單2_dgv.Rows(i).Cells(38).Value = 加班1

  344.             Else : 清單2_dgv.Rows(i).Cells(37).Value = "" : 清單2_dgv.Rows(i).Cells(38).Value = "" : End If

  345.             '-------------------------計算星期三--------------------------------------------------------------------------------------------------------------------

  346.             If 清單2_dgv.Rows(i).Cells(19).Value.ToString <> "" And 清單2_dgv.Rows(i).Cells(20).Value.ToString <> "" Then

  347.                 X1 = 清單2_dgv.Rows(i).Cells(19).Value.ToString : Set_時段定點() : 計算(0) = X1 : X1 = 清單2_dgv.Rows(i).Cells(20).Value.ToString : Set_時段定點() : 計算(1) = X1 : 時間比對()

  348.                 If 間隔1 >= 240 And 間隔1 < 660 Then : 間隔1 -= 60 : ElseIf 間隔1 >= 660 Then : 間隔1 -= 120 : End If

  349.                 Dim 加班1 As Integer = 0 : Dim 時間 As Integer = 間隔1 / 60 : If 時間 <= 8 Then : Else : 加班1 = 時間 - 8 : 時間 = 8 : End If

  350.                 清單2_dgv.Rows(i).Cells(39).Value = 時間 : 清單2_dgv.Rows(i).Cells(40).Value = 加班1

  351.             Else : 清單2_dgv.Rows(i).Cells(39).Value = "" : 清單2_dgv.Rows(i).Cells(40).Value = "" : End If

  352.             '-------------------------計算星期四--------------------------------------------------------------------------------------------------------------------

  353.             If 清單2_dgv.Rows(i).Cells(21).Value.ToString <> "" And 清單2_dgv.Rows(i).Cells(22).Value.ToString <> "" Then

  354.                 X1 = 清單2_dgv.Rows(i).Cells(21).Value.ToString : Set_時段定點() : 計算(0) = X1 : X1 = 清單2_dgv.Rows(i).Cells(22).Value.ToString : Set_時段定點() : 計算(1) = X1 : 時間比對()

  355.                 If 間隔1 >= 240 And 間隔1 < 660 Then : 間隔1 -= 60 : ElseIf 間隔1 >= 660 Then : 間隔1 -= 120 : End If

  356.                 Dim 加班1 As Integer = 0 : Dim 時間 As Integer = 間隔1 / 60 : If 時間 <= 8 Then : Else : 加班1 = 時間 - 8 : 時間 = 8 : End If

  357.                 清單2_dgv.Rows(i).Cells(41).Value = 時間 : 清單2_dgv.Rows(i).Cells(42).Value = 加班1

  358.             Else : 清單2_dgv.Rows(i).Cells(41).Value = "" : 清單2_dgv.Rows(i).Cells(42).Value = "" : End If

  359.             '-------------------------計算星期五--------------------------------------------------------------------------------------------------------------------

  360.             If 清單2_dgv.Rows(i).Cells(23).Value.ToString <> "" And 清單2_dgv.Rows(i).Cells(24).Value.ToString <> "" Then

  361.                 X1 = 清單2_dgv.Rows(i).Cells(23).Value.ToString : Set_時段定點() : 計算(0) = X1 : X1 = 清單2_dgv.Rows(i).Cells(24).Value.ToString : Set_時段定點() : 計算(1) = X1 : 時間比對()

  362.                 If 間隔1 >= 240 And 間隔1 < 660 Then : 間隔1 -= 60 : ElseIf 間隔1 >= 660 Then : 間隔1 -= 120 : End If

  363.                 Dim 加班1 As Integer = 0 : Dim 時間 As Integer = 間隔1 / 60 : If 時間 <= 8 Then : Else : 加班1 = 時間 - 8 : 時間 = 8 : End If

  364.                 清單2_dgv.Rows(i).Cells(43).Value = 時間 : 清單2_dgv.Rows(i).Cells(44).Value = 加班1

  365.             Else : 清單2_dgv.Rows(i).Cells(43).Value = "" : 清單2_dgv.Rows(i).Cells(44).Value = "" : End If

  366.             '-------------------------計算星期六--------------------------------------------------------------------------------------------------------------------

  367.             If 清單2_dgv.Rows(i).Cells(25).Value.ToString <> "" And 清單2_dgv.Rows(i).Cells(26).Value.ToString <> "" Then

  368.                 X1 = 清單2_dgv.Rows(i).Cells(25).Value.ToString : Set_時段定點() : 計算(0) = X1 : X1 = 清單2_dgv.Rows(i).Cells(26).Value.ToString : Set_時段定點() : 計算(1) = X1 : 時間比對()

  369.                 If 間隔1 >= 240 And 間隔1 < 660 Then : 間隔1 -= 60 : ElseIf 間隔1 >= 660 Then : 間隔1 -= 120 : End If

  370.                 Dim 加班1 As Integer = 0 : Dim 時間 As Integer = 間隔1 / 60 : If 時間 <= 8 Then : Else : 加班1 = 時間 - 8 : 時間 = 8 : End If

  371.                 清單2_dgv.Rows(i).Cells(45).Value = 時間 : 清單2_dgv.Rows(i).Cells(46).Value = 加班1

  372.             Else : 清單2_dgv.Rows(i).Cells(45).Value = "" : 清單2_dgv.Rows(i).Cells(46).Value = "" : End If

  373.             '-------------------------計算星期日--------------------------------------------------------------------------------------------------------------------

  374.             If 清單2_dgv.Rows(i).Cells(27).Value.ToString <> "" And 清單2_dgv.Rows(i).Cells(28).Value.ToString <> "" Then

  375.                 X1 = 清單2_dgv.Rows(i).Cells(27).Value.ToString : Set_時段定點() : 計算(0) = X1 : X1 = 清單2_dgv.Rows(i).Cells(28).Value.ToString : Set_時段定點() : 計算(1) = X1 : 時間比對()

  376.                 If 間隔1 >= 240 And 間隔1 < 660 Then : 間隔1 -= 60 : ElseIf 間隔1 >= 660 Then : 間隔1 -= 120 : End If

  377.                 Dim 加班1 As Integer = 0 : Dim 時間 As Integer = 間隔1 / 60 : If 時間 <= 8 Then : Else : 加班1 = 時間 - 8 : 時間 = 8 : End If

  378.                 清單2_dgv.Rows(i).Cells(47).Value = 時間 : 清單2_dgv.Rows(i).Cells(48).Value = 加班1

  379.             Else : 清單2_dgv.Rows(i).Cells(47).Value = "" : 清單2_dgv.Rows(i).Cells(48).Value = "" : End If

  380. 

  381.             Dim 正常(6), 加班(6) As Integer

  382.             If 清單2_dgv.Rows(i).Cells(35).Value <> "" Then : 正常(0) = 清單2_dgv.Rows(i).Cells(35).Value.ToString : Else : 正常(0) = 0 : End If

  383.             If 清單2_dgv.Rows(i).Cells(37).Value <> "" Then : 正常(1) = 清單2_dgv.Rows(i).Cells(37).Value.ToString : Else : 正常(1) = 0 : End If

  384.             If 清單2_dgv.Rows(i).Cells(39).Value <> "" Then : 正常(2) = 清單2_dgv.Rows(i).Cells(39).Value.ToString : Else : 正常(2) = 0 : End If

  385.             If 清單2_dgv.Rows(i).Cells(41).Value <> "" Then : 正常(3) = 清單2_dgv.Rows(i).Cells(41).Value.ToString : Else : 正常(3) = 0 : End If

  386.             If 清單2_dgv.Rows(i).Cells(43).Value <> "" Then : 正常(4) = 清單2_dgv.Rows(i).Cells(43).Value.ToString : Else : 正常(4) = 0 : End If

  387.             If 清單2_dgv.Rows(i).Cells(45).Value <> "" Then : 正常(5) = 清單2_dgv.Rows(i).Cells(45).Value.ToString : Else : 正常(5) = 0 : End If

  388.             If 清單2_dgv.Rows(i).Cells(47).Value <> "" Then : 正常(6) = 清單2_dgv.Rows(i).Cells(47).Value.ToString : Else : 正常(6) = 0 : End If

  389. 

  390.             If 清單2_dgv.Rows(i).Cells(36).Value <> "" Then : 加班(0) = 清單2_dgv.Rows(i).Cells(36).Value.ToString : Else : 加班(0) = 0 : End If

  391.             If 清單2_dgv.Rows(i).Cells(38).Value <> "" Then : 加班(1) = 清單2_dgv.Rows(i).Cells(38).Value.ToString : Else : 加班(1) = 0 : End If

  392.             If 清單2_dgv.Rows(i).Cells(40).Value <> "" Then : 加班(2) = 清單2_dgv.Rows(i).Cells(40).Value.ToString : Else : 加班(2) = 0 : End If

  393.             If 清單2_dgv.Rows(i).Cells(42).Value <> "" Then : 加班(3) = 清單2_dgv.Rows(i).Cells(42).Value.ToString : Else : 加班(3) = 0 : End If

  394.             If 清單2_dgv.Rows(i).Cells(44).Value <> "" Then : 加班(4) = 清單2_dgv.Rows(i).Cells(44).Value.ToString : Else : 加班(4) = 0 : End If

  395.             If 清單2_dgv.Rows(i).Cells(46).Value <> "" Then : 加班(5) = 清單2_dgv.Rows(i).Cells(46).Value.ToString : Else : 加班(5) = 0 : End If

  396.             If 清單2_dgv.Rows(i).Cells(48).Value <> "" Then : 加班(6) = 清單2_dgv.Rows(i).Cells(48).Value.ToString : Else : 加班(6) = 0 : End If

  397. 

  398.             清單2_dgv.Rows(i).Cells(33).Value = 正常(0) + 正常(1) + 正常(2) + 正常(3) + 正常(4) + 正常(5) + 正常(6)

  399.             清單2_dgv.Rows(i).Cells(34).Value = 加班(0) + 加班(1) + 加班(2) + 加班(3) + 加班(4) + 加班(5) + 加班(6)

  400.             '-------------------------計算工資單價--------------------------------------------------------------------------------------------------------------------

  401.             If IsDBNull(清單2_dgv.Rows(i).Cells(12).Value) Then : Else

  402.                 If 清單2_dgv.Rows(i).Cells(12).Value.ToString <> "" Then

  403.                     清單2_dgv.Rows(i).Cells(31).Value = Strings.Format(清單2_dgv.Rows(i).Cells(12).Value / 8, "#,##0")

  404.                     清單2_dgv.Rows(i).Cells(32).Value = Strings.Format(清單2_dgv.Rows(i).Cells(12).Value / 6, "#,##0")

  405.                     清單2_dgv.Rows(i).Cells(29).Value = Strings.Format((清單2_dgv.Rows(i).Cells(12).Value / 8) * CLng(清單2_dgv.Rows(i).Cells(33).Value.ToString), "#,##0")

  406.                     清單2_dgv.Rows(i).Cells(30).Value = Strings.Format((清單2_dgv.Rows(i).Cells(12).Value / 6) * CLng(清單2_dgv.Rows(i).Cells(34).Value.ToString), "#,##0")

  407.                     清單2_dgv.Rows(i).Cells(13).Value = CLng(清單2_dgv.Rows(i).Cells(29).Value.ToString) + CLng(清單2_dgv.Rows(i).Cells(30).Value.ToString)

  408.                 End If

  409.             End If

  410.             清單2_dgv.Rows(i).Cells(4).Value = i + 1

  411.         Next

  412.     End Sub

  413.     Private Sub Set_使用者清單3()

  414.         PA25 = 星15_bt.Text : Set_虛擬表() : Dim ds1, ds2 As New DataSet

  415.         清單3_dgv.DataSource = Nothing : ds1.Clear()

  416.         清單3_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing

  417.         清單3_dgv.ColumnHeadersHeight = 45 : 清單3_dgv.AllowUserToAddRows = False : 清單3_dgv.RowTemplate.Height = 35

  418. 

  419.         If 群組1_cb.Text = "HARIAN GROUP" Then

  420.             SQL5 = " AND [HX-PGS-MSN].dbo.人員資料表.部門名稱 LIKE 'HARIAN GROUP'"

  421.             SQL4 = "[HX-PGS-MSN].dbo.人員資料表.員工代碼"

  422.         Else

  423.             SQL5 = " AND [HX-PGS-MSN].dbo.人員資料表.部門名稱 NOT LIKE 'HARIAN GROUP'"

  424.             SQL4 = "[HX-PGS-MSN].dbo.人員資料表.部門名稱,使用者權限管理表.姓名"

  425.         End If

  426.         PA25 = "" : SQL3 = "" : PA14 = "" : PA19 = "" : 工人 = True : 在職 = True

  427.         SQL_人員薪資表1() : da.Fill(ds1) : 清單3_dgv.DataSource = ds1.Tables(0) : conn.Close()

  428. 

  429.         清單3_dgv.Columns("Save.").FillWeight = 40 : 清單3_dgv.Columns(12).Visible = True : 清單3_dgv.Columns(50).Visible = False : 清單3_dgv.Columns(0).FillWeight = 120

  430.         清單3_dgv.Columns(4).FillWeight = 25

  431. 

  432.         For i As Integer = 2 To 14 : 清單3_dgv.Columns(i).Visible = False : Next : For i As Integer = 29 To 48 : 清單3_dgv.Columns(i).Visible = False : Next

  433.         For i As Integer = 15 To 28 : 清單3_dgv.Columns(i).FillWeight = 60 : Next : For i As Integer = 29 To 34 : 清單3_dgv.Columns(i).FillWeight = 60 : Next

  434.         For i As Integer = 35 To 48 : 清單3_dgv.Columns(i).FillWeight = 40 : Next : 清單3_dgv.Columns(12).Visible = True : 清單3_dgv.Columns(4).Visible = True

  435.         For i As Integer = 1 To 50 : 清單3_dgv.Columns(i).ReadOnly = True : Next

  436.         清單3_dgv.Columns(12).ReadOnly = False

  437. 

  438.         清單3_dgv.Columns(12).DefaultCellStyle.Format = "#,##0" : 清單3_dgv.Columns(13).DefaultCellStyle.Format = "#,##0"

  439.         For i As Integer = 4 To 11

  440.             清單3_dgv.Columns(i).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter

  441.             清單3_dgv.Columns(i).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  442.         Next

  443.         For i As Integer = 12 To 48

  444.             清單3_dgv.Columns(i).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter

  445.             清單3_dgv.Columns(i).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  446.         Next

  447. 

  448.         For i As Integer = 0 To 清單3_dgv.Rows.Count - 1

  449.             '-------------------------實際考勤--------------------------------------------------------------------------------------------------------------------

  450.             If 清單3_dgv.Rows(i).Cells(0).Value.ToString <> "" Then : 清單3_dgv.Rows(i).Cells(0).Value = 清單3_dgv.Rows(i).Cells(0).Value.ToString.ToUpper : End If

  451.             If 清單3_dgv.Rows(i).Cells(1).Value.ToString <> "" Then : 清單3_dgv.Rows(i).Cells(1).Value = 清單3_dgv.Rows(i).Cells(1).Value.ToString.ToUpper : End If

  452.             '-------------------------清空資料取得預設值--------------------------------------------------------------------------------------------------------------------

  453.             For FF As Integer = 15 To 48 : 清單3_dgv.Rows(i).Cells(FF).Value = "" : Next

  454. 

  455.             '-------------------------虛擬考勤--------------------------------------------------------------------------------------------------------------------

  456.             For ii As Integer = 0 To 虛擬表_dgv.Rows.Count - 1

  457.                 If 清單3_dgv.Rows(i).Cells(50).Value.ToString = 虛擬表_dgv.Rows(ii).Cells(0).Value.ToString Then

  458.                     If 月份2_cb.Text = Strings.Mid(星15_bt.Text, 6, 2) Then

  459.                         清單3_dgv.Rows(i).Cells(15).Value = 虛擬表_dgv.Rows(ii).Cells(1).Value.ToString : 清單3_dgv.Rows(i).Cells(16).Value = 虛擬表_dgv.Rows(ii).Cells(2).Value.ToString

  460.                     End If

  461.                     If 月份2_cb.Text = Strings.Mid(星16_bt.Text, 6, 2) Then

  462.                         清單3_dgv.Rows(i).Cells(17).Value = 虛擬表_dgv.Rows(ii).Cells(3).Value.ToString : 清單3_dgv.Rows(i).Cells(18).Value = 虛擬表_dgv.Rows(ii).Cells(4).Value.ToString

  463.                     End If

  464.                     If 月份2_cb.Text = Strings.Mid(星17_bt.Text, 6, 2) Then

  465.                         清單3_dgv.Rows(i).Cells(19).Value = 虛擬表_dgv.Rows(ii).Cells(5).Value.ToString : 清單3_dgv.Rows(i).Cells(20).Value = 虛擬表_dgv.Rows(ii).Cells(6).Value.ToString

  466.                     End If

  467.                     If 月份2_cb.Text = Strings.Mid(星18_bt.Text, 6, 2) Then

  468.                         清單3_dgv.Rows(i).Cells(21).Value = 虛擬表_dgv.Rows(ii).Cells(7).Value.ToString : 清單3_dgv.Rows(i).Cells(22).Value = 虛擬表_dgv.Rows(ii).Cells(8).Value.ToString

  469.                     End If

  470.                     If 月份2_cb.Text = Strings.Mid(星19_bt.Text, 6, 2) Then

  471.                         清單3_dgv.Rows(i).Cells(23).Value = 虛擬表_dgv.Rows(ii).Cells(9).Value.ToString : 清單3_dgv.Rows(i).Cells(24).Value = 虛擬表_dgv.Rows(ii).Cells(10).Value.ToString

  472.                     End If

  473.                     If 月份2_cb.Text = Strings.Mid(星20_bt.Text, 6, 2) Then

  474.                         清單3_dgv.Rows(i).Cells(25).Value = 虛擬表_dgv.Rows(ii).Cells(11).Value.ToString : 清單3_dgv.Rows(i).Cells(26).Value = 虛擬表_dgv.Rows(ii).Cells(12).Value.ToString

  475.                     End If

  476.                     If 月份2_cb.Text = Strings.Mid(星21_bt.Text, 6, 2) Then

  477.                         清單3_dgv.Rows(i).Cells(27).Value = 虛擬表_dgv.Rows(ii).Cells(13).Value.ToString : 清單3_dgv.Rows(i).Cells(28).Value = 虛擬表_dgv.Rows(ii).Cells(14).Value.ToString

  478.                     End If

  479.                 End If

  480.             Next

  481.         Next : AUTO第3周()

  482.     End Sub

  483.     Private Sub AUTO第3周()

  484.         For i As Integer = 0 To 清單3_dgv.Rows.Count - 1

  485.             '-------------------------計算星期一--------------------------------------------------------------------------------------------------------------------

  486.             If 清單3_dgv.Rows(i).Cells(15).Value.ToString <> "" And 清單3_dgv.Rows(i).Cells(16).Value.ToString <> "" Then

  487.                 X1 = 清單3_dgv.Rows(i).Cells(15).Value.ToString : Set_時段定點() : 計算(0) = X1 : X1 = 清單3_dgv.Rows(i).Cells(16).Value.ToString : Set_時段定點() : 計算(1) = X1 : 時間比對()

  488.                 If 間隔1 >= 240 And 間隔1 < 660 Then : 間隔1 -= 60 : ElseIf 間隔1 >= 660 Then : 間隔1 -= -120 : End If

  489.                 Dim 加班1 As Integer = 0 : Dim 時間 As Integer = 間隔1 / 60 : If 時間 <= 8 Then : Else : 加班1 = 時間 - 8 : 時間 = 8 : End If

  490.                 清單3_dgv.Rows(i).Cells(35).Value = 時間 : 清單3_dgv.Rows(i).Cells(36).Value = 加班1

  491.             Else : 清單3_dgv.Rows(i).Cells(35).Value = "" : 清單3_dgv.Rows(i).Cells(36).Value = "" : End If

  492.             '-------------------------計算星期二--------------------------------------------------------------------------------------------------------------------

  493.             If 清單3_dgv.Rows(i).Cells(17).Value.ToString <> "" And 清單3_dgv.Rows(i).Cells(18).Value.ToString <> "" Then

  494.                 X1 = 清單3_dgv.Rows(i).Cells(17).Value.ToString : Set_時段定點() : 計算(0) = X1 : X1 = 清單3_dgv.Rows(i).Cells(18).Value.ToString : Set_時段定點() : 計算(1) = X1 : 時間比對()

  495.                 If 間隔1 >= 240 And 間隔1 < 660 Then : 間隔1 -= 60 : ElseIf 間隔1 >= 660 Then : 間隔1 -= 120 : End If

  496.                 Dim 加班1 As Integer = 0 : Dim 時間 As Integer = 間隔1 / 60 : If 時間 <= 8 Then : Else : 加班1 = 時間 - 8 : 時間 = 8 : End If

  497.                 清單3_dgv.Rows(i).Cells(37).Value = 時間 : 清單3_dgv.Rows(i).Cells(38).Value = 加班1

  498.             Else : 清單3_dgv.Rows(i).Cells(37).Value = "" : 清單3_dgv.Rows(i).Cells(38).Value = "" : End If

  499.             '-------------------------計算星期三--------------------------------------------------------------------------------------------------------------------

  500.             If 清單3_dgv.Rows(i).Cells(19).Value.ToString <> "" And 清單3_dgv.Rows(i).Cells(20).Value.ToString <> "" Then

  501.                 X1 = 清單3_dgv.Rows(i).Cells(19).Value.ToString : Set_時段定點() : 計算(0) = X1 : X1 = 清單3_dgv.Rows(i).Cells(20).Value.ToString : Set_時段定點() : 計算(1) = X1 : 時間比對()

  502.                 If 間隔1 >= 240 And 間隔1 < 660 Then : 間隔1 -= 60 : ElseIf 間隔1 >= 660 Then : 間隔1 -= 120 : End If

  503.                 Dim 加班1 As Integer = 0 : Dim 時間 As Integer = 間隔1 / 60 : If 時間 <= 8 Then : Else : 加班1 = 時間 - 8 : 時間 = 8 : End If

  504.                 清單3_dgv.Rows(i).Cells(39).Value = 時間 : 清單3_dgv.Rows(i).Cells(40).Value = 加班1

  505.             Else : 清單3_dgv.Rows(i).Cells(39).Value = "" : 清單3_dgv.Rows(i).Cells(40).Value = "" : End If

  506.             '-------------------------計算星期四--------------------------------------------------------------------------------------------------------------------

  507.             If 清單3_dgv.Rows(i).Cells(21).Value.ToString <> "" And 清單3_dgv.Rows(i).Cells(22).Value.ToString <> "" Then

  508.                 X1 = 清單3_dgv.Rows(i).Cells(21).Value.ToString : Set_時段定點() : 計算(0) = X1 : X1 = 清單3_dgv.Rows(i).Cells(22).Value.ToString : Set_時段定點() : 計算(1) = X1 : 時間比對()

  509.                 If 間隔1 >= 240 And 間隔1 < 660 Then : 間隔1 -= 60 : ElseIf 間隔1 >= 660 Then : 間隔1 -= 120 : End If

  510.                 Dim 加班1 As Integer = 0 : Dim 時間 As Integer = 間隔1 / 60 : If 時間 <= 8 Then : Else : 加班1 = 時間 - 8 : 時間 = 8 : End If

  511.                 清單3_dgv.Rows(i).Cells(41).Value = 時間 : 清單3_dgv.Rows(i).Cells(42).Value = 加班1

  512.             Else : 清單3_dgv.Rows(i).Cells(41).Value = "" : 清單3_dgv.Rows(i).Cells(42).Value = "" : End If

  513.             '-------------------------計算星期五--------------------------------------------------------------------------------------------------------------------

  514.             If 清單3_dgv.Rows(i).Cells(23).Value.ToString <> "" And 清單3_dgv.Rows(i).Cells(24).Value.ToString <> "" Then

  515.                 X1 = 清單3_dgv.Rows(i).Cells(23).Value.ToString : Set_時段定點() : 計算(0) = X1 : X1 = 清單3_dgv.Rows(i).Cells(24).Value.ToString : Set_時段定點() : 計算(1) = X1 : 時間比對()

  516.                 If 間隔1 >= 240 And 間隔1 < 660 Then : 間隔1 -= 60 : ElseIf 間隔1 >= 660 Then : 間隔1 -= 120 : End If

  517.                 Dim 加班1 As Integer = 0 : Dim 時間 As Integer = 間隔1 / 60 : If 時間 <= 8 Then : Else : 加班1 = 時間 - 8 : 時間 = 8 : End If

  518.                 清單3_dgv.Rows(i).Cells(43).Value = 時間 : 清單3_dgv.Rows(i).Cells(44).Value = 加班1

  519.             Else : 清單3_dgv.Rows(i).Cells(43).Value = "" : 清單3_dgv.Rows(i).Cells(44).Value = "" : End If

  520.             '-------------------------計算星期六--------------------------------------------------------------------------------------------------------------------

  521.             If 清單3_dgv.Rows(i).Cells(25).Value.ToString <> "" And 清單3_dgv.Rows(i).Cells(26).Value.ToString <> "" Then

  522.                 X1 = 清單3_dgv.Rows(i).Cells(25).Value.ToString : Set_時段定點() : 計算(0) = X1 : X1 = 清單3_dgv.Rows(i).Cells(26).Value.ToString : Set_時段定點() : 計算(1) = X1 : 時間比對()

  523.                 If 間隔1 >= 240 And 間隔1 < 660 Then : 間隔1 -= 60 : ElseIf 間隔1 >= 660 Then : 間隔1 -= 120 : End If

  524.                 Dim 加班1 As Integer = 0 : Dim 時間 As Integer = 間隔1 / 60 : If 時間 <= 8 Then : Else : 加班1 = 時間 - 8 : 時間 = 8 : End If

  525.                 清單3_dgv.Rows(i).Cells(45).Value = 時間 : 清單3_dgv.Rows(i).Cells(46).Value = 加班1

  526.             Else : 清單3_dgv.Rows(i).Cells(45).Value = "" : 清單3_dgv.Rows(i).Cells(46).Value = "" : End If

  527.             '-------------------------計算星期日--------------------------------------------------------------------------------------------------------------------

  528.             If 清單3_dgv.Rows(i).Cells(27).Value.ToString <> "" And 清單3_dgv.Rows(i).Cells(28).Value.ToString <> "" Then

  529.                 X1 = 清單3_dgv.Rows(i).Cells(27).Value.ToString : Set_時段定點() : 計算(0) = X1 : X1 = 清單3_dgv.Rows(i).Cells(28).Value.ToString : Set_時段定點() : 計算(1) = X1 : 時間比對()

  530.                 If 間隔1 >= 240 And 間隔1 < 660 Then : 間隔1 -= 60 : ElseIf 間隔1 >= 660 Then : 間隔1 -= 120 : End If

  531.                 Dim 加班1 As Integer = 0 : Dim 時間 As Integer = 間隔1 / 60 : If 時間 <= 8 Then : Else : 加班1 = 時間 - 8 : 時間 = 8 : End If

  532.                 清單3_dgv.Rows(i).Cells(47).Value = 時間 : 清單3_dgv.Rows(i).Cells(48).Value = 加班1

  533.             Else : 清單3_dgv.Rows(i).Cells(47).Value = "" : 清單3_dgv.Rows(i).Cells(48).Value = "" : End If

  534. 

  535.             Dim 正常(6), 加班(6) As Integer

  536.             If 清單3_dgv.Rows(i).Cells(35).Value <> "" Then : 正常(0) = 清單3_dgv.Rows(i).Cells(35).Value.ToString : Else : 正常(0) = 0 : End If

  537.             If 清單3_dgv.Rows(i).Cells(37).Value <> "" Then : 正常(1) = 清單3_dgv.Rows(i).Cells(37).Value.ToString : Else : 正常(1) = 0 : End If

  538.             If 清單3_dgv.Rows(i).Cells(39).Value <> "" Then : 正常(2) = 清單3_dgv.Rows(i).Cells(39).Value.ToString : Else : 正常(2) = 0 : End If

  539.             If 清單3_dgv.Rows(i).Cells(41).Value <> "" Then : 正常(3) = 清單3_dgv.Rows(i).Cells(41).Value.ToString : Else : 正常(3) = 0 : End If

  540.             If 清單3_dgv.Rows(i).Cells(43).Value <> "" Then : 正常(4) = 清單3_dgv.Rows(i).Cells(43).Value.ToString : Else : 正常(4) = 0 : End If

  541.             If 清單3_dgv.Rows(i).Cells(45).Value <> "" Then : 正常(5) = 清單3_dgv.Rows(i).Cells(45).Value.ToString : Else : 正常(5) = 0 : End If

  542.             If 清單3_dgv.Rows(i).Cells(47).Value <> "" Then : 正常(6) = 清單3_dgv.Rows(i).Cells(47).Value.ToString : Else : 正常(6) = 0 : End If

  543. 

  544.             If 清單3_dgv.Rows(i).Cells(36).Value <> "" Then : 加班(0) = 清單3_dgv.Rows(i).Cells(36).Value.ToString : Else : 加班(0) = 0 : End If

  545.             If 清單3_dgv.Rows(i).Cells(38).Value <> "" Then : 加班(1) = 清單3_dgv.Rows(i).Cells(38).Value.ToString : Else : 加班(1) = 0 : End If

  546.             If 清單3_dgv.Rows(i).Cells(40).Value <> "" Then : 加班(2) = 清單3_dgv.Rows(i).Cells(40).Value.ToString : Else : 加班(2) = 0 : End If

  547.             If 清單3_dgv.Rows(i).Cells(42).Value <> "" Then : 加班(3) = 清單3_dgv.Rows(i).Cells(42).Value.ToString : Else : 加班(3) = 0 : End If

  548.             If 清單3_dgv.Rows(i).Cells(44).Value <> "" Then : 加班(4) = 清單3_dgv.Rows(i).Cells(44).Value.ToString : Else : 加班(4) = 0 : End If

  549.             If 清單3_dgv.Rows(i).Cells(46).Value <> "" Then : 加班(5) = 清單3_dgv.Rows(i).Cells(46).Value.ToString : Else : 加班(5) = 0 : End If

  550.             If 清單3_dgv.Rows(i).Cells(48).Value <> "" Then : 加班(6) = 清單3_dgv.Rows(i).Cells(48).Value.ToString : Else : 加班(6) = 0 : End If

  551. 

  552.             清單3_dgv.Rows(i).Cells(33).Value = 正常(0) + 正常(1) + 正常(2) + 正常(3) + 正常(4) + 正常(5) + 正常(6)

  553.             清單3_dgv.Rows(i).Cells(34).Value = 加班(0) + 加班(1) + 加班(2) + 加班(3) + 加班(4) + 加班(5) + 加班(6)

  554.             '-------------------------計算工資單價--------------------------------------------------------------------------------------------------------------------

  555.             If IsDBNull(清單3_dgv.Rows(i).Cells(12).Value) Then : Else

  556.                 If 清單3_dgv.Rows(i).Cells(12).Value.ToString <> "" Then

  557.                     清單3_dgv.Rows(i).Cells(31).Value = Strings.Format(清單3_dgv.Rows(i).Cells(12).Value / 8, "#,##0")

  558.                     清單3_dgv.Rows(i).Cells(32).Value = Strings.Format(清單3_dgv.Rows(i).Cells(12).Value / 6, "#,##0")

  559.                     清單3_dgv.Rows(i).Cells(29).Value = Strings.Format((清單3_dgv.Rows(i).Cells(12).Value / 8) * CLng(清單3_dgv.Rows(i).Cells(33).Value.ToString), "#,##0")

  560.                     清單3_dgv.Rows(i).Cells(30).Value = Strings.Format((清單3_dgv.Rows(i).Cells(12).Value / 6) * CLng(清單3_dgv.Rows(i).Cells(34).Value.ToString), "#,##0")

  561.                     清單3_dgv.Rows(i).Cells(13).Value = CLng(清單3_dgv.Rows(i).Cells(29).Value.ToString) + CLng(清單3_dgv.Rows(i).Cells(30).Value.ToString)

  562.                 End If

  563.             End If

  564.             清單3_dgv.Rows(i).Cells(4).Value = i + 1

  565.         Next

  566.     End Sub

  567.     Private Sub Set_使用者清單4()

  568.         PA25 = 星22_bt.Text : Set_虛擬表() : Dim ds1, ds2 As New DataSet

  569.         清單4_dgv.DataSource = Nothing : ds1.Clear()

  570.         清單4_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing

  571.         清單4_dgv.ColumnHeadersHeight = 45 : 清單4_dgv.AllowUserToAddRows = False : 清單4_dgv.RowTemplate.Height = 35

  572. 

  573.         If 群組1_cb.Text = "HARIAN GROUP" Then

  574.             SQL5 = " AND [HX-PGS-MSN].dbo.人員資料表.部門名稱 LIKE 'HARIAN GROUP'"

  575.             SQL4 = "[HX-PGS-MSN].dbo.人員資料表.員工代碼"

  576.         Else

  577.             SQL5 = " AND [HX-PGS-MSN].dbo.人員資料表.部門名稱 NOT LIKE 'HARIAN GROUP'"

  578.             SQL4 = "[HX-PGS-MSN].dbo.人員資料表.部門名稱,使用者權限管理表.姓名"

  579.         End If

  580.         PA25 = "" : SQL3 = "" : PA14 = "" : PA19 = "" : 工人 = True : 在職 = True

  581.         SQL_人員薪資表1() : da.Fill(ds1) : 清單4_dgv.DataSource = ds1.Tables(0) : conn.Close()

  582. 

  583.         清單4_dgv.Columns("Save.").FillWeight = 40 : 清單4_dgv.Columns(12).Visible = True : 清單4_dgv.Columns(50).Visible = False : 清單4_dgv.Columns(0).FillWeight = 120

  584.         清單4_dgv.Columns(4).FillWeight = 25

  585. 

  586.         For i As Integer = 2 To 14 : 清單4_dgv.Columns(i).Visible = False : Next : For i As Integer = 29 To 48 : 清單4_dgv.Columns(i).Visible = False : Next

  587.         For i As Integer = 15 To 28 : 清單4_dgv.Columns(i).FillWeight = 60 : Next : For i As Integer = 29 To 34 : 清單4_dgv.Columns(i).FillWeight = 60 : Next

  588.         For i As Integer = 35 To 48 : 清單4_dgv.Columns(i).FillWeight = 40 : Next : 清單4_dgv.Columns(12).Visible = True : 清單4_dgv.Columns(4).Visible = True

  589.         For i As Integer = 1 To 50 : 清單4_dgv.Columns(i).ReadOnly = True : Next

  590.         清單4_dgv.Columns(12).ReadOnly = False

  591. 

  592.         清單4_dgv.Columns(12).DefaultCellStyle.Format = "#,##0" : 清單4_dgv.Columns(13).DefaultCellStyle.Format = "#,##0"

  593.         For i As Integer = 4 To 11

  594.             清單4_dgv.Columns(i).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter

  595.             清單4_dgv.Columns(i).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  596.         Next

  597.         For i As Integer = 12 To 48

  598.             清單4_dgv.Columns(i).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter

  599.             清單4_dgv.Columns(i).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  600.         Next

  601. 

  602.         For i As Integer = 0 To 清單4_dgv.Rows.Count - 1

  603.             '-------------------------實際考勤--------------------------------------------------------------------------------------------------------------------

  604.             If 清單4_dgv.Rows(i).Cells(0).Value.ToString <> "" Then : 清單4_dgv.Rows(i).Cells(0).Value = 清單4_dgv.Rows(i).Cells(0).Value.ToString.ToUpper : End If

  605.             If 清單4_dgv.Rows(i).Cells(1).Value.ToString <> "" Then : 清單4_dgv.Rows(i).Cells(1).Value = 清單4_dgv.Rows(i).Cells(1).Value.ToString.ToUpper : End If

  606.             '-------------------------清空資料取得預設值--------------------------------------------------------------------------------------------------------------------

  607.             For FF As Integer = 15 To 48 : 清單4_dgv.Rows(i).Cells(FF).Value = "" : Next

  608. 

  609.             '-------------------------虛擬考勤--------------------------------------------------------------------------------------------------------------------

  610.             For ii As Integer = 0 To 虛擬表_dgv.Rows.Count - 1

  611.                 If 清單4_dgv.Rows(i).Cells(50).Value.ToString = 虛擬表_dgv.Rows(ii).Cells(0).Value.ToString Then

  612.                     If 月份2_cb.Text = Strings.Mid(星22_bt.Text, 6, 2) Then

  613.                         清單4_dgv.Rows(i).Cells(15).Value = 虛擬表_dgv.Rows(ii).Cells(1).Value.ToString : 清單4_dgv.Rows(i).Cells(16).Value = 虛擬表_dgv.Rows(ii).Cells(2).Value.ToString

  614.                     End If

  615.                     If 月份2_cb.Text = Strings.Mid(星23_bt.Text, 6, 2) Then

  616.                         清單4_dgv.Rows(i).Cells(17).Value = 虛擬表_dgv.Rows(ii).Cells(3).Value.ToString : 清單4_dgv.Rows(i).Cells(18).Value = 虛擬表_dgv.Rows(ii).Cells(4).Value.ToString

  617.                     End If

  618.                     If 月份2_cb.Text = Strings.Mid(星24_bt.Text, 6, 2) Then

  619.                         清單4_dgv.Rows(i).Cells(19).Value = 虛擬表_dgv.Rows(ii).Cells(5).Value.ToString : 清單4_dgv.Rows(i).Cells(20).Value = 虛擬表_dgv.Rows(ii).Cells(6).Value.ToString

  620.                     End If

  621.                     If 月份2_cb.Text = Strings.Mid(星25_bt.Text, 6, 2) Then

  622.                         清單4_dgv.Rows(i).Cells(21).Value = 虛擬表_dgv.Rows(ii).Cells(7).Value.ToString : 清單4_dgv.Rows(i).Cells(22).Value = 虛擬表_dgv.Rows(ii).Cells(8).Value.ToString

  623.                     End If

  624.                     If 月份2_cb.Text = Strings.Mid(星26_bt.Text, 6, 2) Then

  625.                         清單4_dgv.Rows(i).Cells(23).Value = 虛擬表_dgv.Rows(ii).Cells(9).Value.ToString : 清單4_dgv.Rows(i).Cells(24).Value = 虛擬表_dgv.Rows(ii).Cells(10).Value.ToString

  626.                     End If

  627.                     If 月份2_cb.Text = Strings.Mid(星27_bt.Text, 6, 2) Then

  628.                         清單4_dgv.Rows(i).Cells(25).Value = 虛擬表_dgv.Rows(ii).Cells(11).Value.ToString : 清單4_dgv.Rows(i).Cells(26).Value = 虛擬表_dgv.Rows(ii).Cells(12).Value.ToString

  629.                     End If

  630.                     If 月份2_cb.Text = Strings.Mid(星28_bt.Text, 6, 2) Then

  631.                         清單4_dgv.Rows(i).Cells(27).Value = 虛擬表_dgv.Rows(ii).Cells(13).Value.ToString : 清單4_dgv.Rows(i).Cells(28).Value = 虛擬表_dgv.Rows(ii).Cells(14).Value.ToString

  632.                     End If

  633.                 End If

  634.             Next

  635.         Next : AUTO第4周()

  636.     End Sub

  637.     Private Sub AUTO第4周()

  638.         For i As Integer = 0 To 清單4_dgv.Rows.Count - 1

  639.             '-------------------------計算星期一--------------------------------------------------------------------------------------------------------------------

  640.             If 清單4_dgv.Rows(i).Cells(15).Value.ToString <> "" And 清單4_dgv.Rows(i).Cells(16).Value.ToString <> "" Then

  641.                 X1 = 清單4_dgv.Rows(i).Cells(15).Value.ToString : Set_時段定點() : 計算(0) = X1 : X1 = 清單4_dgv.Rows(i).Cells(16).Value.ToString : Set_時段定點() : 計算(1) = X1 : 時間比對()

  642.                 If 間隔1 >= 240 And 間隔1 < 660 Then : 間隔1 -= 60 : ElseIf 間隔1 >= 660 Then : 間隔1 -= -120 : End If

  643.                 Dim 加班1 As Integer = 0 : Dim 時間 As Integer = 間隔1 / 60 : If 時間 <= 8 Then : Else : 加班1 = 時間 - 8 : 時間 = 8 : End If

  644.                 清單4_dgv.Rows(i).Cells(35).Value = 時間 : 清單4_dgv.Rows(i).Cells(36).Value = 加班1

  645.             Else : 清單4_dgv.Rows(i).Cells(35).Value = "" : 清單4_dgv.Rows(i).Cells(36).Value = "" : End If

  646.             '-------------------------計算星期二--------------------------------------------------------------------------------------------------------------------

  647.             If 清單4_dgv.Rows(i).Cells(17).Value.ToString <> "" And 清單4_dgv.Rows(i).Cells(18).Value.ToString <> "" Then

  648.                 X1 = 清單4_dgv.Rows(i).Cells(17).Value.ToString : Set_時段定點() : 計算(0) = X1 : X1 = 清單4_dgv.Rows(i).Cells(18).Value.ToString : Set_時段定點() : 計算(1) = X1 : 時間比對()

  649.                 If 間隔1 >= 240 And 間隔1 < 660 Then : 間隔1 -= 60 : ElseIf 間隔1 >= 660 Then : 間隔1 -= 120 : End If

  650.                 Dim 加班1 As Integer = 0 : Dim 時間 As Integer = 間隔1 / 60 : If 時間 <= 8 Then : Else : 加班1 = 時間 - 8 : 時間 = 8 : End If

  651.                 清單4_dgv.Rows(i).Cells(37).Value = 時間 : 清單4_dgv.Rows(i).Cells(38).Value = 加班1

  652.             Else : 清單4_dgv.Rows(i).Cells(37).Value = "" : 清單4_dgv.Rows(i).Cells(38).Value = "" : End If

  653.             '-------------------------計算星期三--------------------------------------------------------------------------------------------------------------------

  654.             If 清單4_dgv.Rows(i).Cells(19).Value.ToString <> "" And 清單4_dgv.Rows(i).Cells(20).Value.ToString <> "" Then

  655.                 X1 = 清單4_dgv.Rows(i).Cells(19).Value.ToString : Set_時段定點() : 計算(0) = X1 : X1 = 清單4_dgv.Rows(i).Cells(20).Value.ToString : Set_時段定點() : 計算(1) = X1 : 時間比對()

  656.                 If 間隔1 >= 240 And 間隔1 < 660 Then : 間隔1 -= 60 : ElseIf 間隔1 >= 660 Then : 間隔1 -= 120 : End If

  657.                 Dim 加班1 As Integer = 0 : Dim 時間 As Integer = 間隔1 / 60 : If 時間 <= 8 Then : Else : 加班1 = 時間 - 8 : 時間 = 8 : End If

  658.                 清單4_dgv.Rows(i).Cells(39).Value = 時間 : 清單4_dgv.Rows(i).Cells(40).Value = 加班1

  659.             Else : 清單4_dgv.Rows(i).Cells(39).Value = "" : 清單4_dgv.Rows(i).Cells(40).Value = "" : End If

  660.             '-------------------------計算星期四--------------------------------------------------------------------------------------------------------------------

  661.             If 清單4_dgv.Rows(i).Cells(21).Value.ToString <> "" And 清單4_dgv.Rows(i).Cells(22).Value.ToString <> "" Then

  662.                 X1 = 清單4_dgv.Rows(i).Cells(21).Value.ToString : Set_時段定點() : 計算(0) = X1 : X1 = 清單4_dgv.Rows(i).Cells(22).Value.ToString : Set_時段定點() : 計算(1) = X1 : 時間比對()

  663.                 If 間隔1 >= 240 And 間隔1 < 660 Then : 間隔1 -= 60 : ElseIf 間隔1 >= 660 Then : 間隔1 -= 120 : End If

  664.                 Dim 加班1 As Integer = 0 : Dim 時間 As Integer = 間隔1 / 60 : If 時間 <= 8 Then : Else : 加班1 = 時間 - 8 : 時間 = 8 : End If

  665.                 清單4_dgv.Rows(i).Cells(41).Value = 時間 : 清單4_dgv.Rows(i).Cells(42).Value = 加班1

  666.             Else : 清單4_dgv.Rows(i).Cells(41).Value = "" : 清單4_dgv.Rows(i).Cells(42).Value = "" : End If

  667.             '-------------------------計算星期五--------------------------------------------------------------------------------------------------------------------

  668.             If 清單4_dgv.Rows(i).Cells(23).Value.ToString <> "" And 清單4_dgv.Rows(i).Cells(24).Value.ToString <> "" Then

  669.                 X1 = 清單4_dgv.Rows(i).Cells(23).Value.ToString : Set_時段定點() : 計算(0) = X1 : X1 = 清單4_dgv.Rows(i).Cells(24).Value.ToString : Set_時段定點() : 計算(1) = X1 : 時間比對()

  670.                 If 間隔1 >= 240 And 間隔1 < 660 Then : 間隔1 -= 60 : ElseIf 間隔1 >= 660 Then : 間隔1 -= 120 : End If

  671.                 Dim 加班1 As Integer = 0 : Dim 時間 As Integer = 間隔1 / 60 : If 時間 <= 8 Then : Else : 加班1 = 時間 - 8 : 時間 = 8 : End If

  672.                 清單4_dgv.Rows(i).Cells(43).Value = 時間 : 清單4_dgv.Rows(i).Cells(44).Value = 加班1

  673.             Else : 清單4_dgv.Rows(i).Cells(43).Value = "" : 清單4_dgv.Rows(i).Cells(44).Value = "" : End If

  674.             '-------------------------計算星期六--------------------------------------------------------------------------------------------------------------------

  675.             If 清單4_dgv.Rows(i).Cells(25).Value.ToString <> "" And 清單4_dgv.Rows(i).Cells(26).Value.ToString <> "" Then

  676.                 X1 = 清單4_dgv.Rows(i).Cells(25).Value.ToString : Set_時段定點() : 計算(0) = X1 : X1 = 清單4_dgv.Rows(i).Cells(26).Value.ToString : Set_時段定點() : 計算(1) = X1 : 時間比對()

  677.                 If 間隔1 >= 240 And 間隔1 < 660 Then : 間隔1 -= 60 : ElseIf 間隔1 >= 660 Then : 間隔1 -= 120 : End If

  678.                 Dim 加班1 As Integer = 0 : Dim 時間 As Integer = 間隔1 / 60 : If 時間 <= 8 Then : Else : 加班1 = 時間 - 8 : 時間 = 8 : End If

  679.                 清單4_dgv.Rows(i).Cells(45).Value = 時間 : 清單4_dgv.Rows(i).Cells(46).Value = 加班1

  680.             Else : 清單4_dgv.Rows(i).Cells(45).Value = "" : 清單4_dgv.Rows(i).Cells(46).Value = "" : End If

  681.             '-------------------------計算星期日--------------------------------------------------------------------------------------------------------------------

  682.             If 清單4_dgv.Rows(i).Cells(27).Value.ToString <> "" And 清單4_dgv.Rows(i).Cells(28).Value.ToString <> "" Then

  683.                 X1 = 清單4_dgv.Rows(i).Cells(27).Value.ToString : Set_時段定點() : 計算(0) = X1 : X1 = 清單4_dgv.Rows(i).Cells(28).Value.ToString : Set_時段定點() : 計算(1) = X1 : 時間比對()

  684.                 If 間隔1 >= 240 And 間隔1 < 660 Then : 間隔1 -= 60 : ElseIf 間隔1 >= 660 Then : 間隔1 -= 120 : End If

  685.                 Dim 加班1 As Integer = 0 : Dim 時間 As Integer = 間隔1 / 60 : If 時間 <= 8 Then : Else : 加班1 = 時間 - 8 : 時間 = 8 : End If

  686.                 清單4_dgv.Rows(i).Cells(47).Value = 時間 : 清單4_dgv.Rows(i).Cells(48).Value = 加班1

  687.             Else : 清單4_dgv.Rows(i).Cells(47).Value = "" : 清單4_dgv.Rows(i).Cells(48).Value = "" : End If

  688. 

  689.             Dim 正常(6), 加班(6) As Integer

  690.             If 清單4_dgv.Rows(i).Cells(35).Value <> "" Then : 正常(0) = 清單4_dgv.Rows(i).Cells(35).Value.ToString : Else : 正常(0) = 0 : End If

  691.             If 清單4_dgv.Rows(i).Cells(37).Value <> "" Then : 正常(1) = 清單4_dgv.Rows(i).Cells(37).Value.ToString : Else : 正常(1) = 0 : End If

  692.             If 清單4_dgv.Rows(i).Cells(39).Value <> "" Then : 正常(2) = 清單4_dgv.Rows(i).Cells(39).Value.ToString : Else : 正常(2) = 0 : End If

  693.             If 清單4_dgv.Rows(i).Cells(41).Value <> "" Then : 正常(3) = 清單4_dgv.Rows(i).Cells(41).Value.ToString : Else : 正常(3) = 0 : End If

  694.             If 清單4_dgv.Rows(i).Cells(43).Value <> "" Then : 正常(4) = 清單4_dgv.Rows(i).Cells(43).Value.ToString : Else : 正常(4) = 0 : End If

  695.             If 清單4_dgv.Rows(i).Cells(45).Value <> "" Then : 正常(5) = 清單4_dgv.Rows(i).Cells(45).Value.ToString : Else : 正常(5) = 0 : End If

  696.             If 清單4_dgv.Rows(i).Cells(47).Value <> "" Then : 正常(6) = 清單4_dgv.Rows(i).Cells(47).Value.ToString : Else : 正常(6) = 0 : End If

  697. 

  698.             If 清單4_dgv.Rows(i).Cells(36).Value <> "" Then : 加班(0) = 清單4_dgv.Rows(i).Cells(36).Value.ToString : Else : 加班(0) = 0 : End If

  699.             If 清單4_dgv.Rows(i).Cells(38).Value <> "" Then : 加班(1) = 清單4_dgv.Rows(i).Cells(38).Value.ToString : Else : 加班(1) = 0 : End If

  700.             If 清單4_dgv.Rows(i).Cells(40).Value <> "" Then : 加班(2) = 清單4_dgv.Rows(i).Cells(40).Value.ToString : Else : 加班(2) = 0 : End If

  701.             If 清單4_dgv.Rows(i).Cells(42).Value <> "" Then : 加班(3) = 清單4_dgv.Rows(i).Cells(42).Value.ToString : Else : 加班(3) = 0 : End If

  702.             If 清單4_dgv.Rows(i).Cells(44).Value <> "" Then : 加班(4) = 清單4_dgv.Rows(i).Cells(44).Value.ToString : Else : 加班(4) = 0 : End If

  703.             If 清單4_dgv.Rows(i).Cells(46).Value <> "" Then : 加班(5) = 清單4_dgv.Rows(i).Cells(46).Value.ToString : Else : 加班(5) = 0 : End If

  704.             If 清單4_dgv.Rows(i).Cells(48).Value <> "" Then : 加班(6) = 清單4_dgv.Rows(i).Cells(48).Value.ToString : Else : 加班(6) = 0 : End If

  705. 

  706.             清單4_dgv.Rows(i).Cells(33).Value = 正常(0) + 正常(1) + 正常(2) + 正常(3) + 正常(4) + 正常(5) + 正常(6)

  707.             清單4_dgv.Rows(i).Cells(34).Value = 加班(0) + 加班(1) + 加班(2) + 加班(3) + 加班(4) + 加班(5) + 加班(6)

  708.             '-------------------------計算工資單價--------------------------------------------------------------------------------------------------------------------

  709.             If IsDBNull(清單4_dgv.Rows(i).Cells(12).Value) Then : Else

  710.                 If 清單4_dgv.Rows(i).Cells(12).Value.ToString <> "" Then

  711.                     清單4_dgv.Rows(i).Cells(31).Value = Strings.Format(清單4_dgv.Rows(i).Cells(12).Value / 8, "#,##0")

  712.                     清單4_dgv.Rows(i).Cells(32).Value = Strings.Format(清單4_dgv.Rows(i).Cells(12).Value / 6, "#,##0")

  713.                     清單4_dgv.Rows(i).Cells(29).Value = Strings.Format((清單4_dgv.Rows(i).Cells(12).Value / 8) * CLng(清單4_dgv.Rows(i).Cells(33).Value.ToString), "#,##0")

  714.                     清單4_dgv.Rows(i).Cells(30).Value = Strings.Format((清單4_dgv.Rows(i).Cells(12).Value / 6) * CLng(清單4_dgv.Rows(i).Cells(34).Value.ToString), "#,##0")

  715.                     清單4_dgv.Rows(i).Cells(13).Value = CLng(清單4_dgv.Rows(i).Cells(29).Value.ToString) + CLng(清單4_dgv.Rows(i).Cells(30).Value.ToString)

  716.                 End If

  717.             End If

  718.             清單4_dgv.Rows(i).Cells(4).Value = i + 1

  719.         Next

  720.     End Sub

  721.     Private Sub Set_使用者清單5()

  722.         PA25 = 星29_bt.Text : Set_虛擬表() : Dim ds1, ds2 As New DataSet

  723.         清單5_dgv.DataSource = Nothing : ds1.Clear()

  724.         清單5_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing

  725.         清單5_dgv.ColumnHeadersHeight = 45 : 清單5_dgv.AllowUserToAddRows = False : 清單5_dgv.RowTemplate.Height = 35

  726. 

  727.         If 群組1_cb.Text = "HARIAN GROUP" Then

  728.             SQL5 = " AND [HX-PGS-MSN].dbo.人員資料表.部門名稱 LIKE 'HARIAN GROUP'"

  729.             SQL4 = "[HX-PGS-MSN].dbo.人員資料表.員工代碼"

  730.         Else

  731.             SQL5 = " AND [HX-PGS-MSN].dbo.人員資料表.部門名稱 NOT LIKE 'HARIAN GROUP'"

  732.             SQL4 = "[HX-PGS-MSN].dbo.人員資料表.部門名稱,使用者權限管理表.姓名"

  733.         End If

  734.         PA25 = "" : SQL3 = "" : PA14 = "" : PA19 = "" : 工人 = True : 在職 = True

  735.         SQL_人員薪資表1() : da.Fill(ds1) : 清單5_dgv.DataSource = ds1.Tables(0) : conn.Close()

  736. 

  737.         清單5_dgv.Columns("Save.").FillWeight = 40 : 清單5_dgv.Columns(12).Visible = True : 清單5_dgv.Columns(50).Visible = False : 清單5_dgv.Columns(0).FillWeight = 120

  738.         清單5_dgv.Columns(4).FillWeight = 25

  739. 

  740.         For i As Integer = 2 To 14 : 清單5_dgv.Columns(i).Visible = False : Next : For i As Integer = 29 To 48 : 清單5_dgv.Columns(i).Visible = False : Next

  741.         For i As Integer = 15 To 28 : 清單5_dgv.Columns(i).FillWeight = 60 : Next : For i As Integer = 29 To 34 : 清單5_dgv.Columns(i).FillWeight = 60 : Next

  742.         For i As Integer = 35 To 48 : 清單5_dgv.Columns(i).FillWeight = 40 : Next : 清單5_dgv.Columns(12).Visible = True : 清單5_dgv.Columns(4).Visible = True

  743.         For i As Integer = 1 To 50 : 清單5_dgv.Columns(i).ReadOnly = True : Next

  744.         清單5_dgv.Columns(12).ReadOnly = False

  745. 

  746.         清單5_dgv.Columns(12).DefaultCellStyle.Format = "#,##0" : 清單5_dgv.Columns(13).DefaultCellStyle.Format = "#,##0"

  747.         For i As Integer = 4 To 11

  748.             清單5_dgv.Columns(i).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter

  749.             清單5_dgv.Columns(i).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  750.         Next

  751.         For i As Integer = 12 To 48

  752.             清單5_dgv.Columns(i).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter

  753.             清單5_dgv.Columns(i).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  754.         Next

  755. 

  756.         For i As Integer = 0 To 清單5_dgv.Rows.Count - 1

  757.             '-------------------------實際考勤--------------------------------------------------------------------------------------------------------------------

  758.             If 清單5_dgv.Rows(i).Cells(0).Value.ToString <> "" Then : 清單5_dgv.Rows(i).Cells(0).Value = 清單5_dgv.Rows(i).Cells(0).Value.ToString.ToUpper : End If

  759.             If 清單5_dgv.Rows(i).Cells(1).Value.ToString <> "" Then : 清單5_dgv.Rows(i).Cells(1).Value = 清單5_dgv.Rows(i).Cells(1).Value.ToString.ToUpper : End If

  760.             '-------------------------清空資料取得預設值--------------------------------------------------------------------------------------------------------------------

  761.             For FF As Integer = 15 To 48 : 清單5_dgv.Rows(i).Cells(FF).Value = "" : Next

  762. 

  763.             '-------------------------虛擬考勤--------------------------------------------------------------------------------------------------------------------

  764.             For ii As Integer = 0 To 虛擬表_dgv.Rows.Count - 1

  765.                 If 清單5_dgv.Rows(i).Cells(50).Value.ToString = 虛擬表_dgv.Rows(ii).Cells(0).Value.ToString Then

  766.                     If 月份2_cb.Text = Strings.Mid(星29_bt.Text, 6, 2) Then

  767.                         清單5_dgv.Rows(i).Cells(15).Value = 虛擬表_dgv.Rows(ii).Cells(1).Value.ToString : 清單5_dgv.Rows(i).Cells(16).Value = 虛擬表_dgv.Rows(ii).Cells(2).Value.ToString

  768.                     End If

  769.                     If 月份2_cb.Text = Strings.Mid(星30_bt.Text, 6, 2) Then

  770.                         清單5_dgv.Rows(i).Cells(17).Value = 虛擬表_dgv.Rows(ii).Cells(3).Value.ToString : 清單5_dgv.Rows(i).Cells(18).Value = 虛擬表_dgv.Rows(ii).Cells(4).Value.ToString

  771.                     End If

  772.                     If 月份2_cb.Text = Strings.Mid(星31_bt.Text, 6, 2) Then

  773.                         清單5_dgv.Rows(i).Cells(19).Value = 虛擬表_dgv.Rows(ii).Cells(5).Value.ToString : 清單5_dgv.Rows(i).Cells(20).Value = 虛擬表_dgv.Rows(ii).Cells(6).Value.ToString

  774.                     End If

  775.                     If 月份2_cb.Text = Strings.Mid(星32_bt.Text, 6, 2) Then

  776.                         清單5_dgv.Rows(i).Cells(21).Value = 虛擬表_dgv.Rows(ii).Cells(7).Value.ToString : 清單5_dgv.Rows(i).Cells(22).Value = 虛擬表_dgv.Rows(ii).Cells(8).Value.ToString

  777.                     End If

  778.                     If 月份2_cb.Text = Strings.Mid(星33_bt.Text, 6, 2) Then

  779.                         清單5_dgv.Rows(i).Cells(23).Value = 虛擬表_dgv.Rows(ii).Cells(9).Value.ToString : 清單5_dgv.Rows(i).Cells(24).Value = 虛擬表_dgv.Rows(ii).Cells(10).Value.ToString

  780.                     End If

  781.                     If 月份2_cb.Text = Strings.Mid(星34_bt.Text, 6, 2) Then

  782.                         清單5_dgv.Rows(i).Cells(25).Value = 虛擬表_dgv.Rows(ii).Cells(11).Value.ToString : 清單5_dgv.Rows(i).Cells(26).Value = 虛擬表_dgv.Rows(ii).Cells(12).Value.ToString

  783.                     End If

  784.                     If 月份2_cb.Text = Strings.Mid(星35_bt.Text, 6, 2) Then

  785.                         清單5_dgv.Rows(i).Cells(27).Value = 虛擬表_dgv.Rows(ii).Cells(13).Value.ToString : 清單5_dgv.Rows(i).Cells(28).Value = 虛擬表_dgv.Rows(ii).Cells(14).Value.ToString

  786.                     End If

  787.                 End If

  788.             Next

  789.         Next : AUTO第5周()

  790.     End Sub

  791.     Private Sub AUTO第5周()

  792.         For i As Integer = 0 To 清單5_dgv.Rows.Count - 1

  793.             '-------------------------計算星期一--------------------------------------------------------------------------------------------------------------------

  794.             If 清單5_dgv.Rows(i).Cells(15).Value.ToString <> "" And 清單5_dgv.Rows(i).Cells(16).Value.ToString <> "" Then

  795.                 X1 = 清單5_dgv.Rows(i).Cells(15).Value.ToString : Set_時段定點() : 計算(0) = X1 : X1 = 清單5_dgv.Rows(i).Cells(16).Value.ToString : Set_時段定點() : 計算(1) = X1 : 時間比對()

  796.                 If 間隔1 >= 240 And 間隔1 < 660 Then : 間隔1 -= 60 : ElseIf 間隔1 >= 660 Then : 間隔1 -= -120 : End If

  797.                 Dim 加班1 As Integer = 0 : Dim 時間 As Integer = 間隔1 / 60 : If 時間 <= 8 Then : Else : 加班1 = 時間 - 8 : 時間 = 8 : End If

  798.                 清單5_dgv.Rows(i).Cells(35).Value = 時間 : 清單5_dgv.Rows(i).Cells(36).Value = 加班1

  799.             Else : 清單5_dgv.Rows(i).Cells(35).Value = "" : 清單5_dgv.Rows(i).Cells(36).Value = "" : End If

  800.             '-------------------------計算星期二--------------------------------------------------------------------------------------------------------------------

  801.             If 清單5_dgv.Rows(i).Cells(17).Value.ToString <> "" And 清單5_dgv.Rows(i).Cells(18).Value.ToString <> "" Then

  802.                 X1 = 清單5_dgv.Rows(i).Cells(17).Value.ToString : Set_時段定點() : 計算(0) = X1 : X1 = 清單5_dgv.Rows(i).Cells(18).Value.ToString : Set_時段定點() : 計算(1) = X1 : 時間比對()

  803.                 If 間隔1 >= 240 And 間隔1 < 660 Then : 間隔1 -= 60 : ElseIf 間隔1 >= 660 Then : 間隔1 -= 120 : End If

  804.                 Dim 加班1 As Integer = 0 : Dim 時間 As Integer = 間隔1 / 60 : If 時間 <= 8 Then : Else : 加班1 = 時間 - 8 : 時間 = 8 : End If

  805.                 清單5_dgv.Rows(i).Cells(37).Value = 時間 : 清單5_dgv.Rows(i).Cells(38).Value = 加班1

  806.             Else : 清單5_dgv.Rows(i).Cells(37).Value = "" : 清單5_dgv.Rows(i).Cells(38).Value = "" : End If

  807.             '-------------------------計算星期三--------------------------------------------------------------------------------------------------------------------

  808.             If 清單5_dgv.Rows(i).Cells(19).Value.ToString <> "" And 清單5_dgv.Rows(i).Cells(20).Value.ToString <> "" Then

  809.                 X1 = 清單5_dgv.Rows(i).Cells(19).Value.ToString : Set_時段定點() : 計算(0) = X1 : X1 = 清單5_dgv.Rows(i).Cells(20).Value.ToString : Set_時段定點() : 計算(1) = X1 : 時間比對()

  810.                 If 間隔1 >= 240 And 間隔1 < 660 Then : 間隔1 -= 60 : ElseIf 間隔1 >= 660 Then : 間隔1 -= 120 : End If

  811.                 Dim 加班1 As Integer = 0 : Dim 時間 As Integer = 間隔1 / 60 : If 時間 <= 8 Then : Else : 加班1 = 時間 - 8 : 時間 = 8 : End If

  812.                 清單5_dgv.Rows(i).Cells(39).Value = 時間 : 清單5_dgv.Rows(i).Cells(40).Value = 加班1

  813.             Else : 清單5_dgv.Rows(i).Cells(39).Value = "" : 清單5_dgv.Rows(i).Cells(40).Value = "" : End If

  814.             '-------------------------計算星期四--------------------------------------------------------------------------------------------------------------------

  815.             If 清單5_dgv.Rows(i).Cells(21).Value.ToString <> "" And 清單5_dgv.Rows(i).Cells(22).Value.ToString <> "" Then

  816.                 X1 = 清單5_dgv.Rows(i).Cells(21).Value.ToString : Set_時段定點() : 計算(0) = X1 : X1 = 清單5_dgv.Rows(i).Cells(22).Value.ToString : Set_時段定點() : 計算(1) = X1 : 時間比對()

  817.                 If 間隔1 >= 240 And 間隔1 < 660 Then : 間隔1 -= 60 : ElseIf 間隔1 >= 660 Then : 間隔1 -= 120 : End If

  818.                 Dim 加班1 As Integer = 0 : Dim 時間 As Integer = 間隔1 / 60 : If 時間 <= 8 Then : Else : 加班1 = 時間 - 8 : 時間 = 8 : End If

  819.                 清單5_dgv.Rows(i).Cells(41).Value = 時間 : 清單5_dgv.Rows(i).Cells(42).Value = 加班1

  820.             Else : 清單5_dgv.Rows(i).Cells(41).Value = "" : 清單5_dgv.Rows(i).Cells(42).Value = "" : End If

  821.             '-------------------------計算星期五--------------------------------------------------------------------------------------------------------------------

  822.             If 清單5_dgv.Rows(i).Cells(23).Value.ToString <> "" And 清單5_dgv.Rows(i).Cells(24).Value.ToString <> "" Then

  823.                 X1 = 清單5_dgv.Rows(i).Cells(23).Value.ToString : Set_時段定點() : 計算(0) = X1 : X1 = 清單5_dgv.Rows(i).Cells(24).Value.ToString : Set_時段定點() : 計算(1) = X1 : 時間比對()

  824.                 If 間隔1 >= 240 And 間隔1 < 660 Then : 間隔1 -= 60 : ElseIf 間隔1 >= 660 Then : 間隔1 -= 120 : End If

  825.                 Dim 加班1 As Integer = 0 : Dim 時間 As Integer = 間隔1 / 60 : If 時間 <= 8 Then : Else : 加班1 = 時間 - 8 : 時間 = 8 : End If

  826.                 清單5_dgv.Rows(i).Cells(43).Value = 時間 : 清單5_dgv.Rows(i).Cells(44).Value = 加班1

  827.             Else : 清單5_dgv.Rows(i).Cells(43).Value = "" : 清單5_dgv.Rows(i).Cells(44).Value = "" : End If

  828.             '-------------------------計算星期六--------------------------------------------------------------------------------------------------------------------

  829.             If 清單5_dgv.Rows(i).Cells(25).Value.ToString <> "" And 清單5_dgv.Rows(i).Cells(26).Value.ToString <> "" Then

  830.                 X1 = 清單5_dgv.Rows(i).Cells(25).Value.ToString : Set_時段定點() : 計算(0) = X1 : X1 = 清單5_dgv.Rows(i).Cells(26).Value.ToString : Set_時段定點() : 計算(1) = X1 : 時間比對()

  831.                 If 間隔1 >= 240 And 間隔1 < 660 Then : 間隔1 -= 60 : ElseIf 間隔1 >= 660 Then : 間隔1 -= 120 : End If

  832.                 Dim 加班1 As Integer = 0 : Dim 時間 As Integer = 間隔1 / 60 : If 時間 <= 8 Then : Else : 加班1 = 時間 - 8 : 時間 = 8 : End If

  833.                 清單5_dgv.Rows(i).Cells(45).Value = 時間 : 清單5_dgv.Rows(i).Cells(46).Value = 加班1

  834.             Else : 清單5_dgv.Rows(i).Cells(45).Value = "" : 清單5_dgv.Rows(i).Cells(46).Value = "" : End If

  835.             '-------------------------計算星期日--------------------------------------------------------------------------------------------------------------------

  836.             If 清單5_dgv.Rows(i).Cells(27).Value.ToString <> "" And 清單5_dgv.Rows(i).Cells(28).Value.ToString <> "" Then

  837.                 X1 = 清單5_dgv.Rows(i).Cells(27).Value.ToString : Set_時段定點() : 計算(0) = X1 : X1 = 清單5_dgv.Rows(i).Cells(28).Value.ToString : Set_時段定點() : 計算(1) = X1 : 時間比對()

  838.                 If 間隔1 >= 240 And 間隔1 < 660 Then : 間隔1 -= 60 : ElseIf 間隔1 >= 660 Then : 間隔1 -= 120 : End If

  839.                 Dim 加班1 As Integer = 0 : Dim 時間 As Integer = 間隔1 / 60 : If 時間 <= 8 Then : Else : 加班1 = 時間 - 8 : 時間 = 8 : End If

  840.                 清單5_dgv.Rows(i).Cells(47).Value = 時間 : 清單5_dgv.Rows(i).Cells(48).Value = 加班1

  841.             Else : 清單5_dgv.Rows(i).Cells(47).Value = "" : 清單5_dgv.Rows(i).Cells(48).Value = "" : End If

  842. 

  843.             Dim 正常(6), 加班(6) As Integer

  844.             If 清單5_dgv.Rows(i).Cells(35).Value <> "" Then : 正常(0) = 清單5_dgv.Rows(i).Cells(35).Value.ToString : Else : 正常(0) = 0 : End If

  845.             If 清單5_dgv.Rows(i).Cells(37).Value <> "" Then : 正常(1) = 清單5_dgv.Rows(i).Cells(37).Value.ToString : Else : 正常(1) = 0 : End If

  846.             If 清單5_dgv.Rows(i).Cells(39).Value <> "" Then : 正常(2) = 清單5_dgv.Rows(i).Cells(39).Value.ToString : Else : 正常(2) = 0 : End If

  847.             If 清單5_dgv.Rows(i).Cells(41).Value <> "" Then : 正常(3) = 清單5_dgv.Rows(i).Cells(41).Value.ToString : Else : 正常(3) = 0 : End If

  848.             If 清單5_dgv.Rows(i).Cells(43).Value <> "" Then : 正常(4) = 清單5_dgv.Rows(i).Cells(43).Value.ToString : Else : 正常(4) = 0 : End If

  849.             If 清單5_dgv.Rows(i).Cells(45).Value <> "" Then : 正常(5) = 清單5_dgv.Rows(i).Cells(45).Value.ToString : Else : 正常(5) = 0 : End If

  850.             If 清單5_dgv.Rows(i).Cells(47).Value <> "" Then : 正常(6) = 清單5_dgv.Rows(i).Cells(47).Value.ToString : Else : 正常(6) = 0 : End If

  851. 

  852.             If 清單5_dgv.Rows(i).Cells(36).Value <> "" Then : 加班(0) = 清單5_dgv.Rows(i).Cells(36).Value.ToString : Else : 加班(0) = 0 : End If

  853.             If 清單5_dgv.Rows(i).Cells(38).Value <> "" Then : 加班(1) = 清單5_dgv.Rows(i).Cells(38).Value.ToString : Else : 加班(1) = 0 : End If

  854.             If 清單5_dgv.Rows(i).Cells(40).Value <> "" Then : 加班(2) = 清單5_dgv.Rows(i).Cells(40).Value.ToString : Else : 加班(2) = 0 : End If

  855.             If 清單5_dgv.Rows(i).Cells(42).Value <> "" Then : 加班(3) = 清單5_dgv.Rows(i).Cells(42).Value.ToString : Else : 加班(3) = 0 : End If

  856.             If 清單5_dgv.Rows(i).Cells(44).Value <> "" Then : 加班(4) = 清單5_dgv.Rows(i).Cells(44).Value.ToString : Else : 加班(4) = 0 : End If

  857.             If 清單5_dgv.Rows(i).Cells(46).Value <> "" Then : 加班(5) = 清單5_dgv.Rows(i).Cells(46).Value.ToString : Else : 加班(5) = 0 : End If

  858.             If 清單5_dgv.Rows(i).Cells(48).Value <> "" Then : 加班(6) = 清單5_dgv.Rows(i).Cells(48).Value.ToString : Else : 加班(6) = 0 : End If

  859. 

  860.             清單5_dgv.Rows(i).Cells(33).Value = 正常(0) + 正常(1) + 正常(2) + 正常(3) + 正常(4) + 正常(5) + 正常(6)

  861.             清單5_dgv.Rows(i).Cells(34).Value = 加班(0) + 加班(1) + 加班(2) + 加班(3) + 加班(4) + 加班(5) + 加班(6)

  862.             '-------------------------計算工資單價--------------------------------------------------------------------------------------------------------------------

  863.             If IsDBNull(清單5_dgv.Rows(i).Cells(12).Value) Then : Else

  864.                 If 清單5_dgv.Rows(i).Cells(12).Value.ToString <> "" Then

  865.                     清單5_dgv.Rows(i).Cells(31).Value = Strings.Format(清單5_dgv.Rows(i).Cells(12).Value / 8, "#,##0")

  866.                     清單5_dgv.Rows(i).Cells(32).Value = Strings.Format(清單5_dgv.Rows(i).Cells(12).Value / 6, "#,##0")

  867.                     清單5_dgv.Rows(i).Cells(29).Value = Strings.Format((清單5_dgv.Rows(i).Cells(12).Value / 8) * CLng(清單5_dgv.Rows(i).Cells(33).Value.ToString), "#,##0")

  868.                     清單5_dgv.Rows(i).Cells(30).Value = Strings.Format((清單5_dgv.Rows(i).Cells(12).Value / 6) * CLng(清單5_dgv.Rows(i).Cells(34).Value.ToString), "#,##0")

  869.                     清單5_dgv.Rows(i).Cells(13).Value = CLng(清單5_dgv.Rows(i).Cells(29).Value.ToString) + CLng(清單5_dgv.Rows(i).Cells(30).Value.ToString)

  870.                 End If

  871.             End If

  872.             清單5_dgv.Rows(i).Cells(4).Value = i + 1

  873.         Next

  874.     End Sub

  875.     Private Sub Set_使用者清單6()

  876.         PA25 = 星36_bt.Text : Set_虛擬表() : Dim ds1, ds2 As New DataSet

  877.         清單6_dgv.DataSource = Nothing : ds1.Clear()

  878.         清單6_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing

  879.         清單6_dgv.ColumnHeadersHeight = 45 : 清單6_dgv.AllowUserToAddRows = False : 清單6_dgv.RowTemplate.Height = 35

  880. 

  881.         If 群組1_cb.Text = "HARIAN GROUP" Then

  882.             SQL5 = " AND [HX-PGS-MSN].dbo.人員資料表.部門名稱 LIKE 'HARIAN GROUP'"

  883.             SQL4 = "[HX-PGS-MSN].dbo.人員資料表.員工代碼"

  884.         Else

  885.             SQL5 = " AND [HX-PGS-MSN].dbo.人員資料表.部門名稱 NOT LIKE 'HARIAN GROUP'"

  886.             SQL4 = "[HX-PGS-MSN].dbo.人員資料表.部門名稱,使用者權限管理表.姓名"

  887.         End If

  888.         PA25 = "" : SQL3 = "" : PA14 = "" : PA19 = "" : 工人 = True : 在職 = True

  889.         SQL_人員薪資表1() : da.Fill(ds1) : 清單6_dgv.DataSource = ds1.Tables(0) : conn.Close()

  890. 

  891.         清單6_dgv.Columns("Save.").FillWeight = 40 : 清單6_dgv.Columns(12).Visible = True : 清單6_dgv.Columns(50).Visible = False : 清單6_dgv.Columns(0).FillWeight = 120

  892.         清單6_dgv.Columns(4).FillWeight = 25

  893. 

  894.         For i As Integer = 2 To 14 : 清單6_dgv.Columns(i).Visible = False : Next : For i As Integer = 29 To 48 : 清單6_dgv.Columns(i).Visible = False : Next

  895.         For i As Integer = 15 To 28 : 清單6_dgv.Columns(i).FillWeight = 60 : Next : For i As Integer = 29 To 34 : 清單6_dgv.Columns(i).FillWeight = 60 : Next

  896.         For i As Integer = 35 To 48 : 清單6_dgv.Columns(i).FillWeight = 40 : Next : 清單6_dgv.Columns(12).Visible = True : 清單6_dgv.Columns(4).Visible = True

  897.         For i As Integer = 1 To 50 : 清單6_dgv.Columns(i).ReadOnly = True : Next

  898.         清單6_dgv.Columns(12).ReadOnly = False

  899. 

  900.         清單6_dgv.Columns(12).DefaultCellStyle.Format = "#,##0" : 清單6_dgv.Columns(13).DefaultCellStyle.Format = "#,##0"

  901.         For i As Integer = 4 To 11

  902.             清單6_dgv.Columns(i).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter

  903.             清單6_dgv.Columns(i).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  904.         Next

  905.         For i As Integer = 12 To 48

  906.             清單6_dgv.Columns(i).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter

  907.             清單6_dgv.Columns(i).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  908.         Next

  909. 

  910.         For i As Integer = 0 To 清單6_dgv.Rows.Count - 1

  911.             '-------------------------實際考勤--------------------------------------------------------------------------------------------------------------------

  912.             If 清單6_dgv.Rows(i).Cells(0).Value.ToString <> "" Then : 清單6_dgv.Rows(i).Cells(0).Value = 清單6_dgv.Rows(i).Cells(0).Value.ToString.ToUpper : End If

  913.             If 清單6_dgv.Rows(i).Cells(1).Value.ToString <> "" Then : 清單6_dgv.Rows(i).Cells(1).Value = 清單6_dgv.Rows(i).Cells(1).Value.ToString.ToUpper : End If

  914.             '-------------------------清空資料取得預設值--------------------------------------------------------------------------------------------------------------------

  915.             For FF As Integer = 15 To 48 : 清單6_dgv.Rows(i).Cells(FF).Value = "" : Next

  916. 

  917.             '-------------------------虛擬考勤--------------------------------------------------------------------------------------------------------------------

  918.             For ii As Integer = 0 To 虛擬表_dgv.Rows.Count - 1

  919.                 If 清單6_dgv.Rows(i).Cells(50).Value.ToString = 虛擬表_dgv.Rows(ii).Cells(0).Value.ToString Then

  920.                     If 月份2_cb.Text = Strings.Mid(星36_bt.Text, 6, 2) Then

  921.                         清單6_dgv.Rows(i).Cells(15).Value = 虛擬表_dgv.Rows(ii).Cells(1).Value.ToString : 清單6_dgv.Rows(i).Cells(16).Value = 虛擬表_dgv.Rows(ii).Cells(2).Value.ToString

  922.                     End If

  923.                     If 月份2_cb.Text = Strings.Mid(星37_bt.Text, 6, 2) Then

  924.                         清單6_dgv.Rows(i).Cells(17).Value = 虛擬表_dgv.Rows(ii).Cells(3).Value.ToString : 清單6_dgv.Rows(i).Cells(18).Value = 虛擬表_dgv.Rows(ii).Cells(4).Value.ToString

  925.                     End If

  926.                     If 月份2_cb.Text = Strings.Mid(星38_bt.Text, 6, 2) Then

  927.                         清單6_dgv.Rows(i).Cells(19).Value = 虛擬表_dgv.Rows(ii).Cells(5).Value.ToString : 清單6_dgv.Rows(i).Cells(20).Value = 虛擬表_dgv.Rows(ii).Cells(6).Value.ToString

  928.                     End If

  929.                     If 月份2_cb.Text = Strings.Mid(星39_bt.Text, 6, 2) Then

  930.                         清單6_dgv.Rows(i).Cells(21).Value = 虛擬表_dgv.Rows(ii).Cells(7).Value.ToString : 清單6_dgv.Rows(i).Cells(22).Value = 虛擬表_dgv.Rows(ii).Cells(8).Value.ToString

  931.                     End If

  932.                     If 月份2_cb.Text = Strings.Mid(星40_bt.Text, 6, 2) Then

  933.                         清單6_dgv.Rows(i).Cells(23).Value = 虛擬表_dgv.Rows(ii).Cells(9).Value.ToString : 清單6_dgv.Rows(i).Cells(24).Value = 虛擬表_dgv.Rows(ii).Cells(10).Value.ToString

  934.                     End If

  935.                     If 月份2_cb.Text = Strings.Mid(星41_bt.Text, 6, 2) Then

  936.                         清單6_dgv.Rows(i).Cells(25).Value = 虛擬表_dgv.Rows(ii).Cells(11).Value.ToString : 清單6_dgv.Rows(i).Cells(26).Value = 虛擬表_dgv.Rows(ii).Cells(12).Value.ToString

  937.                     End If

  938.                     If 月份2_cb.Text = Strings.Mid(星42_bt.Text, 6, 2) Then

  939.                         清單6_dgv.Rows(i).Cells(27).Value = 虛擬表_dgv.Rows(ii).Cells(13).Value.ToString : 清單6_dgv.Rows(i).Cells(28).Value = 虛擬表_dgv.Rows(ii).Cells(14).Value.ToString

  940.                     End If

  941.                 End If

  942.             Next

  943.         Next : AUTO第6周()

  944.     End Sub

  945.     Private Sub AUTO第6周()

  946.         For i As Integer = 0 To 清單6_dgv.Rows.Count - 1

  947.             '-------------------------計算星期一--------------------------------------------------------------------------------------------------------------------

  948.             If 清單6_dgv.Rows(i).Cells(15).Value.ToString <> "" And 清單6_dgv.Rows(i).Cells(16).Value.ToString <> "" Then

  949.                 X1 = 清單6_dgv.Rows(i).Cells(15).Value.ToString : Set_時段定點() : 計算(0) = X1 : X1 = 清單6_dgv.Rows(i).Cells(16).Value.ToString : Set_時段定點() : 計算(1) = X1 : 時間比對()

  950.                 If 間隔1 >= 240 And 間隔1 < 660 Then : 間隔1 -= 60 : ElseIf 間隔1 >= 660 Then : 間隔1 -= -120 : End If

  951.                 Dim 加班1 As Integer = 0 : Dim 時間 As Integer = 間隔1 / 60 : If 時間 <= 8 Then : Else : 加班1 = 時間 - 8 : 時間 = 8 : End If

  952.                 清單6_dgv.Rows(i).Cells(35).Value = 時間 : 清單6_dgv.Rows(i).Cells(36).Value = 加班1

  953.             Else : 清單6_dgv.Rows(i).Cells(35).Value = "" : 清單6_dgv.Rows(i).Cells(36).Value = "" : End If

  954.             '-------------------------計算星期二--------------------------------------------------------------------------------------------------------------------

  955.             If 清單6_dgv.Rows(i).Cells(17).Value.ToString <> "" And 清單6_dgv.Rows(i).Cells(18).Value.ToString <> "" Then

  956.                 X1 = 清單6_dgv.Rows(i).Cells(17).Value.ToString : Set_時段定點() : 計算(0) = X1 : X1 = 清單6_dgv.Rows(i).Cells(18).Value.ToString : Set_時段定點() : 計算(1) = X1 : 時間比對()

  957.                 If 間隔1 >= 240 And 間隔1 < 660 Then : 間隔1 -= 60 : ElseIf 間隔1 >= 660 Then : 間隔1 -= 120 : End If

  958.                 Dim 加班1 As Integer = 0 : Dim 時間 As Integer = 間隔1 / 60 : If 時間 <= 8 Then : Else : 加班1 = 時間 - 8 : 時間 = 8 : End If

  959.                 清單6_dgv.Rows(i).Cells(37).Value = 時間 : 清單6_dgv.Rows(i).Cells(38).Value = 加班1

  960.             Else : 清單6_dgv.Rows(i).Cells(37).Value = "" : 清單6_dgv.Rows(i).Cells(38).Value = "" : End If

  961.             '-------------------------計算星期三--------------------------------------------------------------------------------------------------------------------

  962.             If 清單6_dgv.Rows(i).Cells(19).Value.ToString <> "" And 清單6_dgv.Rows(i).Cells(20).Value.ToString <> "" Then

  963.                 X1 = 清單6_dgv.Rows(i).Cells(19).Value.ToString : Set_時段定點() : 計算(0) = X1 : X1 = 清單6_dgv.Rows(i).Cells(20).Value.ToString : Set_時段定點() : 計算(1) = X1 : 時間比對()

  964.                 If 間隔1 >= 240 And 間隔1 < 660 Then : 間隔1 -= 60 : ElseIf 間隔1 >= 660 Then : 間隔1 -= 120 : End If

  965.                 Dim 加班1 As Integer = 0 : Dim 時間 As Integer = 間隔1 / 60 : If 時間 <= 8 Then : Else : 加班1 = 時間 - 8 : 時間 = 8 : End If

  966.                 清單6_dgv.Rows(i).Cells(39).Value = 時間 : 清單6_dgv.Rows(i).Cells(40).Value = 加班1

  967.             Else : 清單6_dgv.Rows(i).Cells(39).Value = "" : 清單6_dgv.Rows(i).Cells(40).Value = "" : End If

  968.             '-------------------------計算星期四--------------------------------------------------------------------------------------------------------------------

  969.             If 清單6_dgv.Rows(i).Cells(21).Value.ToString <> "" And 清單6_dgv.Rows(i).Cells(22).Value.ToString <> "" Then

  970.                 X1 = 清單6_dgv.Rows(i).Cells(21).Value.ToString : Set_時段定點() : 計算(0) = X1 : X1 = 清單6_dgv.Rows(i).Cells(22).Value.ToString : Set_時段定點() : 計算(1) = X1 : 時間比對()

  971.                 If 間隔1 >= 240 And 間隔1 < 660 Then : 間隔1 -= 60 : ElseIf 間隔1 >= 660 Then : 間隔1 -= 120 : End If

  972.                 Dim 加班1 As Integer = 0 : Dim 時間 As Integer = 間隔1 / 60 : If 時間 <= 8 Then : Else : 加班1 = 時間 - 8 : 時間 = 8 : End If

  973.                 清單6_dgv.Rows(i).Cells(41).Value = 時間 : 清單6_dgv.Rows(i).Cells(42).Value = 加班1

  974.             Else : 清單6_dgv.Rows(i).Cells(41).Value = "" : 清單6_dgv.Rows(i).Cells(42).Value = "" : End If

  975.             '-------------------------計算星期五--------------------------------------------------------------------------------------------------------------------

  976.             If 清單6_dgv.Rows(i).Cells(23).Value.ToString <> "" And 清單6_dgv.Rows(i).Cells(24).Value.ToString <> "" Then

  977.                 X1 = 清單6_dgv.Rows(i).Cells(23).Value.ToString : Set_時段定點() : 計算(0) = X1 : X1 = 清單6_dgv.Rows(i).Cells(24).Value.ToString : Set_時段定點() : 計算(1) = X1 : 時間比對()

  978.                 If 間隔1 >= 240 And 間隔1 < 660 Then : 間隔1 -= 60 : ElseIf 間隔1 >= 660 Then : 間隔1 -= 120 : End If

  979.                 Dim 加班1 As Integer = 0 : Dim 時間 As Integer = 間隔1 / 60 : If 時間 <= 8 Then : Else : 加班1 = 時間 - 8 : 時間 = 8 : End If

  980.                 清單6_dgv.Rows(i).Cells(43).Value = 時間 : 清單6_dgv.Rows(i).Cells(44).Value = 加班1

  981.             Else : 清單6_dgv.Rows(i).Cells(43).Value = "" : 清單6_dgv.Rows(i).Cells(44).Value = "" : End If

  982.             '-------------------------計算星期六--------------------------------------------------------------------------------------------------------------------

  983.             If 清單6_dgv.Rows(i).Cells(25).Value.ToString <> "" And 清單6_dgv.Rows(i).Cells(26).Value.ToString <> "" Then

  984.                 X1 = 清單6_dgv.Rows(i).Cells(25).Value.ToString : Set_時段定點() : 計算(0) = X1 : X1 = 清單6_dgv.Rows(i).Cells(26).Value.ToString : Set_時段定點() : 計算(1) = X1 : 時間比對()

  985.                 If 間隔1 >= 240 And 間隔1 < 660 Then : 間隔1 -= 60 : ElseIf 間隔1 >= 660 Then : 間隔1 -= 120 : End If

  986.                 Dim 加班1 As Integer = 0 : Dim 時間 As Integer = 間隔1 / 60 : If 時間 <= 8 Then : Else : 加班1 = 時間 - 8 : 時間 = 8 : End If

  987.                 清單6_dgv.Rows(i).Cells(45).Value = 時間 : 清單6_dgv.Rows(i).Cells(46).Value = 加班1

  988.             Else : 清單6_dgv.Rows(i).Cells(45).Value = "" : 清單6_dgv.Rows(i).Cells(46).Value = "" : End If

  989.             '-------------------------計算星期日--------------------------------------------------------------------------------------------------------------------

  990.             If 清單6_dgv.Rows(i).Cells(27).Value.ToString <> "" And 清單6_dgv.Rows(i).Cells(28).Value.ToString <> "" Then

  991.                 X1 = 清單6_dgv.Rows(i).Cells(27).Value.ToString : Set_時段定點() : 計算(0) = X1 : X1 = 清單6_dgv.Rows(i).Cells(28).Value.ToString : Set_時段定點() : 計算(1) = X1 : 時間比對()

  992.                 If 間隔1 >= 240 And 間隔1 < 660 Then : 間隔1 -= 60 : ElseIf 間隔1 >= 660 Then : 間隔1 -= 120 : End If

  993.                 Dim 加班1 As Integer = 0 : Dim 時間 As Integer = 間隔1 / 60 : If 時間 <= 8 Then : Else : 加班1 = 時間 - 8 : 時間 = 8 : End If

  994.                 清單6_dgv.Rows(i).Cells(47).Value = 時間 : 清單6_dgv.Rows(i).Cells(48).Value = 加班1

  995.             Else : 清單6_dgv.Rows(i).Cells(47).Value = "" : 清單6_dgv.Rows(i).Cells(48).Value = "" : End If

  996. 

  997.             Dim 正常(6), 加班(6) As Integer

  998.             If 清單6_dgv.Rows(i).Cells(35).Value <> "" Then : 正常(0) = 清單6_dgv.Rows(i).Cells(35).Value.ToString : Else : 正常(0) = 0 : End If

  999.             If 清單6_dgv.Rows(i).Cells(37).Value <> "" Then : 正常(1) = 清單6_dgv.Rows(i).Cells(37).Value.ToString : Else : 正常(1) = 0 : End If

  1000.             If 清單6_dgv.Rows(i).Cells(39).Value <> "" Then : 正常(2) = 清單6_dgv.Rows(i).Cells(39).Value.ToString : Else : 正常(2) = 0 : End If

  1001.             If 清單6_dgv.Rows(i).Cells(41).Value <> "" Then : 正常(3) = 清單6_dgv.Rows(i).Cells(41).Value.ToString : Else : 正常(3) = 0 : End If

  1002.             If 清單6_dgv.Rows(i).Cells(43).Value <> "" Then : 正常(4) = 清單6_dgv.Rows(i).Cells(43).Value.ToString : Else : 正常(4) = 0 : End If

  1003.             If 清單6_dgv.Rows(i).Cells(45).Value <> "" Then : 正常(5) = 清單6_dgv.Rows(i).Cells(45).Value.ToString : Else : 正常(5) = 0 : End If

  1004.             If 清單6_dgv.Rows(i).Cells(47).Value <> "" Then : 正常(6) = 清單6_dgv.Rows(i).Cells(47).Value.ToString : Else : 正常(6) = 0 : End If

  1005. 

  1006.             If 清單6_dgv.Rows(i).Cells(36).Value <> "" Then : 加班(0) = 清單6_dgv.Rows(i).Cells(36).Value.ToString : Else : 加班(0) = 0 : End If

  1007.             If 清單6_dgv.Rows(i).Cells(38).Value <> "" Then : 加班(1) = 清單6_dgv.Rows(i).Cells(38).Value.ToString : Else : 加班(1) = 0 : End If

  1008.             If 清單6_dgv.Rows(i).Cells(40).Value <> "" Then : 加班(2) = 清單6_dgv.Rows(i).Cells(40).Value.ToString : Else : 加班(2) = 0 : End If

  1009.             If 清單6_dgv.Rows(i).Cells(42).Value <> "" Then : 加班(3) = 清單6_dgv.Rows(i).Cells(42).Value.ToString : Else : 加班(3) = 0 : End If

  1010.             If 清單6_dgv.Rows(i).Cells(44).Value <> "" Then : 加班(4) = 清單6_dgv.Rows(i).Cells(44).Value.ToString : Else : 加班(4) = 0 : End If

  1011.             If 清單6_dgv.Rows(i).Cells(46).Value <> "" Then : 加班(5) = 清單6_dgv.Rows(i).Cells(46).Value.ToString : Else : 加班(5) = 0 : End If

  1012.             If 清單6_dgv.Rows(i).Cells(48).Value <> "" Then : 加班(6) = 清單6_dgv.Rows(i).Cells(48).Value.ToString : Else : 加班(6) = 0 : End If

  1013. 

  1014.             清單6_dgv.Rows(i).Cells(33).Value = 正常(0) + 正常(1) + 正常(2) + 正常(3) + 正常(4) + 正常(5) + 正常(6)

  1015.             清單6_dgv.Rows(i).Cells(34).Value = 加班(0) + 加班(1) + 加班(2) + 加班(3) + 加班(4) + 加班(5) + 加班(6)

  1016.             '-------------------------計算工資單價--------------------------------------------------------------------------------------------------------------------

  1017.             If IsDBNull(清單6_dgv.Rows(i).Cells(12).Value) Then : Else

  1018.                 If 清單6_dgv.Rows(i).Cells(12).Value.ToString <> "" Then

  1019.                     清單6_dgv.Rows(i).Cells(31).Value = Strings.Format(清單6_dgv.Rows(i).Cells(12).Value / 8, "#,##0")

  1020.                     清單6_dgv.Rows(i).Cells(32).Value = Strings.Format(清單6_dgv.Rows(i).Cells(12).Value / 6, "#,##0")

  1021.                     清單6_dgv.Rows(i).Cells(29).Value = Strings.Format((清單6_dgv.Rows(i).Cells(12).Value / 8) * CLng(清單6_dgv.Rows(i).Cells(33).Value.ToString), "#,##0")

  1022.                     清單6_dgv.Rows(i).Cells(30).Value = Strings.Format((清單6_dgv.Rows(i).Cells(12).Value / 6) * CLng(清單6_dgv.Rows(i).Cells(34).Value.ToString), "#,##0")

  1023.                     清單6_dgv.Rows(i).Cells(13).Value = CLng(清單6_dgv.Rows(i).Cells(29).Value.ToString) + CLng(清單6_dgv.Rows(i).Cells(30).Value.ToString)

  1024.                 End If

  1025.             End If

  1026.             清單6_dgv.Rows(i).Cells(4).Value = i + 1

  1027.         Next

  1028.     End Sub

  1029.     Private Sub Set_時段定點()

  1030.         Dim 時 As String = Strings.Left(X1, 2) : Dim 分 As String = Strings.Mid(X1, 4, 2)

  1031.         If (時 = "23" And CInt(分) >= 30) Or (時 = "00" And CInt(分) < 0) Then : X1 = "23:59:59" : ElseIf (時 = "00" And CInt(分) >= 30) Or (時 = "01" And CInt(分) < 30) Then : X1 = "01:00:00"

  1032.         ElseIf (時 = "01" And CInt(分) >= 30) Or (時 = "02" And CInt(分) < 30) Then : X1 = "02:00:00" : ElseIf (時 = "02" And CInt(分) >= 30) Or (時 = "03" And CInt(分) < 30) Then : X1 = "03:00:00"

  1033.         ElseIf (時 = "03" And CInt(分) >= 30) Or (時 = "04" And CInt(分) < 30) Then : X1 = "04:00:00" : ElseIf (時 = "04" And CInt(分) >= 30) Or (時 = "05" And CInt(分) < 30) Then : X1 = "05:00:00"

  1034.         ElseIf (時 = "05" And CInt(分) >= 30) Or (時 = "06" And CInt(分) < 30) Then : X1 = "06:00:00" : ElseIf (時 = "06" And CInt(分) >= 30) Or (時 = "07" And CInt(分) < 30) Then : X1 = "07:00:00"

  1035.         ElseIf (時 = "07" And CInt(分) >= 30) Or (時 = "08" And CInt(分) < 30) Then : X1 = "08:00:00" : ElseIf (時 = "08" And CInt(分) >= 30) Or (時 = "09" And CInt(分) < 30) Then : X1 = "09:00:00"

  1036.         ElseIf (時 = "09" And CInt(分) >= 30) Or (時 = "10" And CInt(分) < 30) Then : X1 = "10:00:00" : ElseIf (時 = "10" And CInt(分) >= 30) Or (時 = "11" And CInt(分) < 30) Then : X1 = "11:00:00"

  1037.         ElseIf (時 = "11" And CInt(分) >= 30) Or (時 = "12" And CInt(分) < 30) Then : X1 = "12:00:00" : ElseIf (時 = "12" And CInt(分) >= 30) Or (時 = "13" And CInt(分) < 30) Then : X1 = "13:00:00"

  1038.         ElseIf (時 = "13" And CInt(分) >= 30) Or (時 = "14" And CInt(分) < 30) Then : X1 = "14:00:00" : ElseIf (時 = "14" And CInt(分) >= 30) Or (時 = "15" And CInt(分) < 30) Then : X1 = "15:00:00"

  1039.         ElseIf (時 = "15" And CInt(分) >= 30) Or (時 = "16" And CInt(分) < 30) Then : X1 = "16:00:00" : ElseIf (時 = "16" And CInt(分) >= 30) Or (時 = "17" And CInt(分) < 30) Then : X1 = "17:00:00"

  1040.         ElseIf (時 = "17" And CInt(分) >= 30) Or (時 = "18" And CInt(分) < 30) Then : X1 = "18:00:00" : ElseIf (時 = "18" And CInt(分) >= 30) Or (時 = "19" And CInt(分) < 30) Then : X1 = "19:00:00"

  1041.         ElseIf (時 = "19" And CInt(分) >= 30) Or (時 = "20" And CInt(分) < 30) Then : X1 = "20:00:00" : ElseIf (時 = "20" And CInt(分) >= 30) Or (時 = "21" And CInt(分) < 30) Then : X1 = "21:00:00"

  1042.         ElseIf (時 = "21" And CInt(分) >= 30) Or (時 = "22" And CInt(分) < 30) Then : X1 = "22:00:00" : ElseIf (時 = "22" And CInt(分) >= 30) Or (時 = "23" And CInt(分) < 30) Then : X1 = "23:00:00"

  1043.         End If

  1044.     End Sub

  1045.     Private Sub 星期設定()

  1046.         星1_bt.Text = Strings.Format(開始日期_dtp.Value, "yyyy/MM/dd") : 星2_bt.Text = Strings.Format(開始日期_dtp.Value.AddDays(1), "yyyy/MM/dd")

  1047.         星3_bt.Text = Strings.Format(開始日期_dtp.Value.AddDays(2), "yyyy/MM/dd") : 星4_bt.Text = Strings.Format(開始日期_dtp.Value.AddDays(3), "yyyy/MM/dd")

  1048.         星5_bt.Text = Strings.Format(開始日期_dtp.Value.AddDays(4), "yyyy/MM/dd") : 星6_bt.Text = Strings.Format(開始日期_dtp.Value.AddDays(5), "yyyy/MM/dd")

  1049.         星7_bt.Text = Strings.Format(開始日期_dtp.Value.AddDays(6), "yyyy/MM/dd") : 星8_bt.Text = Strings.Format(開始日期_dtp.Value.AddDays(7), "yyyy/MM/dd")

  1050.         星9_bt.Text = Strings.Format(開始日期_dtp.Value.AddDays(8), "yyyy/MM/dd") : 星10_bt.Text = Strings.Format(開始日期_dtp.Value.AddDays(9), "yyyy/MM/dd")

  1051.         星11_bt.Text = Strings.Format(開始日期_dtp.Value.AddDays(10), "yyyy/MM/dd") : 星12_bt.Text = Strings.Format(開始日期_dtp.Value.AddDays(11), "yyyy/MM/dd")

  1052.         星13_bt.Text = Strings.Format(開始日期_dtp.Value.AddDays(12), "yyyy/MM/dd") : 星14_bt.Text = Strings.Format(開始日期_dtp.Value.AddDays(13), "yyyy/MM/dd")

  1053.         星15_bt.Text = Strings.Format(開始日期_dtp.Value.AddDays(14), "yyyy/MM/dd") : 星16_bt.Text = Strings.Format(開始日期_dtp.Value.AddDays(15), "yyyy/MM/dd")

  1054.         星17_bt.Text = Strings.Format(開始日期_dtp.Value.AddDays(16), "yyyy/MM/dd") : 星18_bt.Text = Strings.Format(開始日期_dtp.Value.AddDays(17), "yyyy/MM/dd")

  1055.         星19_bt.Text = Strings.Format(開始日期_dtp.Value.AddDays(18), "yyyy/MM/dd") : 星20_bt.Text = Strings.Format(開始日期_dtp.Value.AddDays(19), "yyyy/MM/dd")

  1056.         星21_bt.Text = Strings.Format(開始日期_dtp.Value.AddDays(20), "yyyy/MM/dd") : 星22_bt.Text = Strings.Format(開始日期_dtp.Value.AddDays(21), "yyyy/MM/dd")

  1057.         星23_bt.Text = Strings.Format(開始日期_dtp.Value.AddDays(22), "yyyy/MM/dd") : 星24_bt.Text = Strings.Format(開始日期_dtp.Value.AddDays(23), "yyyy/MM/dd")

  1058.         星25_bt.Text = Strings.Format(開始日期_dtp.Value.AddDays(24), "yyyy/MM/dd") : 星26_bt.Text = Strings.Format(開始日期_dtp.Value.AddDays(25), "yyyy/MM/dd")

  1059.         星27_bt.Text = Strings.Format(開始日期_dtp.Value.AddDays(26), "yyyy/MM/dd") : 星28_bt.Text = Strings.Format(開始日期_dtp.Value.AddDays(27), "yyyy/MM/dd")

  1060.         星29_bt.Text = Strings.Format(開始日期_dtp.Value.AddDays(28), "yyyy/MM/dd") : 星30_bt.Text = Strings.Format(開始日期_dtp.Value.AddDays(29), "yyyy/MM/dd")

  1061.         星31_bt.Text = Strings.Format(開始日期_dtp.Value.AddDays(30), "yyyy/MM/dd") : 星32_bt.Text = Strings.Format(開始日期_dtp.Value.AddDays(31), "yyyy/MM/dd")

  1062.         星33_bt.Text = Strings.Format(開始日期_dtp.Value.AddDays(32), "yyyy/MM/dd") : 星34_bt.Text = Strings.Format(開始日期_dtp.Value.AddDays(33), "yyyy/MM/dd")

  1063.         星35_bt.Text = Strings.Format(開始日期_dtp.Value.AddDays(34), "yyyy/MM/dd") : 星36_bt.Text = Strings.Format(開始日期_dtp.Value.AddDays(35), "yyyy/MM/dd")

  1064.         星37_bt.Text = Strings.Format(開始日期_dtp.Value.AddDays(36), "yyyy/MM/dd") : 星38_bt.Text = Strings.Format(開始日期_dtp.Value.AddDays(37), "yyyy/MM/dd")

  1065.         星39_bt.Text = Strings.Format(開始日期_dtp.Value.AddDays(38), "yyyy/MM/dd") : 星40_bt.Text = Strings.Format(開始日期_dtp.Value.AddDays(39), "yyyy/MM/dd")

  1066.         星41_bt.Text = Strings.Format(開始日期_dtp.Value.AddDays(40), "yyyy/MM/dd") : 星42_bt.Text = Strings.Format(開始日期_dtp.Value.AddDays(41), "yyyy/MM/dd")

  1067.     End Sub

  1068.     Private Sub 時間比對()

  1069.         Dim dateA As Date = Date.ParseExact("[" & 計算(0) & "]", "[HH:mm:ss]", Nothing)

  1070.         Dim dateB As Date = Date.ParseExact("[" & 計算(1) & "]", "[HH:mm:ss]", Nothing)

  1071.         Dim hoursDiff As Integer = DateDiff(DateInterval.Minute, dateA, dateB)

  1072.         間隔1 = Math.Abs(hoursDiff)

  1073.     End Sub

  1074.     Private Sub 年分清單()

  1075.         SQL_年分清單() : 年份2_cb.Items.Clear()

  1076.         While (dr.Read()) : 年份2_cb.Items.Add(dr("日期")) : End While : conn.Close()

  1077.     End Sub

  1078.     Private Sub 極限設定()

  1079.         Dim 總次數 As Integer = 0 : 總數_nud.Value = 0

  1080.         For i As Integer = 0 To 清單1_dgv.Rows.Count - 1

  1081.             If 清單1_dgv.Rows(i).Cells(12).Value.ToString <> "" Then

  1082.                 If Strings.Mid(星1_bt.Text, 6, 2) = 月份2_cb.Text Then

  1083.                     總數_nud.Value += (清單1_dgv.Rows(i).Cells(12).Value + ((清單1_dgv.Rows(i).Cells(12).Value / 6) * 加班_nud.Value)) : 總次數 += 1 : End If

  1084.                 If Strings.Mid(星2_bt.Text, 6, 2) = 月份2_cb.Text Then

  1085.                     總數_nud.Value += (清單1_dgv.Rows(i).Cells(12).Value + ((清單1_dgv.Rows(i).Cells(12).Value / 6) * 加班_nud.Value)) : 總次數 += 1 : End If

  1086.                 If Strings.Mid(星3_bt.Text, 6, 2) = 月份2_cb.Text Then

  1087.                     總數_nud.Value += (清單1_dgv.Rows(i).Cells(12).Value + ((清單1_dgv.Rows(i).Cells(12).Value / 6) * 加班_nud.Value)) : 總次數 += 1 : End If

  1088.                 If Strings.Mid(星4_bt.Text, 6, 2) = 月份2_cb.Text Then

  1089.                     總數_nud.Value += (清單1_dgv.Rows(i).Cells(12).Value + ((清單1_dgv.Rows(i).Cells(12).Value / 6) * 加班_nud.Value)) : 總次數 += 1 : End If

  1090.                 If Strings.Mid(星5_bt.Text, 6, 2) = 月份2_cb.Text Then

  1091.                     總數_nud.Value += (清單1_dgv.Rows(i).Cells(12).Value + ((清單1_dgv.Rows(i).Cells(12).Value / 6) * 加班_nud.Value)) : 總次數 += 1 : End If

  1092.                 If Strings.Mid(星6_bt.Text, 6, 2) = 月份2_cb.Text Then

  1093.                     總數_nud.Value += (清單1_dgv.Rows(i).Cells(12).Value + ((清單1_dgv.Rows(i).Cells(12).Value / 6) * 加班_nud.Value)) : 總次數 += 1 : End If

  1094.                 If Strings.Mid(星7_bt.Text, 6, 2) = 月份2_cb.Text Then

  1095.                     總數_nud.Value += (清單1_dgv.Rows(i).Cells(12).Value + ((清單1_dgv.Rows(i).Cells(12).Value / 6) * 加班_nud.Value)) : 總次數 += 1 : End If

  1096.             End If

  1097.         Next

  1098.         For i As Integer = 0 To 清單2_dgv.Rows.Count - 1

  1099.             If 清單2_dgv.Rows(i).Cells(12).Value.ToString <> "" Then

  1100.                 If Strings.Mid(星8_bt.Text, 6, 2) = 月份2_cb.Text Then

  1101.                     總數_nud.Value += (清單2_dgv.Rows(i).Cells(12).Value + ((清單2_dgv.Rows(i).Cells(12).Value / 6) * 加班_nud.Value)) : 總次數 += 1 : End If

  1102.                 If Strings.Mid(星9_bt.Text, 6, 2) = 月份2_cb.Text Then

  1103.                     總數_nud.Value += (清單2_dgv.Rows(i).Cells(12).Value + ((清單2_dgv.Rows(i).Cells(12).Value / 6) * 加班_nud.Value)) : 總次數 += 1 : End If

  1104.                 If Strings.Mid(星10_bt.Text, 6, 2) = 月份2_cb.Text Then

  1105.                     總數_nud.Value += (清單2_dgv.Rows(i).Cells(12).Value + ((清單2_dgv.Rows(i).Cells(12).Value / 6) * 加班_nud.Value)) : 總次數 += 1 : End If

  1106.                 If Strings.Mid(星11_bt.Text, 6, 2) = 月份2_cb.Text Then

  1107.                     總數_nud.Value += (清單2_dgv.Rows(i).Cells(12).Value + ((清單2_dgv.Rows(i).Cells(12).Value / 6) * 加班_nud.Value)) : 總次數 += 1 : End If

  1108.                 If Strings.Mid(星12_bt.Text, 6, 2) = 月份2_cb.Text Then

  1109.                     總數_nud.Value += (清單2_dgv.Rows(i).Cells(12).Value + ((清單2_dgv.Rows(i).Cells(12).Value / 6) * 加班_nud.Value)) : 總次數 += 1 : End If

  1110.                 If Strings.Mid(星13_bt.Text, 6, 2) = 月份2_cb.Text Then

  1111.                     總數_nud.Value += (清單2_dgv.Rows(i).Cells(12).Value + ((清單2_dgv.Rows(i).Cells(12).Value / 6) * 加班_nud.Value)) : 總次數 += 1 : End If

  1112.                 If Strings.Mid(星14_bt.Text, 6, 2) = 月份2_cb.Text Then

  1113.                     總數_nud.Value += (清單2_dgv.Rows(i).Cells(12).Value + ((清單2_dgv.Rows(i).Cells(12).Value / 6) * 加班_nud.Value)) : 總次數 += 1 : End If

  1114.             End If

  1115.         Next

  1116.         For i As Integer = 0 To 清單3_dgv.Rows.Count - 1

  1117.             If 清單3_dgv.Rows(i).Cells(12).Value.ToString <> "" Then

  1118.                 If Strings.Mid(星15_bt.Text, 6, 2) = 月份2_cb.Text Then

  1119.                     總數_nud.Value += (清單3_dgv.Rows(i).Cells(12).Value + ((清單3_dgv.Rows(i).Cells(12).Value / 6) * 加班_nud.Value)) : 總次數 += 1 : End If

  1120.                 If Strings.Mid(星16_bt.Text, 6, 2) = 月份2_cb.Text Then

  1121.                     總數_nud.Value += (清單3_dgv.Rows(i).Cells(12).Value + ((清單3_dgv.Rows(i).Cells(12).Value / 6) * 加班_nud.Value)) : 總次數 += 1 : End If

  1122.                 If Strings.Mid(星17_bt.Text, 6, 2) = 月份2_cb.Text Then

  1123.                     總數_nud.Value += (清單3_dgv.Rows(i).Cells(12).Value + ((清單3_dgv.Rows(i).Cells(12).Value / 6) * 加班_nud.Value)) : 總次數 += 1 : End If

  1124.                 If Strings.Mid(星18_bt.Text, 6, 2) = 月份2_cb.Text Then

  1125.                     總數_nud.Value += (清單3_dgv.Rows(i).Cells(12).Value + ((清單3_dgv.Rows(i).Cells(12).Value / 6) * 加班_nud.Value)) : 總次數 += 1 : End If

  1126.                 If Strings.Mid(星19_bt.Text, 6, 2) = 月份2_cb.Text Then

  1127.                     總數_nud.Value += (清單3_dgv.Rows(i).Cells(12).Value + ((清單3_dgv.Rows(i).Cells(12).Value / 6) * 加班_nud.Value)) : 總次數 += 1 : End If

  1128.                 If Strings.Mid(星20_bt.Text, 6, 2) = 月份2_cb.Text Then

  1129.                     總數_nud.Value += (清單3_dgv.Rows(i).Cells(12).Value + ((清單3_dgv.Rows(i).Cells(12).Value / 6) * 加班_nud.Value)) : 總次數 += 1 : End If

  1130.                 If Strings.Mid(星21_bt.Text, 6, 2) = 月份2_cb.Text Then

  1131.                     總數_nud.Value += (清單3_dgv.Rows(i).Cells(12).Value + ((清單3_dgv.Rows(i).Cells(12).Value / 6) * 加班_nud.Value)) : 總次數 += 1 : End If

  1132.             End If

  1133.         Next

  1134.         For i As Integer = 0 To 清單4_dgv.Rows.Count - 1

  1135.             If 清單4_dgv.Rows(i).Cells(12).Value.ToString <> "" Then

  1136.                 If Strings.Mid(星22_bt.Text, 6, 2) = 月份2_cb.Text Then

  1137.                     總數_nud.Value += (清單4_dgv.Rows(i).Cells(12).Value + ((清單4_dgv.Rows(i).Cells(12).Value / 6) * 加班_nud.Value)) : 總次數 += 1 : End If

  1138.                 If Strings.Mid(星23_bt.Text, 6, 2) = 月份2_cb.Text Then

  1139.                     總數_nud.Value += (清單4_dgv.Rows(i).Cells(12).Value + ((清單4_dgv.Rows(i).Cells(12).Value / 6) * 加班_nud.Value)) : 總次數 += 1 : End If

  1140.                 If Strings.Mid(星24_bt.Text, 6, 2) = 月份2_cb.Text Then

  1141.                     總數_nud.Value += (清單4_dgv.Rows(i).Cells(12).Value + ((清單4_dgv.Rows(i).Cells(12).Value / 6) * 加班_nud.Value)) : 總次數 += 1 : End If

  1142.                 If Strings.Mid(星25_bt.Text, 6, 2) = 月份2_cb.Text Then

  1143.                     總數_nud.Value += (清單4_dgv.Rows(i).Cells(12).Value + ((清單4_dgv.Rows(i).Cells(12).Value / 6) * 加班_nud.Value)) : 總次數 += 1 : End If

  1144.                 If Strings.Mid(星26_bt.Text, 6, 2) = 月份2_cb.Text Then

  1145.                     總數_nud.Value += (清單4_dgv.Rows(i).Cells(12).Value + ((清單4_dgv.Rows(i).Cells(12).Value / 6) * 加班_nud.Value)) : 總次數 += 1 : End If

  1146.                 If Strings.Mid(星27_bt.Text, 6, 2) = 月份2_cb.Text Then

  1147.                     總數_nud.Value += (清單4_dgv.Rows(i).Cells(12).Value + ((清單4_dgv.Rows(i).Cells(12).Value / 6) * 加班_nud.Value)) : 總次數 += 1 : End If

  1148.                 If Strings.Mid(星28_bt.Text, 6, 2) = 月份2_cb.Text Then

  1149.                     總數_nud.Value += (清單4_dgv.Rows(i).Cells(12).Value + ((清單4_dgv.Rows(i).Cells(12).Value / 6) * 加班_nud.Value)) : 總次數 += 1 : End If

  1150.             End If

  1151.         Next

  1152.         For i As Integer = 0 To 清單5_dgv.Rows.Count - 1

  1153.             If 清單5_dgv.Rows(i).Cells(12).Value.ToString <> "" Then

  1154.                 If Strings.Mid(星29_bt.Text, 6, 2) = 月份2_cb.Text Then

  1155.                     總數_nud.Value += (清單5_dgv.Rows(i).Cells(12).Value + ((清單5_dgv.Rows(i).Cells(12).Value / 6) * 加班_nud.Value)) : 總次數 += 1 : End If

  1156.                 If Strings.Mid(星30_bt.Text, 6, 2) = 月份2_cb.Text Then

  1157.                     總數_nud.Value += (清單5_dgv.Rows(i).Cells(12).Value + ((清單5_dgv.Rows(i).Cells(12).Value / 6) * 加班_nud.Value)) : 總次數 += 1 : End If

  1158.                 If Strings.Mid(星31_bt.Text, 6, 2) = 月份2_cb.Text Then

  1159.                     總數_nud.Value += (清單5_dgv.Rows(i).Cells(12).Value + ((清單5_dgv.Rows(i).Cells(12).Value / 6) * 加班_nud.Value)) : 總次數 += 1 : End If

  1160.                 If Strings.Mid(星32_bt.Text, 6, 2) = 月份2_cb.Text Then

  1161.                     總數_nud.Value += (清單5_dgv.Rows(i).Cells(12).Value + ((清單5_dgv.Rows(i).Cells(12).Value / 6) * 加班_nud.Value)) : 總次數 += 1 : End If

  1162.                 If Strings.Mid(星33_bt.Text, 6, 2) = 月份2_cb.Text Then

  1163.                     總數_nud.Value += (清單5_dgv.Rows(i).Cells(12).Value + ((清單5_dgv.Rows(i).Cells(12).Value / 6) * 加班_nud.Value)) : 總次數 += 1 : End If

  1164.                 If Strings.Mid(星34_bt.Text, 6, 2) = 月份2_cb.Text Then

  1165.                     總數_nud.Value += (清單5_dgv.Rows(i).Cells(12).Value + ((清單5_dgv.Rows(i).Cells(12).Value / 6) * 加班_nud.Value)) : 總次數 += 1 : End If

  1166.                 If Strings.Mid(星35_bt.Text, 6, 2) = 月份2_cb.Text Then

  1167.                     總數_nud.Value += (清單5_dgv.Rows(i).Cells(12).Value + ((清單5_dgv.Rows(i).Cells(12).Value / 6) * 加班_nud.Value)) : 總次數 += 1 : End If

  1168.             End If

  1169.         Next

  1170.         For i As Integer = 0 To 清單6_dgv.Rows.Count - 1

  1171.             If 清單6_dgv.Rows(i).Cells(12).Value.ToString <> "" Then

  1172.                 If Strings.Mid(星36_bt.Text, 6, 2) = 月份2_cb.Text Then

  1173.                     總數_nud.Value += (清單6_dgv.Rows(i).Cells(12).Value + ((清單6_dgv.Rows(i).Cells(12).Value / 6) * 加班_nud.Value)) : 總次數 += 1 : End If

  1174.                 If Strings.Mid(星37_bt.Text, 6, 2) = 月份2_cb.Text Then

  1175.                     總數_nud.Value += (清單6_dgv.Rows(i).Cells(12).Value + ((清單6_dgv.Rows(i).Cells(12).Value / 6) * 加班_nud.Value)) : 總次數 += 1 : End If

  1176.                 If Strings.Mid(星38_bt.Text, 6, 2) = 月份2_cb.Text Then

  1177.                     總數_nud.Value += (清單6_dgv.Rows(i).Cells(12).Value + ((清單6_dgv.Rows(i).Cells(12).Value / 6) * 加班_nud.Value)) : 總次數 += 1 : End If

  1178.                 If Strings.Mid(星39_bt.Text, 6, 2) = 月份2_cb.Text Then

  1179.                     總數_nud.Value += (清單6_dgv.Rows(i).Cells(12).Value + ((清單6_dgv.Rows(i).Cells(12).Value / 6) * 加班_nud.Value)) : 總次數 += 1 : End If

  1180.                 If Strings.Mid(星40_bt.Text, 6, 2) = 月份2_cb.Text Then

  1181.                     總數_nud.Value += (清單6_dgv.Rows(i).Cells(12).Value + ((清單6_dgv.Rows(i).Cells(12).Value / 6) * 加班_nud.Value)) : 總次數 += 1 : End If

  1182.                 If Strings.Mid(星41_bt.Text, 6, 2) = 月份2_cb.Text Then

  1183.                     總數_nud.Value += (清單6_dgv.Rows(i).Cells(12).Value + ((清單6_dgv.Rows(i).Cells(12).Value / 6) * 加班_nud.Value)) : 總次數 += 1 : End If

  1184.                 If Strings.Mid(星42_bt.Text, 6, 2) = 月份2_cb.Text Then

  1185.                     總數_nud.Value += (清單6_dgv.Rows(i).Cells(12).Value + ((清單6_dgv.Rows(i).Cells(12).Value / 6) * 加班_nud.Value)) : 總次數 += 1 : End If

  1186.             End If

  1187.         Next

  1188.         If 總次數 = 0 Then : Else : 可沖天數_nud.Value = 總次數 : End If

  1189.         If 可沖天數_nud.Value = 0 Then : Else

  1190.             平均每天_nud.Value = 總數_nud.Value / 可沖天數_nud.Value

  1191.             沖帳金額_nud.Maximum = 總數_nud.Value : 沖帳金額_nud.Minimum = 0 : 沖帳金額_nud.Value = 平均每天_nud.Value * 7

  1192.             If 總數_nud.Value = 0 Then : Else

  1193.                 休假比例_nud.Value = 100 - (沖帳金額_nud.Value / 總數_nud.Value * 100)

  1194.             End If

  1195.             If 總數_nud.Value = 0 Then : Else

  1196.                 休假天數_nud.Value = 可沖天數_nud.Value - (沖帳金額_nud.Value / 平均每天_nud.Value)

  1197.             End If

  1198.         End If

  1199.     End Sub

  1200.     Private Sub 採購單極限數量()

  1201.         總數1_nud.Value = (上班日_nud.Value * 每日單量_nud.Value * 每單最高_nud.Value) / 100 * 折數_nud.Value

  1202.         可開單數_nud.Value = 總數1_nud.Value / 每單最高_nud.Value

  1203.         If 沖帳金額1_nud.Value > 0 Then

  1204.             開單數_nud.Value = 沖帳金額1_nud.Value / 每單最高_nud.Value

  1205.         End If

  1206.     End Sub

  1207.     Private Sub 加總1()

  1208.         取得總數_nud.Value = 0

  1209.         For I As Integer = 0 To 清單1_dgv.Rows.Count - 1 : 取得總數_nud.Value += CLng(清單1_dgv.Rows(I).Cells(13).Value.ToString) : Next

  1210.         For I As Integer = 0 To 清單2_dgv.Rows.Count - 1 : 取得總數_nud.Value += CLng(清單2_dgv.Rows(I).Cells(13).Value.ToString) : Next

  1211.         For I As Integer = 0 To 清單3_dgv.Rows.Count - 1 : 取得總數_nud.Value += CLng(清單3_dgv.Rows(I).Cells(13).Value.ToString) : Next

  1212.         For I As Integer = 0 To 清單4_dgv.Rows.Count - 1 : 取得總數_nud.Value += CLng(清單4_dgv.Rows(I).Cells(13).Value.ToString) : Next

  1213.         For I As Integer = 0 To 清單5_dgv.Rows.Count - 1 : 取得總數_nud.Value += CLng(清單5_dgv.Rows(I).Cells(13).Value.ToString) : Next

  1214.         For I As Integer = 0 To 清單6_dgv.Rows.Count - 1 : 取得總數_nud.Value += CLng(清單6_dgv.Rows(I).Cells(13).Value.ToString) : Next

  1215.         If 取得總數_nud.Value > 0 Then : 沖帳金額_nud.Value = 取得總數_nud.Value : End If

  1216.     End Sub

  1217.     Private Sub 考勤調整_bt_MouseEnter(sender As Object, e As EventArgs) Handles 考勤調整_bt.MouseEnter

  1218.         ToolTip1.SetToolTip(Me.考勤調整_bt, "進行自動計算")

  1219.     End Sub

  1220.     Private Sub 虛擬存檔_bt_MouseEnter(sender As Object, e As EventArgs) Handles 虛擬存檔_bt.MouseEnter

  1221.         ToolTip1.SetToolTip(Me.虛擬存檔_bt, "計算結果存檔")

  1222.     End Sub

  1223.     Private Sub 重新讀取_bt_MouseEnter(sender As Object, e As EventArgs) Handles 重新讀取_bt.MouseEnter

  1224.         ToolTip1.SetToolTip(Me.重新讀取_bt, "重新讀取時間參數")

  1225.     End Sub

  1226.     Private Sub 清除_bt_MouseEnter(sender As Object, e As EventArgs) Handles 清除_bt.MouseEnter

  1227.         ToolTip1.SetToolTip(Me.清除_bt, "清除自動計算取得的數值")

  1228.     End Sub

  1229.     Private Sub 存檔_tb_MouseEnter(sender As Object, e As EventArgs) Handles 存檔_tb.MouseEnter

  1230.         ToolTip1.SetToolTip(Me.存檔_tb, "基本設定與參數存檔")

  1231.     End Sub

  1232.     Private Sub 每月零用金設定_Load(sender As Object, e As EventArgs) Handles MyBase.Load

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

  1234.             Me.MdiParent = HX_PGS_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True

  1235.             年份2_cb.DropDownStyle = ComboBoxStyle.DropDown : 月份2_cb.DropDownStyle = ComboBoxStyle.DropDown

  1236.             結束日期_dtp.Enabled = True

  1237.         Else : Me.WindowState = 0 : Me.AutoScroll = False : Me.Size = New System.Drawing.Point(665, 274)

  1238.             縮放1_bt.Visible = False : 縮放2_bt.Visible = False

  1239.         End If

  1240. 

  1241.         H(612) = True : 介面 = "H612" : 語言轉換讀取() : 首次開啟 = True

  1242.         Panel2.BringToFront() : Panel3.BringToFront() : 取得總數_nud.Value = 0

  1243. 

  1244.         SQL_零用金基本設定()

  1245.         If dr.Read Then : 加班_nud.Value = dr("內帳加班") : 折數_nud.Value = dr("內帳折數") : 每日單量_nud.Value = dr("內帳單量") : 每單最高_nud.Value = dr("內帳採購最高") : End If

  1246. 

  1247.         結束日期_dtp.Value = Today() : 開始日期_dtp.Value = 結束日期_dtp.Value

  1248.         Dim oldDate As Date : Dim oldWeekDay As Integer : oldDate = 結束日期_dtp.Value : oldWeekDay = Weekday(oldDate)

  1249.         If oldWeekDay = 7 Then : 結束日期_dtp.Value = 結束日期_dtp.Value.AddDays(1)

  1250.         ElseIf oldWeekDay = 6 Then : 結束日期_dtp.Value = 結束日期_dtp.Value.AddDays(2)

  1251.         ElseIf oldWeekDay = 5 Then : 結束日期_dtp.Value = 結束日期_dtp.Value.AddDays(3)

  1252.         ElseIf oldWeekDay = 4 Then : 結束日期_dtp.Value = 結束日期_dtp.Value.AddDays(4)

  1253.         ElseIf oldWeekDay = 3 Then : 結束日期_dtp.Value = 結束日期_dtp.Value.AddDays(5)

  1254.         ElseIf oldWeekDay = 2 Then : 結束日期_dtp.Value = 結束日期_dtp.Value.AddDays(6)

  1255.         End If : 開始日期_dtp.Value = 結束日期_dtp.Value.AddDays(-6) : 結束日期_dtp.Value = 開始日期_dtp.Value.AddDays(+6)

  1256.         星期設定()

  1257. 

  1258.         For i As Integer = 1 To 7

  1259.             If Strings.Right(Strings.Format(開始日期_dtp.Value, "yyyy/MM/dd"), 2) = "01" Then : Exit For : End If

  1260.             If Strings.Left(Strings.Format(開始日期_dtp.Value, "yyyy/MM/dd"), 7) = Strings.Left(Strings.Format(結束日期_dtp.Value, "yyyy/MM/dd"), 7) Then

  1261.                 結束日期_dtp.Value = 開始日期_dtp.Value.AddDays(-1) : 開始日期_dtp.Value = 開始日期_dtp.Value.AddDays(-7) : 星期設定()

  1262.             Else : Exit For : End If

  1263.         Next

  1264. 

  1265.         Dim selectedDate As Date = MonthCalendar1.SelectionStart

  1266.         Dim daysInMonth As Integer = DateTime.DaysInMonth(selectedDate.Year, selectedDate.Month)

  1267.         Dim x1 As Integer = 0 : Dim x2 As Integer = 0 ' 週一到週五的天數 週六和週日的天數

  1268.         For day As Integer = 1 To daysInMonth

  1269.             Dim currentDate As New Date(selectedDate.Year, selectedDate.Month, day) : Dim dayOfWeek As DayOfWeek = currentDate.DayOfWeek

  1270.             If dayOfWeek >= DayOfWeek.Monday AndAlso dayOfWeek <= DayOfWeek.Friday Then : x1 += 1

  1271.             ElseIf dayOfWeek = DayOfWeek.Saturday OrElse dayOfWeek = DayOfWeek.Sunday Then : x2 += 1 : End If

  1272.         Next : 上班日_nud.Value = x1 : 放假日_nud.Value = x2 : 採購單極限數量()

  1273.     End Sub

  1274.     Private Sub 每月零用金設定_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown

  1275.         If 登入人級別 = "00" Then : Else

  1276.             Dim screenRectangle As Rectangle = Screen.PrimaryScreen.WorkingArea : Dim formSize As Size = Me.Size

  1277.             Me.Location = New Point((screenRectangle.Width - formSize.Width) \ 2, (screenRectangle.Height - formSize.Height) \ 2)

  1278.         End If

  1279.         年分清單() : 年份2_cb.Text = Year(Today) : 月份2_cb.SelectedIndex = Month(Today) - 1

  1280.         群組1_cb.Text = "HARIAN GROUP" : Set_使用者清單() : Set_供應商() : Set_使用地點()

  1281.         Set_詢價人員() : Set_可用物料() : Set_申請人() : Set_採購單號() : Set_合約號() : 採購當案牘取()

  1282.         加總1() : 沖帳金額1_nud.Value = 每單最高_nud.Value * 3 : 首次開啟 = False

  1283.     End Sub

  1284.     Private Sub 人員薪資_SizeChanged(sender As Object, e As EventArgs) Handles MyBase.SizeChanged

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

  1286.         清單1_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value)

  1287.         清單2_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value)

  1288.         清單3_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value)

  1289.         清單4_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value)

  1290.         清單5_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value)

  1291.         清單6_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value)

  1292.     End Sub

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

  1294.         H(611) = True : 介面 = "H611" : 語言轉換讀取() : 首次開啟 = False

  1295.     End Sub

  1296.     Private Sub 人員薪資_Closed(sender As Object, e As EventArgs) Handles MyBase.Closed

  1297.         HX_PGS_ERP_SYS.WindowState = 0 : HX_PGS_ERP_SYS.MaximizeBox = True : HX_PGS_ERP_SYS.MinimizeBox = True

  1298.         H(611) = False : MyMod.虛擬桌面開啟()

  1299.     End Sub

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

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

  1302.     End Sub

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

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

  1305.     End Sub

  1306.     Private Sub 加班_nud_ValueChanged(sender As Object, e As EventArgs) Handles 加班_nud.ValueChanged

  1307.         If 首次開啟 = False Then : 極限設定() : End If

  1308.     End Sub

  1309.     Private Sub 沖帳金額_nud_ValueChanged(sender As Object, e As EventArgs) Handles 沖帳金額_nud.ValueChanged

  1310.         If 總數_nud.Value = 0 Then : Else

  1311.             休假比例_nud.Value = (沖帳金額_nud.Value / 總數_nud.Value * 100) : 沖帳金額2_nud.Value = 沖帳金額1_nud.Value + 沖帳金額_nud.Value

  1312.             休假天數_nud.Value = 可沖天數_nud.Value - (沖帳金額_nud.Value / 平均每天_nud.Value)

  1313.         End If

  1314.     End Sub

  1315.     Private Sub 每單最高_nud_ValueChanged(sender As Object, e As EventArgs) Handles 每單最高_nud.ValueChanged

  1316.         If 首次開啟 = False Then : 採購單極限數量() : End If

  1317.     End Sub

  1318.     Private Sub 每日單量_nud_ValueChanged(sender As Object, e As EventArgs) Handles 每日單量_nud.ValueChanged

  1319.         If 首次開啟 = False Then : 採購單極限數量() : End If

  1320.     End Sub

  1321.     Private Sub 折數_nud_ValueChanged(sender As Object, e As EventArgs) Handles 折數_nud.ValueChanged

  1322.         If 首次開啟 = False Then : 採購單極限數量() : End If

  1323.     End Sub

  1324.     Private Sub 沖帳金額1_nud_ValueChanged(sender As Object, e As EventArgs) Handles 沖帳金額1_nud.ValueChanged

  1325.         If 首次開啟 = False Then : 採購單極限數量() : End If : 沖帳金額2_nud.Value = 沖帳金額1_nud.Value + 沖帳金額_nud.Value

  1326.     End Sub

  1327.     Private Sub 取得總數_nud_ValueChanged(sender As Object, e As EventArgs) Handles 取得總數_nud.ValueChanged

  1328.         取得總數2_nud.Value = 取得總數_nud.Value + 取得總數1_nud.Value

  1329.     End Sub

  1330.     Private Sub 取得總數1_nud_ValueChanged(sender As Object, e As EventArgs) Handles 取得總數1_nud.ValueChanged

  1331.         取得總數2_nud.Value = 取得總數_nud.Value + 取得總數1_nud.Value

  1332.     End Sub

  1333.     Private Sub 縮放1_bt_Click(sender As Object, e As EventArgs) Handles 縮放1_bt.Click

  1334.         Panel2.BringToFront() : Panel3.BringToFront()

  1335.     End Sub

  1336.     Private Sub 縮放2_bt_Click(sender As Object, e As EventArgs) Handles 縮放2_bt.Click

  1337.         Panel4.BringToFront() : Panel3.BringToFront()

  1338.     End Sub

  1339.     Private Sub ChangeMonth()

  1340.         MonthCalendar1.SetDate(New Date(Today.Year, 月份2_cb.Text, 1))

  1341.     End Sub

  1342.     Private Sub 採購當案牘取()

  1343.         Dim ds1 As New DataSet : 取得總數1_nud.Value = 0

  1344.         控制表_dgv.DataSource = Nothing : ds1.Clear()

  1345.         控制表_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing

  1346.         控制表_dgv.ColumnHeadersHeight = 25 : 控制表_dgv.AllowUserToAddRows = False : 控制表_dgv.RowTemplate.Height = 25

  1347.         SQL_採購控制表1()

  1348.         da.Fill(ds1) : 控制表_dgv.DataSource = ds1.Tables(0) : conn.Close()

  1349.         SQL2 = ""

  1350.         For I As Integer = 0 To 控制表_dgv.Rows.Count - 1

  1351.             If I = 0 Then : SQL2 = "WHERE (採購單號 LIKE '" & 控制表_dgv.Rows(I).Cells(0).Value.ToString & "')"

  1352.             Else : SQL2 &= " OR (採購單號 LIKE '" & 控制表_dgv.Rows(I).Cells(0).Value.ToString & "')" : End If

  1353.         Next

  1354.         明細表_dgv.DataSource = Nothing

  1355.         If 控制表_dgv.Rows.Count > 0 Then

  1356.             Dim ds2 As New DataSet : ds2.Clear()

  1357.             明細表_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing

  1358.             明細表_dgv.ColumnHeadersHeight = 25 : 明細表_dgv.AllowUserToAddRows = False : 明細表_dgv.RowTemplate.Height = 25

  1359.             SQL_採購明細表1()

  1360.             da.Fill(ds2) : 明細表_dgv.DataSource = ds2.Tables(0) : conn.Close()

  1361.         End If

  1362.         For I As Integer = 0 To 明細表_dgv.Rows.Count - 1

  1363.             取得總數1_nud.Value += (明細表_dgv.Rows(I).Cells(6).Value * 明細表_dgv.Rows(I).Cells(4).Value)

  1364.         Next

  1365.     End Sub

  1366.     Private Sub DA1_bt_Click(sender As Object, e As EventArgs) Handles DA1_bt.Click

  1367.         結束日期_dtp.Value = 開始日期_dtp.Value.AddDays(-1) : 開始日期_dtp.Value = 開始日期_dtp.Value.AddDays(-7)

  1368.         For i As Integer = 1 To 7

  1369.             If Strings.Right(Strings.Format(開始日期_dtp.Value, "yyyy/MM/dd"), 2) = "01" Then : Exit For : End If

  1370.             If Strings.Left(Strings.Format(開始日期_dtp.Value, "yyyy/MM/dd"), 7) = Strings.Left(Strings.Format(結束日期_dtp.Value, "yyyy/MM/dd"), 7) Then

  1371.                 結束日期_dtp.Value = 開始日期_dtp.Value.AddDays(-1) : 開始日期_dtp.Value = 開始日期_dtp.Value.AddDays(-7)

  1372.                 星期設定()

  1373.             Else : Exit For : End If

  1374.         Next : 日期判斷() : 星期設定() : Set_使用者清單() : 加總1() : Set_採購單號() : ChangeMonth() : 採購當案牘取()

  1375.     End Sub

  1376.     Private Sub DA2_bt_Click(sender As Object, e As EventArgs) Handles DA2_bt.Click

  1377.         結束日期_dtp.Value = Today() : 開始日期_dtp.Value = 結束日期_dtp.Value

  1378.         Dim oldDate As Date : Dim oldWeekDay As Integer : oldDate = 結束日期_dtp.Value : oldWeekDay = Weekday(oldDate)

  1379.         If oldWeekDay = 7 Then : 結束日期_dtp.Value = 結束日期_dtp.Value.AddDays(1) : ElseIf oldWeekDay = 6 Then : 結束日期_dtp.Value = 結束日期_dtp.Value.AddDays(2)

  1380.         ElseIf oldWeekDay = 5 Then : 結束日期_dtp.Value = 結束日期_dtp.Value.AddDays(3) : ElseIf oldWeekDay = 4 Then : 結束日期_dtp.Value = 結束日期_dtp.Value.AddDays(4)

  1381.         ElseIf oldWeekDay = 3 Then : 結束日期_dtp.Value = 結束日期_dtp.Value.AddDays(5) : ElseIf oldWeekDay = 2 Then : 結束日期_dtp.Value = 結束日期_dtp.Value.AddDays(6)

  1382.         End If : 開始日期_dtp.Value = 結束日期_dtp.Value.AddDays(-6) : 結束日期_dtp.Value = 開始日期_dtp.Value.AddDays(+6)

  1383.         For i As Integer = 1 To 7

  1384.             If Strings.Left(Strings.Format(開始日期_dtp.Value, "yyyy/MM/dd"), 7) = Strings.Left(Strings.Format(結束日期_dtp.Value, "yyyy/MM/dd"), 7) Then

  1385.                 結束日期_dtp.Value = 開始日期_dtp.Value.AddDays(-1) : 開始日期_dtp.Value = 開始日期_dtp.Value.AddDays(-7) : 星期設定()

  1386.             Else : Exit For : End If

  1387.         Next : 日期判斷() : 星期設定() : Set_使用者清單() : 加總1() : Set_採購單號() : ChangeMonth() : 採購當案牘取()

  1388.     End Sub

  1389.     Private Sub DA3_bt_Click(sender As Object, e As EventArgs) Handles DA3_bt.Click

  1390.         結束日期_dtp.Value = 開始日期_dtp.Value.AddDays(+13) : 開始日期_dtp.Value = 開始日期_dtp.Value.AddDays(+7)

  1391.         For i As Integer = 1 To 7

  1392.             If Strings.Left(Strings.Format(開始日期_dtp.Value, "yyyy/MM/dd"), 7) = Strings.Left(Strings.Format(結束日期_dtp.Value, "yyyy/MM/dd"), 7) Then

  1393.                 結束日期_dtp.Value = 開始日期_dtp.Value.AddDays(-1) : 開始日期_dtp.Value = 開始日期_dtp.Value.AddDays(-7) : 星期設定()

  1394.             Else : Exit For : End If

  1395.         Next : 日期判斷() : 星期設定() : Set_使用者清單() : 加總1() : Set_採購單號() : ChangeMonth() : 採購當案牘取()

  1396.     End Sub

  1397.     Private Sub 重新讀取_bt_Click(sender As Object, e As EventArgs) Handles 重新讀取_bt.Click

  1398.         日期判斷() : 星期設定() : Set_使用者清單() : 加總1()

  1399.     End Sub

  1400.     Private Sub 日期判斷()

  1401.         If Strings.Left(Strings.Format(開始日期_dtp.Value, "yyyy/MM/dd"), 4) <> Strings.Left(Strings.Format(結束日期_dtp.Value, "yyyy/MM/dd"), 4) Then

  1402.             PA17 = Strings.Left(Strings.Format(開始日期_dtp.Value, "yyyy/MM/dd"), 4) : PA18 = Strings.Left(Strings.Format(結束日期_dtp.Value, "yyyy/MM/dd"), 4)

  1403.             選擇考勤月份.ShowDialog() : 年份2_cb.Text = PA19

  1404.         Else

  1405.             If Strings.Left(Strings.Format(開始日期_dtp.Value, "yyyy/MM/dd"), 4) <> 年份2_cb.Text Then : 年份2_cb.Text = Strings.Left(Strings.Format(開始日期_dtp.Value, "yyyy/MM/dd"), 4) : End If

  1406.         End If

  1407.         If Strings.Mid(Strings.Format(開始日期_dtp.Value, "yyyy/MM/dd"), 6, 2) <> Strings.Mid(Strings.Format(結束日期_dtp.Value, "yyyy/MM/dd"), 6, 2) Then

  1408.             PA17 = Strings.Mid(Strings.Format(開始日期_dtp.Value, "yyyy/MM/dd"), 6, 2) : PA18 = Strings.Mid(Strings.Format(結束日期_dtp.Value, "yyyy/MM/dd"), 6, 2)

  1409.             選擇考勤月份.ShowDialog() : 月份2_cb.Text = PA19

  1410.         Else

  1411.             If Strings.Mid(Strings.Format(開始日期_dtp.Value, "yyyy/MM/dd"), 6, 2) <> 月份2_cb.Text Then : 月份2_cb.Text = Strings.Mid(Strings.Format(開始日期_dtp.Value, "yyyy/MM/dd"), 6, 2) : End If

  1412.         End If

  1413.     End Sub

  1414.     Private Sub 考勤調整_bt_Click(sender As Object, e As EventArgs) Handles 考勤調整_bt.Click

  1415.         If 薪資計算_ch.Checked = False And 採購計算_ch.Checked = False Then : MGB(對話框(0), 1) : 首次開啟 = False : Exit Sub : End If

  1416.         If 薪資計算_ch.Checked = True Then

  1417.             '------------------------------薪資----------------------------------------------------------------------------------------------------------------------------------------------------

  1418.             Dim 設定1 As Integer = 8 : Dim 設定2 As Integer = 10 : Dim 設定3 As Integer = 12 : Dim 設定4 As Integer = 10 : Dim 設定5 As Integer = 5

  1419.             Dim random1 As New Random() : Dim random2 As New Random() : Dim random3 As New Random() : Dim random4 As New Random() : Dim random5 As New Random()

  1420.             Dim random6 As New Random() : Dim random7 As New Random() : Dim hours As Integer : 取得總數_nud.Value = 0

  1421.             If 群組1_cb.Text <> "HARIAN GROUP" Then : MGB(系統語言字典("H611-110-" & 語言), 1) : 首次開啟 = False : Else

  1422.                 For i As Integer = 0 To 清單1_dgv.Rows.Count - 1

  1423.                     清單1_dgv.Rows(i).Cells(15).Value = "" : 清單1_dgv.Rows(i).Cells(16).Value = "" : 清單1_dgv.Rows(i).Cells(17).Value = "" : 清單1_dgv.Rows(i).Cells(18).Value = ""

  1424.                     清單1_dgv.Rows(i).Cells(19).Value = "" : 清單1_dgv.Rows(i).Cells(20).Value = "" : 清單1_dgv.Rows(i).Cells(21).Value = "" : 清單1_dgv.Rows(i).Cells(22).Value = ""

  1425.                     清單1_dgv.Rows(i).Cells(23).Value = "" : 清單1_dgv.Rows(i).Cells(24).Value = "" : 清單1_dgv.Rows(i).Cells(25).Value = "" : 清單1_dgv.Rows(i).Cells(26).Value = ""

  1426.                     清單1_dgv.Rows(i).Cells(27).Value = "" : 清單1_dgv.Rows(i).Cells(28).Value = ""

  1427.                 Next : AUTO第1周()

  1428. 

  1429.                 For i As Integer = 0 To 清單2_dgv.Rows.Count - 1

  1430.                     清單2_dgv.Rows(i).Cells(15).Value = "" : 清單2_dgv.Rows(i).Cells(16).Value = "" : 清單2_dgv.Rows(i).Cells(17).Value = "" : 清單2_dgv.Rows(i).Cells(18).Value = ""

  1431.                     清單2_dgv.Rows(i).Cells(19).Value = "" : 清單2_dgv.Rows(i).Cells(20).Value = "" : 清單2_dgv.Rows(i).Cells(21).Value = "" : 清單2_dgv.Rows(i).Cells(22).Value = ""

  1432.                     清單2_dgv.Rows(i).Cells(23).Value = "" : 清單2_dgv.Rows(i).Cells(24).Value = "" : 清單2_dgv.Rows(i).Cells(25).Value = "" : 清單2_dgv.Rows(i).Cells(26).Value = ""

  1433.                     清單2_dgv.Rows(i).Cells(27).Value = "" : 清單2_dgv.Rows(i).Cells(28).Value = ""

  1434.                 Next : AUTO第2周()

  1435. 

  1436.                 For i As Integer = 0 To 清單3_dgv.Rows.Count - 1

  1437.                     清單3_dgv.Rows(i).Cells(15).Value = "" : 清單3_dgv.Rows(i).Cells(16).Value = "" : 清單3_dgv.Rows(i).Cells(17).Value = "" : 清單3_dgv.Rows(i).Cells(18).Value = ""

  1438.                     清單3_dgv.Rows(i).Cells(19).Value = "" : 清單3_dgv.Rows(i).Cells(20).Value = "" : 清單3_dgv.Rows(i).Cells(21).Value = "" : 清單3_dgv.Rows(i).Cells(22).Value = ""

  1439.                     清單3_dgv.Rows(i).Cells(23).Value = "" : 清單3_dgv.Rows(i).Cells(24).Value = "" : 清單3_dgv.Rows(i).Cells(25).Value = "" : 清單3_dgv.Rows(i).Cells(26).Value = ""

  1440.                     清單3_dgv.Rows(i).Cells(27).Value = "" : 清單3_dgv.Rows(i).Cells(28).Value = ""

  1441.                 Next : AUTO第3周()

  1442. 

  1443.                 For i As Integer = 0 To 清單4_dgv.Rows.Count - 1

  1444.                     清單4_dgv.Rows(i).Cells(15).Value = "" : 清單4_dgv.Rows(i).Cells(16).Value = "" : 清單4_dgv.Rows(i).Cells(17).Value = "" : 清單4_dgv.Rows(i).Cells(18).Value = ""

  1445.                     清單4_dgv.Rows(i).Cells(19).Value = "" : 清單4_dgv.Rows(i).Cells(20).Value = "" : 清單4_dgv.Rows(i).Cells(21).Value = "" : 清單4_dgv.Rows(i).Cells(22).Value = ""

  1446.                     清單4_dgv.Rows(i).Cells(23).Value = "" : 清單4_dgv.Rows(i).Cells(24).Value = "" : 清單4_dgv.Rows(i).Cells(25).Value = "" : 清單4_dgv.Rows(i).Cells(26).Value = ""

  1447.                     清單4_dgv.Rows(i).Cells(27).Value = "" : 清單4_dgv.Rows(i).Cells(28).Value = ""

  1448.                 Next : AUTO第4周()

  1449. 

  1450.                 For i As Integer = 0 To 清單5_dgv.Rows.Count - 1

  1451.                     清單5_dgv.Rows(i).Cells(15).Value = "" : 清單5_dgv.Rows(i).Cells(16).Value = "" : 清單5_dgv.Rows(i).Cells(17).Value = "" : 清單5_dgv.Rows(i).Cells(18).Value = ""

  1452.                     清單5_dgv.Rows(i).Cells(19).Value = "" : 清單5_dgv.Rows(i).Cells(20).Value = "" : 清單5_dgv.Rows(i).Cells(21).Value = "" : 清單5_dgv.Rows(i).Cells(22).Value = ""

  1453.                     清單5_dgv.Rows(i).Cells(23).Value = "" : 清單5_dgv.Rows(i).Cells(24).Value = "" : 清單5_dgv.Rows(i).Cells(25).Value = "" : 清單5_dgv.Rows(i).Cells(26).Value = ""

  1454.                     清單5_dgv.Rows(i).Cells(27).Value = "" : 清單5_dgv.Rows(i).Cells(28).Value = ""

  1455.                 Next : AUTO第5周()

  1456. 

  1457.                 For i As Integer = 0 To 清單6_dgv.Rows.Count - 1

  1458.                     清單6_dgv.Rows(i).Cells(15).Value = "" : 清單6_dgv.Rows(i).Cells(16).Value = "" : 清單6_dgv.Rows(i).Cells(17).Value = "" : 清單6_dgv.Rows(i).Cells(18).Value = ""

  1459.                     清單6_dgv.Rows(i).Cells(19).Value = "" : 清單6_dgv.Rows(i).Cells(20).Value = "" : 清單6_dgv.Rows(i).Cells(21).Value = "" : 清單6_dgv.Rows(i).Cells(22).Value = ""

  1460.                     清單6_dgv.Rows(i).Cells(23).Value = "" : 清單6_dgv.Rows(i).Cells(24).Value = "" : 清單6_dgv.Rows(i).Cells(25).Value = "" : 清單6_dgv.Rows(i).Cells(26).Value = ""

  1461.                     清單6_dgv.Rows(i).Cells(27).Value = "" : 清單6_dgv.Rows(i).Cells(28).Value = ""

  1462.                 Next : AUTO第6周() : 取得總數_nud.Value = 0

  1463.                 '---------------第1周--------------------------------------------------------------------------------------------------------------------------------------------------------------

  1464.                 For i As Integer = 0 To 清單1_dgv.Rows.Count - 1

  1465.                     If 休假比例_nud.Value > 0 And 休假比例_nud.Value < 20 Then

  1466.                         Dim 計數 As Integer

  1467.                         If Strings.Mid(星1_bt.Text, 6, 2) = 月份2_cb.Text Then

  1468.                             Randomize() : hours = random1.Next(1, 100) : If hours < 休假比例_nud.Value + 設定1 Then

  1469.                                 If 清單1_dgv.Rows(i).Cells(15).Value = "" Then : AUTO時段1() : 清單1_dgv.Rows(i).Cells(15).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  1470.                                 If 清單1_dgv.Rows(i).Cells(16).Value = "" Then : AUTO時段2() : 清單1_dgv.Rows(i).Cells(16).Value = AUTO時 : AUTO舊2 = AUTO時 : End If : 計數 += 1

  1471.                             End If

  1472.                         End If

  1473.                         If 計數 > 可沖天數_nud.Value - 休假天數_nud.Value + 10 Then : Exit For : End If

  1474.                         If Strings.Mid(星2_bt.Text, 6, 2) = 月份2_cb.Text Then

  1475.                             Randomize() : hours = random2.Next(1, 100) : If hours < 休假比例_nud.Value + 設定1 Then

  1476.                                 If 清單1_dgv.Rows(i).Cells(17).Value = "" Then : AUTO時段1() : 清單1_dgv.Rows(i).Cells(17).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  1477.                                 If 清單1_dgv.Rows(i).Cells(18).Value = "" Then : AUTO時段2() : 清單1_dgv.Rows(i).Cells(18).Value = AUTO時 : AUTO舊2 = AUTO時 : End If : 計數 += 1

  1478.                             End If

  1479.                         End If

  1480.                         If 計數 > 可沖天數_nud.Value - 休假天數_nud.Value + 10 Then : Exit For : End If

  1481.                         If Strings.Mid(星3_bt.Text, 6, 2) = 月份2_cb.Text Then

  1482.                             Randomize() : hours = random3.Next(1, 100) : If hours < 休假比例_nud.Value + 設定1 Then

  1483.                                 If 清單1_dgv.Rows(i).Cells(19).Value = "" Then : AUTO時段1() : 清單1_dgv.Rows(i).Cells(19).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  1484.                                 If 清單1_dgv.Rows(i).Cells(20).Value = "" Then : AUTO時段2() : 清單1_dgv.Rows(i).Cells(20).Value = AUTO時 : AUTO舊2 = AUTO時 : End If : 計數 += 1

  1485.                             End If

  1486.                         End If

  1487.                         If 計數 > 可沖天數_nud.Value - 休假天數_nud.Value + 10 Then : Exit For : End If

  1488.                         If Strings.Mid(星4_bt.Text, 6, 2) = 月份2_cb.Text Then

  1489.                             Randomize() : hours = random4.Next(1, 100) : If hours < 休假比例_nud.Value + 設定1 Then

  1490.                                 If 清單1_dgv.Rows(i).Cells(21).Value = "" Then : AUTO時段1() : 清單1_dgv.Rows(i).Cells(21).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  1491.                                 If 清單1_dgv.Rows(i).Cells(22).Value = "" Then : AUTO時段2() : 清單1_dgv.Rows(i).Cells(22).Value = AUTO時 : AUTO舊2 = AUTO時 : End If : 計數 += 1

  1492.                             End If

  1493.                         End If

  1494.                         If 計數 > 可沖天數_nud.Value - 休假天數_nud.Value + 10 Then : Exit For : End If

  1495.                         If Strings.Mid(星5_bt.Text, 6, 2) = 月份2_cb.Text Then

  1496.                             Randomize() : hours = random5.Next(1, 100) : If hours < 休假比例_nud.Value + 設定1 Then

  1497.                                 If 清單1_dgv.Rows(i).Cells(23).Value = "" Then : AUTO時段1() : 清單1_dgv.Rows(i).Cells(23).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  1498.                                 If 清單1_dgv.Rows(i).Cells(24).Value = "" Then : AUTO時段2() : 清單1_dgv.Rows(i).Cells(24).Value = AUTO時 : AUTO舊2 = AUTO時 : End If : 計數 += 1

  1499.                             End If

  1500.                         End If

  1501.                         If 計數 > 可沖天數_nud.Value - 休假天數_nud.Value + 10 Then : Exit For : End If

  1502.                         If Strings.Mid(星6_bt.Text, 6, 2) = 月份2_cb.Text Then

  1503.                             Randomize() : hours = random6.Next(1, 100) : If hours < 休假比例_nud.Value + 設定1 Then

  1504.                                 If 清單1_dgv.Rows(i).Cells(25).Value = "" Then : AUTO時段1() : 清單1_dgv.Rows(i).Cells(25).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  1505.                                 If 清單1_dgv.Rows(i).Cells(26).Value = "" Then : AUTO時段2() : 清單1_dgv.Rows(i).Cells(26).Value = AUTO時 : AUTO舊2 = AUTO時 : End If : 計數 += 1

  1506.                             End If

  1507.                         End If

  1508.                         If 計數 > 可沖天數_nud.Value - 休假天數_nud.Value + 10 Then : Exit For : End If

  1509.                     ElseIf 休假比例_nud.Value >= 20 And 休假比例_nud.Value < 40 Then

  1510.                         Dim 計數 As Integer

  1511.                         If Strings.Mid(星1_bt.Text, 6, 2) = 月份2_cb.Text Then

  1512.                             Randomize() : hours = random1.Next(1, 100) : If hours < 休假比例_nud.Value + 設定2 Then

  1513.                                 If 清單1_dgv.Rows(i).Cells(15).Value = "" Then : AUTO時段1() : 清單1_dgv.Rows(i).Cells(15).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  1514.                                 If 清單1_dgv.Rows(i).Cells(16).Value = "" Then : AUTO時段2() : 清單1_dgv.Rows(i).Cells(16).Value = AUTO時 : AUTO舊2 = AUTO時 : End If : 計數 += 1

  1515.                             End If

  1516.                         End If

  1517.                         If 計數 > 可沖天數_nud.Value - 休假天數_nud.Value + 7 Then : Exit For : End If

  1518.                         If Strings.Mid(星2_bt.Text, 6, 2) = 月份2_cb.Text Then

  1519.                             Randomize() : hours = random2.Next(1, 100) : If hours < 休假比例_nud.Value + 設定2 Then

  1520.                                 If 清單1_dgv.Rows(i).Cells(17).Value = "" Then : AUTO時段1() : 清單1_dgv.Rows(i).Cells(17).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  1521.                                 If 清單1_dgv.Rows(i).Cells(18).Value = "" Then : AUTO時段2() : 清單1_dgv.Rows(i).Cells(18).Value = AUTO時 : AUTO舊2 = AUTO時 : End If : 計數 += 1

  1522.                             End If

  1523.                         End If

  1524.                         If 計數 > 可沖天數_nud.Value - 休假天數_nud.Value + 7 Then : Exit For : End If

  1525.                         If Strings.Mid(星3_bt.Text, 6, 2) = 月份2_cb.Text Then

  1526.                             Randomize() : hours = random3.Next(1, 100) : If hours < 休假比例_nud.Value + 設定2 Then

  1527.                                 If 清單1_dgv.Rows(i).Cells(19).Value = "" Then : AUTO時段1() : 清單1_dgv.Rows(i).Cells(19).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  1528.                                 If 清單1_dgv.Rows(i).Cells(20).Value = "" Then : AUTO時段2() : 清單1_dgv.Rows(i).Cells(20).Value = AUTO時 : AUTO舊2 = AUTO時 : End If : 計數 += 1

  1529.                             End If

  1530.                         End If

  1531.                         If 計數 > 可沖天數_nud.Value - 休假天數_nud.Value + 7 Then : Exit For : End If

  1532.                         If Strings.Mid(星4_bt.Text, 6, 2) = 月份2_cb.Text Then

  1533.                             Randomize() : hours = random4.Next(1, 100) : If hours < 休假比例_nud.Value + 設定2 Then

  1534.                                 If 清單1_dgv.Rows(i).Cells(21).Value = "" Then : AUTO時段1() : 清單1_dgv.Rows(i).Cells(21).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  1535.                                 If 清單1_dgv.Rows(i).Cells(22).Value = "" Then : AUTO時段2() : 清單1_dgv.Rows(i).Cells(22).Value = AUTO時 : AUTO舊2 = AUTO時 : End If : 計數 += 1

  1536.                             End If

  1537.                         End If

  1538.                         If 計數 > 可沖天數_nud.Value - 休假天數_nud.Value + 7 Then : Exit For : End If

  1539.                         If Strings.Mid(星5_bt.Text, 6, 2) = 月份2_cb.Text Then

  1540.                             Randomize() : hours = random5.Next(1, 100) : If hours < 休假比例_nud.Value + 設定2 Then

  1541.                                 If 清單1_dgv.Rows(i).Cells(23).Value = "" Then : AUTO時段1() : 清單1_dgv.Rows(i).Cells(23).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  1542.                                 If 清單1_dgv.Rows(i).Cells(24).Value = "" Then : AUTO時段2() : 清單1_dgv.Rows(i).Cells(24).Value = AUTO時 : AUTO舊2 = AUTO時 : End If : 計數 += 1

  1543.                             End If

  1544.                         End If

  1545.                         If 計數 > 可沖天數_nud.Value - 休假天數_nud.Value + 7 Then : Exit For : End If

  1546.                         If Strings.Mid(星6_bt.Text, 6, 2) = 月份2_cb.Text Then

  1547.                             Randomize() : hours = random6.Next(1, 100) : If hours < 休假比例_nud.Value + 設定2 Then

  1548.                                 If 清單1_dgv.Rows(i).Cells(25).Value = "" Then : AUTO時段1() : 清單1_dgv.Rows(i).Cells(25).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  1549.                                 If 清單1_dgv.Rows(i).Cells(26).Value = "" Then : AUTO時段2() : 清單1_dgv.Rows(i).Cells(26).Value = AUTO時 : AUTO舊2 = AUTO時 : End If : 計數 += 1

  1550.                             End If

  1551.                         End If

  1552.                         If 計數 > 可沖天數_nud.Value - 休假天數_nud.Value + 7 Then : Exit For : End If

  1553.                     ElseIf 休假比例_nud.Value >= 40 And 休假比例_nud.Value < 60 Then

  1554.                         Dim 計數 As Integer

  1555.                         If Strings.Mid(星1_bt.Text, 6, 2) = 月份2_cb.Text Then

  1556.                             Randomize() : hours = random1.Next(1, 100) : If hours < 休假比例_nud.Value + 設定3 Then

  1557.                                 If 清單1_dgv.Rows(i).Cells(15).Value = "" Then : AUTO時段1() : 清單1_dgv.Rows(i).Cells(15).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  1558.                                 If 清單1_dgv.Rows(i).Cells(16).Value = "" Then : AUTO時段2() : 清單1_dgv.Rows(i).Cells(16).Value = AUTO時 : AUTO舊2 = AUTO時 : End If : 計數 += 1

  1559.                             End If

  1560.                         End If

  1561.                         If 計數 > 可沖天數_nud.Value - 休假天數_nud.Value + 5 Then : Exit For : End If

  1562.                         If Strings.Mid(星2_bt.Text, 6, 2) = 月份2_cb.Text Then

  1563.                             Randomize() : hours = random2.Next(1, 100) : If hours < 休假比例_nud.Value + 設定3 Then

  1564.                                 If 清單1_dgv.Rows(i).Cells(17).Value = "" Then : AUTO時段1() : 清單1_dgv.Rows(i).Cells(17).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  1565.                                 If 清單1_dgv.Rows(i).Cells(18).Value = "" Then : AUTO時段2() : 清單1_dgv.Rows(i).Cells(18).Value = AUTO時 : AUTO舊2 = AUTO時 : End If : 計數 += 1

  1566.                             End If

  1567.                         End If

  1568.                         If 計數 > 可沖天數_nud.Value - 休假天數_nud.Value + 5 Then : Exit For : End If

  1569.                         If Strings.Mid(星3_bt.Text, 6, 2) = 月份2_cb.Text Then

  1570.                             Randomize() : hours = random3.Next(1, 100) : If hours < 休假比例_nud.Value + 設定3 Then

  1571.                                 If 清單1_dgv.Rows(i).Cells(19).Value = "" Then : AUTO時段1() : 清單1_dgv.Rows(i).Cells(19).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  1572.                                 If 清單1_dgv.Rows(i).Cells(20).Value = "" Then : AUTO時段2() : 清單1_dgv.Rows(i).Cells(20).Value = AUTO時 : AUTO舊2 = AUTO時 : End If : 計數 += 1

  1573.                             End If

  1574.                         End If

  1575.                         If 計數 > 可沖天數_nud.Value - 休假天數_nud.Value + 5 Then : Exit For : End If

  1576.                         If Strings.Mid(星4_bt.Text, 6, 2) = 月份2_cb.Text Then

  1577.                             Randomize() : hours = random4.Next(1, 100) : If hours < 休假比例_nud.Value + 設定3 Then

  1578.                                 If 清單1_dgv.Rows(i).Cells(21).Value = "" Then : AUTO時段1() : 清單1_dgv.Rows(i).Cells(21).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  1579.                                 If 清單1_dgv.Rows(i).Cells(22).Value = "" Then : AUTO時段2() : 清單1_dgv.Rows(i).Cells(22).Value = AUTO時 : AUTO舊2 = AUTO時 : End If : 計數 += 1

  1580.                             End If

  1581.                         End If

  1582.                         If 計數 > 可沖天數_nud.Value - 休假天數_nud.Value + 5 Then : Exit For : End If

  1583.                         If Strings.Mid(星5_bt.Text, 6, 2) = 月份2_cb.Text Then

  1584.                             Randomize() : hours = random5.Next(1, 100) : If hours < 休假比例_nud.Value + 設定3 Then

  1585.                                 If 清單1_dgv.Rows(i).Cells(23).Value = "" Then : AUTO時段1() : 清單1_dgv.Rows(i).Cells(23).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  1586.                                 If 清單1_dgv.Rows(i).Cells(24).Value = "" Then : AUTO時段2() : 清單1_dgv.Rows(i).Cells(24).Value = AUTO時 : AUTO舊2 = AUTO時 : End If : 計數 += 1

  1587.                             End If

  1588.                         End If

  1589.                         If 計數 > 可沖天數_nud.Value - 休假天數_nud.Value + 5 Then : Exit For : End If

  1590.                         If Strings.Mid(星6_bt.Text, 6, 2) = 月份2_cb.Text Then

  1591.                             Randomize() : hours = random6.Next(1, 100) : If hours < 休假比例_nud.Value + 設定3 Then

  1592.                                 If 清單1_dgv.Rows(i).Cells(25).Value = "" Then : AUTO時段1() : 清單1_dgv.Rows(i).Cells(25).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  1593.                                 If 清單1_dgv.Rows(i).Cells(26).Value = "" Then : AUTO時段2() : 清單1_dgv.Rows(i).Cells(26).Value = AUTO時 : AUTO舊2 = AUTO時 : End If : 計數 += 1

  1594.                             End If

  1595.                         End If

  1596.                         If 計數 > 可沖天數_nud.Value - 休假天數_nud.Value + 5 Then : Exit For : End If

  1597.                     ElseIf 休假比例_nud.Value >= 60 And 休假比例_nud.Value < 80 Then

  1598.                         Dim 計數 As Integer

  1599.                         If Strings.Mid(星1_bt.Text, 6, 2) = 月份2_cb.Text Then

  1600.                             Randomize() : hours = random1.Next(1, 100) : If hours < 休假比例_nud.Value + 設定4 Then

  1601.                                 If 清單1_dgv.Rows(i).Cells(15).Value = "" Then : AUTO時段1() : 清單1_dgv.Rows(i).Cells(15).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  1602.                                 If 清單1_dgv.Rows(i).Cells(16).Value = "" Then : AUTO時段2() : 清單1_dgv.Rows(i).Cells(16).Value = AUTO時 : AUTO舊2 = AUTO時 : End If : 計數 += 1

  1603.                             End If

  1604.                         End If

  1605.                         If 計數 > 可沖天數_nud.Value - 休假天數_nud.Value + 3 Then : Exit For : End If

  1606.                         If Strings.Mid(星2_bt.Text, 6, 2) = 月份2_cb.Text Then

  1607.                             Randomize() : hours = random2.Next(1, 100) : If hours < 休假比例_nud.Value + 設定4 Then

  1608.                                 If 清單1_dgv.Rows(i).Cells(17).Value = "" Then : AUTO時段1() : 清單1_dgv.Rows(i).Cells(17).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  1609.                                 If 清單1_dgv.Rows(i).Cells(18).Value = "" Then : AUTO時段2() : 清單1_dgv.Rows(i).Cells(18).Value = AUTO時 : AUTO舊2 = AUTO時 : End If : 計數 += 1

  1610.                             End If

  1611.                         End If

  1612.                         If 計數 > 可沖天數_nud.Value - 休假天數_nud.Value + 3 Then : Exit For : End If

  1613.                         If Strings.Mid(星3_bt.Text, 6, 2) = 月份2_cb.Text Then

  1614.                             Randomize() : hours = random3.Next(1, 100) : If hours < 休假比例_nud.Value + 設定4 Then

  1615.                                 If 清單1_dgv.Rows(i).Cells(19).Value = "" Then : AUTO時段1() : 清單1_dgv.Rows(i).Cells(19).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  1616.                                 If 清單1_dgv.Rows(i).Cells(20).Value = "" Then : AUTO時段2() : 清單1_dgv.Rows(i).Cells(20).Value = AUTO時 : AUTO舊2 = AUTO時 : End If : 計數 += 1

  1617.                             End If

  1618.                         End If

  1619.                         If 計數 > 可沖天數_nud.Value - 休假天數_nud.Value + 3 Then : Exit For : End If

  1620.                         If Strings.Mid(星4_bt.Text, 6, 2) = 月份2_cb.Text Then

  1621.                             Randomize() : hours = random4.Next(1, 100) : If hours < 休假比例_nud.Value + 設定4 Then

  1622.                                 If 清單1_dgv.Rows(i).Cells(21).Value = "" Then : AUTO時段1() : 清單1_dgv.Rows(i).Cells(21).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  1623.                                 If 清單1_dgv.Rows(i).Cells(22).Value = "" Then : AUTO時段2() : 清單1_dgv.Rows(i).Cells(22).Value = AUTO時 : AUTO舊2 = AUTO時 : End If : 計數 += 1

  1624.                             End If

  1625.                         End If

  1626.                         If 計數 > 可沖天數_nud.Value - 休假天數_nud.Value + 3 Then : Exit For : End If

  1627.                         If Strings.Mid(星5_bt.Text, 6, 2) = 月份2_cb.Text Then

  1628.                             Randomize() : hours = random5.Next(1, 100) : If hours < 休假比例_nud.Value + 設定4 Then

  1629.                                 If 清單1_dgv.Rows(i).Cells(23).Value = "" Then : AUTO時段1() : 清單1_dgv.Rows(i).Cells(23).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  1630.                                 If 清單1_dgv.Rows(i).Cells(24).Value = "" Then : AUTO時段2() : 清單1_dgv.Rows(i).Cells(24).Value = AUTO時 : AUTO舊2 = AUTO時 : End If : 計數 += 1

  1631.                             End If

  1632.                         End If

  1633.                         If 計數 > 可沖天數_nud.Value - 休假天數_nud.Value + 3 Then : Exit For : End If

  1634.                         If Strings.Mid(星6_bt.Text, 6, 2) = 月份2_cb.Text Then

  1635.                             Randomize() : hours = random6.Next(1, 100) : If hours < 休假比例_nud.Value + 設定4 Then

  1636.                                 If 清單1_dgv.Rows(i).Cells(25).Value = "" Then : AUTO時段1() : 清單1_dgv.Rows(i).Cells(25).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  1637.                                 If 清單1_dgv.Rows(i).Cells(26).Value = "" Then : AUTO時段2() : 清單1_dgv.Rows(i).Cells(26).Value = AUTO時 : AUTO舊2 = AUTO時 : End If : 計數 += 1

  1638.                             End If

  1639.                         End If

  1640.                         If 計數 > 可沖天數_nud.Value - 休假天數_nud.Value + 3 Then : Exit For : End If

  1641.                         If Strings.Mid(星7_bt.Text, 6, 2) = 月份2_cb.Text Then

  1642.                             Randomize() : hours = random7.Next(1, 100) : If hours < 休假比例_nud.Value - 48 Then

  1643.                                 If 清單1_dgv.Rows(i).Cells(27).Value = "" Then : AUTO時段1() : 清單1_dgv.Rows(i).Cells(27).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  1644.                                 If 清單1_dgv.Rows(i).Cells(28).Value = "" Then : AUTO時段2() : 清單1_dgv.Rows(i).Cells(28).Value = AUTO時 : AUTO舊2 = AUTO時 : End If : 計數 += 1

  1645.                             End If

  1646.                         End If

  1647.                         If 計數 > 可沖天數_nud.Value - 休假天數_nud.Value + 3 Then : Exit For : End If

  1648.                     ElseIf 休假比例_nud.Value >= 80 And 休假比例_nud.Value < 100 Then

  1649.                         Dim 計數 As Integer

  1650.                         If Strings.Mid(星1_bt.Text, 6, 2) = 月份2_cb.Text Then

  1651.                             Randomize() : hours = random1.Next(1, 100) : If hours < 休假比例_nud.Value + 設定5 Then

  1652.                                 If 清單1_dgv.Rows(i).Cells(15).Value = "" Then : AUTO時段1() : 清單1_dgv.Rows(i).Cells(15).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  1653.                                 If 清單1_dgv.Rows(i).Cells(16).Value = "" Then : AUTO時段2() : 清單1_dgv.Rows(i).Cells(16).Value = AUTO時 : AUTO舊2 = AUTO時 : End If : 計數 += 1

  1654.                             End If

  1655.                         End If : If 計數 > 可沖天數_nud.Value - 休假天數_nud.Value + 1 Then : Exit For : End If

  1656.                         If Strings.Mid(星2_bt.Text, 6, 2) = 月份2_cb.Text Then

  1657.                             Randomize() : hours = random2.Next(1, 100) : If hours < 休假比例_nud.Value + 設定5 Then

  1658.                                 If 清單1_dgv.Rows(i).Cells(17).Value = "" Then : AUTO時段1() : 清單1_dgv.Rows(i).Cells(17).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  1659.                                 If 清單1_dgv.Rows(i).Cells(18).Value = "" Then : AUTO時段2() : 清單1_dgv.Rows(i).Cells(18).Value = AUTO時 : AUTO舊2 = AUTO時 : End If : 計數 += 1

  1660.                             End If

  1661.                         End If : If 計數 > 可沖天數_nud.Value - 休假天數_nud.Value + 1 Then : Exit For : End If

  1662.                         If Strings.Mid(星3_bt.Text, 6, 2) = 月份2_cb.Text Then

  1663.                             Randomize() : hours = random3.Next(1, 100) : If hours < 休假比例_nud.Value + 設定5 Then

  1664.                                 If 清單1_dgv.Rows(i).Cells(19).Value = "" Then : AUTO時段1() : 清單1_dgv.Rows(i).Cells(19).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  1665.                                 If 清單1_dgv.Rows(i).Cells(20).Value = "" Then : AUTO時段2() : 清單1_dgv.Rows(i).Cells(20).Value = AUTO時 : AUTO舊2 = AUTO時 : End If : 計數 += 1

  1666.                             End If

  1667.                         End If : If 計數 > 可沖天數_nud.Value - 休假天數_nud.Value + 1 Then : Exit For : End If

  1668.                         If Strings.Mid(星4_bt.Text, 6, 2) = 月份2_cb.Text Then

  1669.                             Randomize() : hours = random4.Next(1, 100) : If hours < 休假比例_nud.Value + 設定5 Then

  1670.                                 If 清單1_dgv.Rows(i).Cells(21).Value = "" Then : AUTO時段1() : 清單1_dgv.Rows(i).Cells(21).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  1671.                                 If 清單1_dgv.Rows(i).Cells(22).Value = "" Then : AUTO時段2() : 清單1_dgv.Rows(i).Cells(22).Value = AUTO時 : AUTO舊2 = AUTO時 : End If : 計數 += 1

  1672.                             End If

  1673.                         End If : If 計數 > 可沖天數_nud.Value - 休假天數_nud.Value + 1 Then : Exit For : End If

  1674.                         If Strings.Mid(星5_bt.Text, 6, 2) = 月份2_cb.Text Then

  1675.                             Randomize() : hours = random5.Next(1, 100) : If hours < 休假比例_nud.Value + 設定5 Then

  1676.                                 If 清單1_dgv.Rows(i).Cells(23).Value = "" Then : AUTO時段1() : 清單1_dgv.Rows(i).Cells(23).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  1677.                                 If 清單1_dgv.Rows(i).Cells(24).Value = "" Then : AUTO時段2() : 清單1_dgv.Rows(i).Cells(24).Value = AUTO時 : AUTO舊2 = AUTO時 : End If : 計數 += 1

  1678.                             End If

  1679.                         End If : If 計數 > 可沖天數_nud.Value - 休假天數_nud.Value + 1 Then : Exit For : End If

  1680.                         If Strings.Mid(星6_bt.Text, 6, 2) = 月份2_cb.Text Then

  1681.                             Randomize() : hours = random6.Next(1, 100) : If hours < 休假比例_nud.Value + 設定5 Then

  1682.                                 If 清單1_dgv.Rows(i).Cells(25).Value = "" Then : AUTO時段1() : 清單1_dgv.Rows(i).Cells(25).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  1683.                                 If 清單1_dgv.Rows(i).Cells(26).Value = "" Then : AUTO時段2() : 清單1_dgv.Rows(i).Cells(26).Value = AUTO時 : AUTO舊2 = AUTO時 : End If : 計數 += 1

  1684.                             End If

  1685.                         End If : If 計數 > 可沖天數_nud.Value - 休假天數_nud.Value + 1 Then : Exit For : End If

  1686.                         If Strings.Mid(星7_bt.Text, 6, 2) = 月份2_cb.Text Then

  1687.                             Randomize() : hours = random7.Next(1, 100) : If hours < 休假比例_nud.Value - 30 Then

  1688.                                 If 清單1_dgv.Rows(i).Cells(27).Value = "" Then : AUTO時段1() : 清單1_dgv.Rows(i).Cells(27).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  1689.                                 If 清單1_dgv.Rows(i).Cells(28).Value = "" Then : AUTO時段2() : 清單1_dgv.Rows(i).Cells(28).Value = AUTO時 : AUTO舊2 = AUTO時 : End If : 計數 += 1

  1690.                             End If

  1691.                         End If : If 計數 > 可沖天數_nud.Value - 休假天數_nud.Value + 1 Then : Exit For : End If

  1692.                     ElseIf 休假比例_nud.Value = 100 Then

  1693.                         If 清單1_dgv.Rows(i).Cells(15).Value = "" Then : AUTO時段1() : 清單1_dgv.Rows(i).Cells(15).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  1694.                         If 清單1_dgv.Rows(i).Cells(16).Value = "" Then : AUTO時段2() : 清單1_dgv.Rows(i).Cells(16).Value = AUTO時 : AUTO舊2 = AUTO時 : End If

  1695.                         If 清單1_dgv.Rows(i).Cells(17).Value = "" Then : AUTO時段1() : 清單1_dgv.Rows(i).Cells(17).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  1696.                         If 清單1_dgv.Rows(i).Cells(18).Value = "" Then : AUTO時段2() : 清單1_dgv.Rows(i).Cells(18).Value = AUTO時 : AUTO舊2 = AUTO時 : End If

  1697.                         If 清單1_dgv.Rows(i).Cells(19).Value = "" Then : AUTO時段1() : 清單1_dgv.Rows(i).Cells(19).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  1698.                         If 清單1_dgv.Rows(i).Cells(20).Value = "" Then : AUTO時段2() : 清單1_dgv.Rows(i).Cells(20).Value = AUTO時 : AUTO舊2 = AUTO時 : End If

  1699.                         If 清單1_dgv.Rows(i).Cells(21).Value = "" Then : AUTO時段1() : 清單1_dgv.Rows(i).Cells(21).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  1700.                         If 清單1_dgv.Rows(i).Cells(22).Value = "" Then : AUTO時段2() : 清單1_dgv.Rows(i).Cells(22).Value = AUTO時 : AUTO舊2 = AUTO時 : End If

  1701.                         If 清單1_dgv.Rows(i).Cells(23).Value = "" Then : AUTO時段1() : 清單1_dgv.Rows(i).Cells(23).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  1702.                         If 清單1_dgv.Rows(i).Cells(24).Value = "" Then : AUTO時段2() : 清單1_dgv.Rows(i).Cells(24).Value = AUTO時 : AUTO舊2 = AUTO時 : End If

  1703.                         If 清單1_dgv.Rows(i).Cells(25).Value = "" Then : AUTO時段1() : 清單1_dgv.Rows(i).Cells(25).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  1704.                         If 清單1_dgv.Rows(i).Cells(26).Value = "" Then : AUTO時段2() : 清單1_dgv.Rows(i).Cells(26).Value = AUTO時 : AUTO舊2 = AUTO時 : End If

  1705.                         If 清單1_dgv.Rows(i).Cells(27).Value = "" Then : AUTO時段1() : 清單1_dgv.Rows(i).Cells(27).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  1706.                         If 清單1_dgv.Rows(i).Cells(28).Value = "" Then : AUTO時段2() : 清單1_dgv.Rows(i).Cells(28).Value = AUTO時 : AUTO舊2 = AUTO時 : End If

  1707.                     End If

  1708.                 Next : AUTO第1周()

  1709.                 '---------------第2周--------------------------------------------------------------------------------------------------------------------------------------------------------------

  1710.                 For i As Integer = 0 To 清單2_dgv.Rows.Count - 1

  1711.                     If 休假比例_nud.Value > 0 And 休假比例_nud.Value < 20 Then

  1712.                         Dim 計數 As Integer

  1713.                         Randomize() : hours = random1.Next(1, 100) : If hours < 休假比例_nud.Value + 設定1 Then

  1714.                             If 清單2_dgv.Rows(i).Cells(15).Value = "" Then : AUTO時段1() : 清單2_dgv.Rows(i).Cells(15).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  1715.                             If 清單2_dgv.Rows(i).Cells(16).Value = "" Then : AUTO時段2() : 清單2_dgv.Rows(i).Cells(16).Value = AUTO時 : AUTO舊2 = AUTO時 : End If : 計數 += 1

  1716.                         End If

  1717.                         If 計數 > 可沖天數_nud.Value - 休假天數_nud.Value + 10 Then : Exit For : End If

  1718.                         Randomize() : hours = random2.Next(1, 100) : If hours < 休假比例_nud.Value + 設定1 Then

  1719.                             If 清單2_dgv.Rows(i).Cells(17).Value = "" Then : AUTO時段1() : 清單2_dgv.Rows(i).Cells(17).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  1720.                             If 清單2_dgv.Rows(i).Cells(18).Value = "" Then : AUTO時段2() : 清單2_dgv.Rows(i).Cells(18).Value = AUTO時 : AUTO舊2 = AUTO時 : End If : 計數 += 1

  1721.                         End If

  1722.                         If 計數 > 可沖天數_nud.Value - 休假天數_nud.Value + 10 Then : Exit For : End If

  1723.                         Randomize() : hours = random3.Next(1, 100) : If hours < 休假比例_nud.Value + 設定1 Then

  1724.                             If 清單2_dgv.Rows(i).Cells(19).Value = "" Then : AUTO時段1() : 清單2_dgv.Rows(i).Cells(19).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  1725.                             If 清單2_dgv.Rows(i).Cells(20).Value = "" Then : AUTO時段2() : 清單2_dgv.Rows(i).Cells(20).Value = AUTO時 : AUTO舊2 = AUTO時 : End If : 計數 += 1

  1726.                         End If

  1727.                         If 計數 > 可沖天數_nud.Value - 休假天數_nud.Value + 10 Then : Exit For : End If

  1728.                         Randomize() : hours = random4.Next(1, 100) : If hours < 休假比例_nud.Value + 設定1 Then

  1729.                             If 清單2_dgv.Rows(i).Cells(21).Value = "" Then : AUTO時段1() : 清單2_dgv.Rows(i).Cells(21).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  1730.                             If 清單2_dgv.Rows(i).Cells(22).Value = "" Then : AUTO時段2() : 清單2_dgv.Rows(i).Cells(22).Value = AUTO時 : AUTO舊2 = AUTO時 : End If : 計數 += 1

  1731.                         End If

  1732.                         If 計數 > 可沖天數_nud.Value - 休假天數_nud.Value + 10 Then : Exit For : End If

  1733.                         Randomize() : hours = random5.Next(1, 100) : If hours < 休假比例_nud.Value + 設定1 Then

  1734.                             If 清單2_dgv.Rows(i).Cells(23).Value = "" Then : AUTO時段1() : 清單2_dgv.Rows(i).Cells(23).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  1735.                             If 清單2_dgv.Rows(i).Cells(24).Value = "" Then : AUTO時段2() : 清單2_dgv.Rows(i).Cells(24).Value = AUTO時 : AUTO舊2 = AUTO時 : End If : 計數 += 1

  1736.                         End If

  1737.                         If 計數 > 可沖天數_nud.Value - 休假天數_nud.Value + 10 Then : Exit For : End If

  1738.                         Randomize() : hours = random6.Next(1, 100) : If hours < 休假比例_nud.Value + 設定1 Then

  1739.                             If 清單2_dgv.Rows(i).Cells(25).Value = "" Then : AUTO時段1() : 清單2_dgv.Rows(i).Cells(25).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  1740.                             If 清單2_dgv.Rows(i).Cells(26).Value = "" Then : AUTO時段2() : 清單2_dgv.Rows(i).Cells(26).Value = AUTO時 : AUTO舊2 = AUTO時 : End If : 計數 += 1

  1741.                         End If

  1742.                         If 計數 > 可沖天數_nud.Value - 休假天數_nud.Value + 10 Then : Exit For : End If

  1743.                     ElseIf 休假比例_nud.Value >= 20 And 休假比例_nud.Value < 40 Then

  1744.                         Dim 計數 As Integer

  1745.                         Randomize() : hours = random1.Next(1, 100) : If hours < 休假比例_nud.Value + 設定2 Then

  1746.                             If 清單2_dgv.Rows(i).Cells(15).Value = "" Then : AUTO時段1() : 清單2_dgv.Rows(i).Cells(15).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  1747.                             If 清單2_dgv.Rows(i).Cells(16).Value = "" Then : AUTO時段2() : 清單2_dgv.Rows(i).Cells(16).Value = AUTO時 : AUTO舊2 = AUTO時 : End If : 計數 += 1

  1748.                         End If

  1749.                         If 計數 > 可沖天數_nud.Value - 休假天數_nud.Value + 7 Then : Exit For : End If

  1750.                         Randomize() : hours = random2.Next(1, 100) : If hours < 休假比例_nud.Value + 設定2 Then

  1751.                             If 清單2_dgv.Rows(i).Cells(17).Value = "" Then : AUTO時段1() : 清單2_dgv.Rows(i).Cells(17).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  1752.                             If 清單2_dgv.Rows(i).Cells(18).Value = "" Then : AUTO時段2() : 清單2_dgv.Rows(i).Cells(18).Value = AUTO時 : AUTO舊2 = AUTO時 : End If : 計數 += 1

  1753.                         End If

  1754.                         If 計數 > 可沖天數_nud.Value - 休假天數_nud.Value + 7 Then : Exit For : End If

  1755.                         Randomize() : hours = random3.Next(1, 100) : If hours < 休假比例_nud.Value + 設定2 Then

  1756.                             If 清單2_dgv.Rows(i).Cells(19).Value = "" Then : AUTO時段1() : 清單2_dgv.Rows(i).Cells(19).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  1757.                             If 清單2_dgv.Rows(i).Cells(20).Value = "" Then : AUTO時段2() : 清單2_dgv.Rows(i).Cells(20).Value = AUTO時 : AUTO舊2 = AUTO時 : End If : 計數 += 1

  1758.                         End If

  1759.                         If 計數 > 可沖天數_nud.Value - 休假天數_nud.Value + 7 Then : Exit For : End If

  1760.                         Randomize() : hours = random4.Next(1, 100) : If hours < 休假比例_nud.Value + 設定2 Then

  1761.                             If 清單2_dgv.Rows(i).Cells(21).Value = "" Then : AUTO時段1() : 清單2_dgv.Rows(i).Cells(21).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  1762.                             If 清單2_dgv.Rows(i).Cells(22).Value = "" Then : AUTO時段2() : 清單2_dgv.Rows(i).Cells(22).Value = AUTO時 : AUTO舊2 = AUTO時 : End If : 計數 += 1

  1763.                         End If

  1764.                         If 計數 > 可沖天數_nud.Value - 休假天數_nud.Value + 7 Then : Exit For : End If

  1765.                         Randomize() : hours = random5.Next(1, 100) : If hours < 休假比例_nud.Value + 設定2 Then

  1766.                             If 清單2_dgv.Rows(i).Cells(23).Value = "" Then : AUTO時段1() : 清單2_dgv.Rows(i).Cells(23).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  1767.                             If 清單2_dgv.Rows(i).Cells(24).Value = "" Then : AUTO時段2() : 清單2_dgv.Rows(i).Cells(24).Value = AUTO時 : AUTO舊2 = AUTO時 : End If : 計數 += 1

  1768.                         End If

  1769.                         If 計數 > 可沖天數_nud.Value - 休假天數_nud.Value + 7 Then : Exit For : End If

  1770.                         Randomize() : hours = random6.Next(1, 100) : If hours < 休假比例_nud.Value + 設定2 Then

  1771.                             If 清單2_dgv.Rows(i).Cells(25).Value = "" Then : AUTO時段1() : 清單2_dgv.Rows(i).Cells(25).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  1772.                             If 清單2_dgv.Rows(i).Cells(26).Value = "" Then : AUTO時段2() : 清單2_dgv.Rows(i).Cells(26).Value = AUTO時 : AUTO舊2 = AUTO時 : End If : 計數 += 1

  1773.                         End If

  1774.                         If 計數 > 可沖天數_nud.Value - 休假天數_nud.Value + 7 Then : Exit For : End If

  1775.                     ElseIf 休假比例_nud.Value >= 40 And 休假比例_nud.Value < 60 Then

  1776.                         Dim 計數 As Integer

  1777.                         Randomize() : hours = random1.Next(1, 100) : If hours < 休假比例_nud.Value + 設定3 Then

  1778.                             If 清單2_dgv.Rows(i).Cells(15).Value = "" Then : AUTO時段1() : 清單2_dgv.Rows(i).Cells(15).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  1779.                             If 清單2_dgv.Rows(i).Cells(16).Value = "" Then : AUTO時段2() : 清單2_dgv.Rows(i).Cells(16).Value = AUTO時 : AUTO舊2 = AUTO時 : End If : 計數 += 1

  1780.                         End If

  1781.                         If 計數 > 可沖天數_nud.Value - 休假天數_nud.Value + 5 Then : Exit For : End If

  1782.                         Randomize() : hours = random2.Next(1, 100) : If hours < 休假比例_nud.Value + 設定3 Then

  1783.                             If 清單2_dgv.Rows(i).Cells(17).Value = "" Then : AUTO時段1() : 清單2_dgv.Rows(i).Cells(17).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  1784.                             If 清單2_dgv.Rows(i).Cells(18).Value = "" Then : AUTO時段2() : 清單2_dgv.Rows(i).Cells(18).Value = AUTO時 : AUTO舊2 = AUTO時 : End If : 計數 += 1

  1785.                         End If

  1786.                         If 計數 > 可沖天數_nud.Value - 休假天數_nud.Value + 5 Then : Exit For : End If

  1787.                         Randomize() : hours = random3.Next(1, 100) : If hours < 休假比例_nud.Value + 設定3 Then

  1788.                             If 清單2_dgv.Rows(i).Cells(19).Value = "" Then : AUTO時段1() : 清單2_dgv.Rows(i).Cells(19).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  1789.                             If 清單2_dgv.Rows(i).Cells(20).Value = "" Then : AUTO時段2() : 清單2_dgv.Rows(i).Cells(20).Value = AUTO時 : AUTO舊2 = AUTO時 : End If : 計數 += 1

  1790.                         End If

  1791.                         If 計數 > 可沖天數_nud.Value - 休假天數_nud.Value + 5 Then : Exit For : End If

  1792.                         Randomize() : hours = random4.Next(1, 100) : If hours < 休假比例_nud.Value + 設定3 Then

  1793.                             If 清單2_dgv.Rows(i).Cells(21).Value = "" Then : AUTO時段1() : 清單2_dgv.Rows(i).Cells(21).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  1794.                             If 清單2_dgv.Rows(i).Cells(22).Value = "" Then : AUTO時段2() : 清單2_dgv.Rows(i).Cells(22).Value = AUTO時 : AUTO舊2 = AUTO時 : End If : 計數 += 1

  1795.                         End If

  1796.                         If 計數 > 可沖天數_nud.Value - 休假天數_nud.Value + 5 Then : Exit For : End If

  1797.                         Randomize() : hours = random5.Next(1, 100) : If hours < 休假比例_nud.Value + 設定3 Then

  1798.                             If 清單2_dgv.Rows(i).Cells(23).Value = "" Then : AUTO時段1() : 清單2_dgv.Rows(i).Cells(23).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  1799.                             If 清單2_dgv.Rows(i).Cells(24).Value = "" Then : AUTO時段2() : 清單2_dgv.Rows(i).Cells(24).Value = AUTO時 : AUTO舊2 = AUTO時 : End If : 計數 += 1

  1800.                         End If

  1801.                         If 計數 > 可沖天數_nud.Value - 休假天數_nud.Value + 5 Then : Exit For : End If

  1802.                         Randomize() : hours = random6.Next(1, 100) : If hours < 休假比例_nud.Value + 設定3 Then

  1803.                             If 清單2_dgv.Rows(i).Cells(25).Value = "" Then : AUTO時段1() : 清單2_dgv.Rows(i).Cells(25).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  1804.                             If 清單2_dgv.Rows(i).Cells(26).Value = "" Then : AUTO時段2() : 清單2_dgv.Rows(i).Cells(26).Value = AUTO時 : AUTO舊2 = AUTO時 : End If : 計數 += 1

  1805.                         End If

  1806.                         If 計數 > 可沖天數_nud.Value - 休假天數_nud.Value + 5 Then : Exit For : End If

  1807.                     ElseIf 休假比例_nud.Value >= 60 And 休假比例_nud.Value < 80 Then

  1808.                         Dim 計數 As Integer

  1809.                         Randomize() : hours = random1.Next(1, 100) : If hours < 休假比例_nud.Value + 設定4 Then

  1810.                             If 清單2_dgv.Rows(i).Cells(15).Value = "" Then : AUTO時段1() : 清單2_dgv.Rows(i).Cells(15).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  1811.                             If 清單2_dgv.Rows(i).Cells(16).Value = "" Then : AUTO時段2() : 清單2_dgv.Rows(i).Cells(16).Value = AUTO時 : AUTO舊2 = AUTO時 : End If : 計數 += 1

  1812.                         End If

  1813.                         If 計數 > 可沖天數_nud.Value - 休假天數_nud.Value + 3 Then : Exit For : End If

  1814.                         Randomize() : hours = random2.Next(1, 100) : If hours < 休假比例_nud.Value + 設定4 Then

  1815.                             If 清單2_dgv.Rows(i).Cells(17).Value = "" Then : AUTO時段1() : 清單2_dgv.Rows(i).Cells(17).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  1816.                             If 清單2_dgv.Rows(i).Cells(18).Value = "" Then : AUTO時段2() : 清單2_dgv.Rows(i).Cells(18).Value = AUTO時 : AUTO舊2 = AUTO時 : End If : 計數 += 1

  1817.                         End If

  1818.                         If 計數 > 可沖天數_nud.Value - 休假天數_nud.Value + 3 Then : Exit For : End If

  1819.                         Randomize() : hours = random3.Next(1, 100) : If hours < 休假比例_nud.Value + 設定4 Then

  1820.                             If 清單2_dgv.Rows(i).Cells(19).Value = "" Then : AUTO時段1() : 清單2_dgv.Rows(i).Cells(19).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  1821.                             If 清單2_dgv.Rows(i).Cells(20).Value = "" Then : AUTO時段2() : 清單2_dgv.Rows(i).Cells(20).Value = AUTO時 : AUTO舊2 = AUTO時 : End If : 計數 += 1

  1822.                         End If

  1823.                         If 計數 > 可沖天數_nud.Value - 休假天數_nud.Value + 3 Then : Exit For : End If

  1824.                         Randomize() : hours = random4.Next(1, 100) : If hours < 休假比例_nud.Value + 設定4 Then

  1825.                             If 清單2_dgv.Rows(i).Cells(21).Value = "" Then : AUTO時段1() : 清單2_dgv.Rows(i).Cells(21).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  1826.                             If 清單2_dgv.Rows(i).Cells(22).Value = "" Then : AUTO時段2() : 清單2_dgv.Rows(i).Cells(22).Value = AUTO時 : AUTO舊2 = AUTO時 : End If : 計數 += 1

  1827.                         End If

  1828.                         If 計數 > 可沖天數_nud.Value - 休假天數_nud.Value + 3 Then : Exit For : End If

  1829.                         Randomize() : hours = random5.Next(1, 100) : If hours < 休假比例_nud.Value + 設定4 Then

  1830.                             If 清單2_dgv.Rows(i).Cells(23).Value = "" Then : AUTO時段1() : 清單2_dgv.Rows(i).Cells(23).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  1831.                             If 清單2_dgv.Rows(i).Cells(24).Value = "" Then : AUTO時段2() : 清單2_dgv.Rows(i).Cells(24).Value = AUTO時 : AUTO舊2 = AUTO時 : End If : 計數 += 1

  1832.                         End If

  1833.                         If 計數 > 可沖天數_nud.Value - 休假天數_nud.Value + 3 Then : Exit For : End If

  1834.                         Randomize() : hours = random6.Next(1, 100) : If hours < 休假比例_nud.Value + 設定4 Then

  1835.                             If 清單2_dgv.Rows(i).Cells(25).Value = "" Then : AUTO時段1() : 清單2_dgv.Rows(i).Cells(25).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  1836.                             If 清單2_dgv.Rows(i).Cells(26).Value = "" Then : AUTO時段2() : 清單2_dgv.Rows(i).Cells(26).Value = AUTO時 : AUTO舊2 = AUTO時 : End If : 計數 += 1

  1837.                         End If

  1838.                         If 計數 > 可沖天數_nud.Value - 休假天數_nud.Value + 3 Then : Exit For : End If

  1839.                         Randomize() : hours = random7.Next(1, 100) : If hours < 休假比例_nud.Value - 48 Then

  1840.                             If 清單2_dgv.Rows(i).Cells(27).Value = "" Then : AUTO時段1() : 清單2_dgv.Rows(i).Cells(27).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  1841.                             If 清單2_dgv.Rows(i).Cells(28).Value = "" Then : AUTO時段2() : 清單2_dgv.Rows(i).Cells(28).Value = AUTO時 : AUTO舊2 = AUTO時 : End If : 計數 += 1

  1842.                         End If

  1843.                         If 計數 > 可沖天數_nud.Value - 休假天數_nud.Value + 3 Then : Exit For : End If

  1844.                     ElseIf 休假比例_nud.Value >= 80 And 休假比例_nud.Value < 100 Then

  1845.                         Dim 計數 As Integer

  1846.                         Randomize() : hours = random1.Next(1, 100) : If hours < 休假比例_nud.Value + 設定5 Then

  1847.                             If 清單2_dgv.Rows(i).Cells(15).Value = "" Then : AUTO時段1() : 清單2_dgv.Rows(i).Cells(15).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  1848.                             If 清單2_dgv.Rows(i).Cells(16).Value = "" Then : AUTO時段2() : 清單2_dgv.Rows(i).Cells(16).Value = AUTO時 : AUTO舊2 = AUTO時 : End If : 計數 += 1

  1849.                         End If : If 計數 > 可沖天數_nud.Value - 休假天數_nud.Value + 1 Then : Exit For : End If

  1850.                         Randomize() : hours = random2.Next(1, 100) : If hours < 休假比例_nud.Value + 設定5 Then

  1851.                             If 清單2_dgv.Rows(i).Cells(17).Value = "" Then : AUTO時段1() : 清單2_dgv.Rows(i).Cells(17).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  1852.                             If 清單2_dgv.Rows(i).Cells(18).Value = "" Then : AUTO時段2() : 清單2_dgv.Rows(i).Cells(18).Value = AUTO時 : AUTO舊2 = AUTO時 : End If : 計數 += 1

  1853.                         End If : If 計數 > 可沖天數_nud.Value - 休假天數_nud.Value + 1 Then : Exit For : End If

  1854.                         Randomize() : hours = random3.Next(1, 100) : If hours < 休假比例_nud.Value + 設定5 Then

  1855.                             If 清單2_dgv.Rows(i).Cells(19).Value = "" Then : AUTO時段1() : 清單2_dgv.Rows(i).Cells(19).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  1856.                             If 清單2_dgv.Rows(i).Cells(20).Value = "" Then : AUTO時段2() : 清單2_dgv.Rows(i).Cells(20).Value = AUTO時 : AUTO舊2 = AUTO時 : End If : 計數 += 1

  1857.                         End If : If 計數 > 可沖天數_nud.Value - 休假天數_nud.Value + 1 Then : Exit For : End If

  1858.                         Randomize() : hours = random4.Next(1, 100) : If hours < 休假比例_nud.Value + 設定5 Then

  1859.                             If 清單2_dgv.Rows(i).Cells(21).Value = "" Then : AUTO時段1() : 清單2_dgv.Rows(i).Cells(21).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  1860.                             If 清單2_dgv.Rows(i).Cells(22).Value = "" Then : AUTO時段2() : 清單2_dgv.Rows(i).Cells(22).Value = AUTO時 : AUTO舊2 = AUTO時 : End If : 計數 += 1

  1861.                         End If : If 計數 > 可沖天數_nud.Value - 休假天數_nud.Value + 1 Then : Exit For : End If

  1862.                         Randomize() : hours = random5.Next(1, 100) : If hours < 休假比例_nud.Value + 設定5 Then

  1863.                             If 清單2_dgv.Rows(i).Cells(23).Value = "" Then : AUTO時段1() : 清單2_dgv.Rows(i).Cells(23).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  1864.                             If 清單2_dgv.Rows(i).Cells(24).Value = "" Then : AUTO時段2() : 清單2_dgv.Rows(i).Cells(24).Value = AUTO時 : AUTO舊2 = AUTO時 : End If : 計數 += 1

  1865.                         End If : If 計數 > 可沖天數_nud.Value - 休假天數_nud.Value + 1 Then : Exit For : End If

  1866.                         Randomize() : hours = random6.Next(1, 100) : If hours < 休假比例_nud.Value + 設定5 Then

  1867.                             If 清單2_dgv.Rows(i).Cells(25).Value = "" Then : AUTO時段1() : 清單2_dgv.Rows(i).Cells(25).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  1868.                             If 清單2_dgv.Rows(i).Cells(26).Value = "" Then : AUTO時段2() : 清單2_dgv.Rows(i).Cells(26).Value = AUTO時 : AUTO舊2 = AUTO時 : End If : 計數 += 1

  1869.                         End If : If 計數 > 可沖天數_nud.Value - 休假天數_nud.Value + 1 Then : Exit For : End If

  1870.                         Randomize() : hours = random7.Next(1, 100) : If hours < 休假比例_nud.Value - 30 Then

  1871.                             If 清單2_dgv.Rows(i).Cells(27).Value = "" Then : AUTO時段1() : 清單2_dgv.Rows(i).Cells(27).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  1872.                             If 清單2_dgv.Rows(i).Cells(28).Value = "" Then : AUTO時段2() : 清單2_dgv.Rows(i).Cells(28).Value = AUTO時 : AUTO舊2 = AUTO時 : End If : 計數 += 1

  1873.                         End If : If 計數 > 可沖天數_nud.Value - 休假天數_nud.Value + 1 Then : Exit For : End If

  1874.                     ElseIf 休假比例_nud.Value = 100 Then

  1875.                         If 清單2_dgv.Rows(i).Cells(15).Value = "" Then : AUTO時段1() : 清單2_dgv.Rows(i).Cells(15).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  1876.                         If 清單2_dgv.Rows(i).Cells(16).Value = "" Then : AUTO時段2() : 清單2_dgv.Rows(i).Cells(16).Value = AUTO時 : AUTO舊2 = AUTO時 : End If

  1877.                         If 清單2_dgv.Rows(i).Cells(17).Value = "" Then : AUTO時段1() : 清單2_dgv.Rows(i).Cells(17).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  1878.                         If 清單2_dgv.Rows(i).Cells(18).Value = "" Then : AUTO時段2() : 清單2_dgv.Rows(i).Cells(18).Value = AUTO時 : AUTO舊2 = AUTO時 : End If

  1879.                         If 清單2_dgv.Rows(i).Cells(19).Value = "" Then : AUTO時段1() : 清單2_dgv.Rows(i).Cells(19).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  1880.                         If 清單2_dgv.Rows(i).Cells(20).Value = "" Then : AUTO時段2() : 清單2_dgv.Rows(i).Cells(20).Value = AUTO時 : AUTO舊2 = AUTO時 : End If

  1881.                         If 清單2_dgv.Rows(i).Cells(21).Value = "" Then : AUTO時段1() : 清單2_dgv.Rows(i).Cells(21).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  1882.                         If 清單2_dgv.Rows(i).Cells(22).Value = "" Then : AUTO時段2() : 清單2_dgv.Rows(i).Cells(22).Value = AUTO時 : AUTO舊2 = AUTO時 : End If

  1883.                         If 清單2_dgv.Rows(i).Cells(23).Value = "" Then : AUTO時段1() : 清單2_dgv.Rows(i).Cells(23).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  1884.                         If 清單2_dgv.Rows(i).Cells(24).Value = "" Then : AUTO時段2() : 清單2_dgv.Rows(i).Cells(24).Value = AUTO時 : AUTO舊2 = AUTO時 : End If

  1885.                         If 清單2_dgv.Rows(i).Cells(25).Value = "" Then : AUTO時段1() : 清單2_dgv.Rows(i).Cells(25).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  1886.                         If 清單2_dgv.Rows(i).Cells(26).Value = "" Then : AUTO時段2() : 清單2_dgv.Rows(i).Cells(26).Value = AUTO時 : AUTO舊2 = AUTO時 : End If

  1887.                         If 清單2_dgv.Rows(i).Cells(27).Value = "" Then : AUTO時段1() : 清單2_dgv.Rows(i).Cells(27).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  1888.                         If 清單2_dgv.Rows(i).Cells(28).Value = "" Then : AUTO時段2() : 清單2_dgv.Rows(i).Cells(28).Value = AUTO時 : AUTO舊2 = AUTO時 : End If

  1889.                     End If

  1890.                 Next : AUTO第2周()

  1891.                 '---------------第3周--------------------------------------------------------------------------------------------------------------------------------------------------------------

  1892.                 For i As Integer = 0 To 清單3_dgv.Rows.Count - 1

  1893.                     If 休假比例_nud.Value > 0 And 休假比例_nud.Value < 20 Then

  1894.                         Dim 計數 As Integer

  1895.                         Randomize() : hours = random1.Next(1, 100) : If hours < 休假比例_nud.Value + 設定1 Then

  1896.                             If 清單3_dgv.Rows(i).Cells(15).Value = "" Then : AUTO時段1() : 清單3_dgv.Rows(i).Cells(15).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  1897.                             If 清單3_dgv.Rows(i).Cells(16).Value = "" Then : AUTO時段2() : 清單3_dgv.Rows(i).Cells(16).Value = AUTO時 : AUTO舊2 = AUTO時 : End If : 計數 += 1

  1898.                         End If

  1899.                         If 計數 > 可沖天數_nud.Value - 休假天數_nud.Value + 10 Then : Exit For : End If

  1900.                         Randomize() : hours = random2.Next(1, 100) : If hours < 休假比例_nud.Value + 設定1 Then

  1901.                             If 清單3_dgv.Rows(i).Cells(17).Value = "" Then : AUTO時段1() : 清單3_dgv.Rows(i).Cells(17).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  1902.                             If 清單3_dgv.Rows(i).Cells(18).Value = "" Then : AUTO時段2() : 清單3_dgv.Rows(i).Cells(18).Value = AUTO時 : AUTO舊2 = AUTO時 : End If : 計數 += 1

  1903.                         End If

  1904.                         If 計數 > 可沖天數_nud.Value - 休假天數_nud.Value + 10 Then : Exit For : End If

  1905.                         Randomize() : hours = random3.Next(1, 100) : If hours < 休假比例_nud.Value + 設定1 Then

  1906.                             If 清單3_dgv.Rows(i).Cells(19).Value = "" Then : AUTO時段1() : 清單3_dgv.Rows(i).Cells(19).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  1907.                             If 清單3_dgv.Rows(i).Cells(20).Value = "" Then : AUTO時段2() : 清單3_dgv.Rows(i).Cells(20).Value = AUTO時 : AUTO舊2 = AUTO時 : End If : 計數 += 1

  1908.                         End If

  1909.                         If 計數 > 可沖天數_nud.Value - 休假天數_nud.Value + 10 Then : Exit For : End If

  1910.                         Randomize() : hours = random4.Next(1, 100) : If hours < 休假比例_nud.Value + 設定1 Then

  1911.                             If 清單3_dgv.Rows(i).Cells(21).Value = "" Then : AUTO時段1() : 清單3_dgv.Rows(i).Cells(21).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  1912.                             If 清單3_dgv.Rows(i).Cells(22).Value = "" Then : AUTO時段2() : 清單3_dgv.Rows(i).Cells(22).Value = AUTO時 : AUTO舊2 = AUTO時 : End If : 計數 += 1

  1913.                         End If

  1914.                         If 計數 > 可沖天數_nud.Value - 休假天數_nud.Value + 10 Then : Exit For : End If

  1915.                         Randomize() : hours = random5.Next(1, 100) : If hours < 休假比例_nud.Value + 設定1 Then

  1916.                             If 清單3_dgv.Rows(i).Cells(23).Value = "" Then : AUTO時段1() : 清單3_dgv.Rows(i).Cells(23).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  1917.                             If 清單3_dgv.Rows(i).Cells(24).Value = "" Then : AUTO時段2() : 清單3_dgv.Rows(i).Cells(24).Value = AUTO時 : AUTO舊2 = AUTO時 : End If : 計數 += 1

  1918.                         End If

  1919.                         If 計數 > 可沖天數_nud.Value - 休假天數_nud.Value + 10 Then : Exit For : End If

  1920.                         Randomize() : hours = random6.Next(1, 100) : If hours < 休假比例_nud.Value + 設定1 Then

  1921.                             If 清單3_dgv.Rows(i).Cells(25).Value = "" Then : AUTO時段1() : 清單3_dgv.Rows(i).Cells(25).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  1922.                             If 清單3_dgv.Rows(i).Cells(26).Value = "" Then : AUTO時段2() : 清單3_dgv.Rows(i).Cells(26).Value = AUTO時 : AUTO舊2 = AUTO時 : End If : 計數 += 1

  1923.                         End If

  1924.                         If 計數 > 可沖天數_nud.Value - 休假天數_nud.Value + 10 Then : Exit For : End If

  1925.                     ElseIf 休假比例_nud.Value >= 20 And 休假比例_nud.Value < 40 Then

  1926.                         Dim 計數 As Integer

  1927.                         Randomize() : hours = random1.Next(1, 100) : If hours < 休假比例_nud.Value + 設定2 Then

  1928.                             If 清單3_dgv.Rows(i).Cells(15).Value = "" Then : AUTO時段1() : 清單3_dgv.Rows(i).Cells(15).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  1929.                             If 清單3_dgv.Rows(i).Cells(16).Value = "" Then : AUTO時段2() : 清單3_dgv.Rows(i).Cells(16).Value = AUTO時 : AUTO舊2 = AUTO時 : End If : 計數 += 1

  1930.                         End If

  1931.                         If 計數 > 可沖天數_nud.Value - 休假天數_nud.Value + 7 Then : Exit For : End If

  1932.                         Randomize() : hours = random2.Next(1, 100) : If hours < 休假比例_nud.Value + 設定2 Then

  1933.                             If 清單3_dgv.Rows(i).Cells(17).Value = "" Then : AUTO時段1() : 清單3_dgv.Rows(i).Cells(17).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  1934.                             If 清單3_dgv.Rows(i).Cells(18).Value = "" Then : AUTO時段2() : 清單3_dgv.Rows(i).Cells(18).Value = AUTO時 : AUTO舊2 = AUTO時 : End If : 計數 += 1

  1935.                         End If

  1936.                         If 計數 > 可沖天數_nud.Value - 休假天數_nud.Value + 7 Then : Exit For : End If

  1937.                         Randomize() : hours = random3.Next(1, 100) : If hours < 休假比例_nud.Value + 設定2 Then

  1938.                             If 清單3_dgv.Rows(i).Cells(19).Value = "" Then : AUTO時段1() : 清單3_dgv.Rows(i).Cells(19).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  1939.                             If 清單3_dgv.Rows(i).Cells(20).Value = "" Then : AUTO時段2() : 清單3_dgv.Rows(i).Cells(20).Value = AUTO時 : AUTO舊2 = AUTO時 : End If : 計數 += 1

  1940.                         End If

  1941.                         If 計數 > 可沖天數_nud.Value - 休假天數_nud.Value + 7 Then : Exit For : End If

  1942.                         Randomize() : hours = random4.Next(1, 100) : If hours < 休假比例_nud.Value + 設定2 Then

  1943.                             If 清單3_dgv.Rows(i).Cells(21).Value = "" Then : AUTO時段1() : 清單3_dgv.Rows(i).Cells(21).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  1944.                             If 清單3_dgv.Rows(i).Cells(22).Value = "" Then : AUTO時段2() : 清單3_dgv.Rows(i).Cells(22).Value = AUTO時 : AUTO舊2 = AUTO時 : End If : 計數 += 1

  1945.                         End If

  1946.                         If 計數 > 可沖天數_nud.Value - 休假天數_nud.Value + 7 Then : Exit For : End If

  1947.                         Randomize() : hours = random5.Next(1, 100) : If hours < 休假比例_nud.Value + 設定2 Then

  1948.                             If 清單3_dgv.Rows(i).Cells(23).Value = "" Then : AUTO時段1() : 清單3_dgv.Rows(i).Cells(23).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  1949.                             If 清單3_dgv.Rows(i).Cells(24).Value = "" Then : AUTO時段2() : 清單3_dgv.Rows(i).Cells(24).Value = AUTO時 : AUTO舊2 = AUTO時 : End If : 計數 += 1

  1950.                         End If

  1951.                         If 計數 > 可沖天數_nud.Value - 休假天數_nud.Value + 7 Then : Exit For : End If

  1952.                         Randomize() : hours = random6.Next(1, 100) : If hours < 休假比例_nud.Value + 設定2 Then

  1953.                             If 清單3_dgv.Rows(i).Cells(25).Value = "" Then : AUTO時段1() : 清單3_dgv.Rows(i).Cells(25).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  1954.                             If 清單3_dgv.Rows(i).Cells(26).Value = "" Then : AUTO時段2() : 清單3_dgv.Rows(i).Cells(26).Value = AUTO時 : AUTO舊2 = AUTO時 : End If : 計數 += 1

  1955.                         End If

  1956.                         If 計數 > 可沖天數_nud.Value - 休假天數_nud.Value + 7 Then : Exit For : End If

  1957.                     ElseIf 休假比例_nud.Value >= 40 And 休假比例_nud.Value < 60 Then

  1958.                         Dim 計數 As Integer

  1959.                         Randomize() : hours = random1.Next(1, 100) : If hours < 休假比例_nud.Value + 設定3 Then

  1960.                             If 清單3_dgv.Rows(i).Cells(15).Value = "" Then : AUTO時段1() : 清單3_dgv.Rows(i).Cells(15).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  1961.                             If 清單3_dgv.Rows(i).Cells(16).Value = "" Then : AUTO時段2() : 清單3_dgv.Rows(i).Cells(16).Value = AUTO時 : AUTO舊2 = AUTO時 : End If : 計數 += 1

  1962.                         End If

  1963.                         If 計數 > 可沖天數_nud.Value - 休假天數_nud.Value + 5 Then : Exit For : End If

  1964.                         Randomize() : hours = random2.Next(1, 100) : If hours < 休假比例_nud.Value + 設定3 Then

  1965.                             If 清單3_dgv.Rows(i).Cells(17).Value = "" Then : AUTO時段1() : 清單3_dgv.Rows(i).Cells(17).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  1966.                             If 清單3_dgv.Rows(i).Cells(18).Value = "" Then : AUTO時段2() : 清單3_dgv.Rows(i).Cells(18).Value = AUTO時 : AUTO舊2 = AUTO時 : End If : 計數 += 1

  1967.                         End If

  1968.                         If 計數 > 可沖天數_nud.Value - 休假天數_nud.Value + 5 Then : Exit For : End If

  1969.                         Randomize() : hours = random3.Next(1, 100) : If hours < 休假比例_nud.Value + 設定3 Then

  1970.                             If 清單3_dgv.Rows(i).Cells(19).Value = "" Then : AUTO時段1() : 清單3_dgv.Rows(i).Cells(19).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  1971.                             If 清單3_dgv.Rows(i).Cells(20).Value = "" Then : AUTO時段2() : 清單3_dgv.Rows(i).Cells(20).Value = AUTO時 : AUTO舊2 = AUTO時 : End If : 計數 += 1

  1972.                         End If

  1973.                         If 計數 > 可沖天數_nud.Value - 休假天數_nud.Value + 5 Then : Exit For : End If

  1974.                         Randomize() : hours = random4.Next(1, 100) : If hours < 休假比例_nud.Value + 設定3 Then

  1975.                             If 清單3_dgv.Rows(i).Cells(21).Value = "" Then : AUTO時段1() : 清單3_dgv.Rows(i).Cells(21).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  1976.                             If 清單3_dgv.Rows(i).Cells(22).Value = "" Then : AUTO時段2() : 清單3_dgv.Rows(i).Cells(22).Value = AUTO時 : AUTO舊2 = AUTO時 : End If : 計數 += 1

  1977.                         End If

  1978.                         If 計數 > 可沖天數_nud.Value - 休假天數_nud.Value + 5 Then : Exit For : End If

  1979.                         Randomize() : hours = random5.Next(1, 100) : If hours < 休假比例_nud.Value + 設定3 Then

  1980.                             If 清單3_dgv.Rows(i).Cells(23).Value = "" Then : AUTO時段1() : 清單3_dgv.Rows(i).Cells(23).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  1981.                             If 清單3_dgv.Rows(i).Cells(24).Value = "" Then : AUTO時段2() : 清單3_dgv.Rows(i).Cells(24).Value = AUTO時 : AUTO舊2 = AUTO時 : End If : 計數 += 1

  1982.                         End If

  1983.                         If 計數 > 可沖天數_nud.Value - 休假天數_nud.Value + 5 Then : Exit For : End If

  1984.                         Randomize() : hours = random6.Next(1, 100) : If hours < 休假比例_nud.Value + 設定3 Then

  1985.                             If 清單3_dgv.Rows(i).Cells(25).Value = "" Then : AUTO時段1() : 清單3_dgv.Rows(i).Cells(25).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  1986.                             If 清單3_dgv.Rows(i).Cells(26).Value = "" Then : AUTO時段2() : 清單3_dgv.Rows(i).Cells(26).Value = AUTO時 : AUTO舊2 = AUTO時 : End If : 計數 += 1

  1987.                         End If

  1988.                         If 計數 > 可沖天數_nud.Value - 休假天數_nud.Value + 5 Then : Exit For : End If

  1989.                     ElseIf 休假比例_nud.Value >= 60 And 休假比例_nud.Value < 80 Then

  1990.                         Dim 計數 As Integer

  1991.                         Randomize() : hours = random1.Next(1, 100) : If hours < 休假比例_nud.Value + 設定4 Then

  1992.                             If 清單3_dgv.Rows(i).Cells(15).Value = "" Then : AUTO時段1() : 清單3_dgv.Rows(i).Cells(15).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  1993.                             If 清單3_dgv.Rows(i).Cells(16).Value = "" Then : AUTO時段2() : 清單3_dgv.Rows(i).Cells(16).Value = AUTO時 : AUTO舊2 = AUTO時 : End If : 計數 += 1

  1994.                         End If

  1995.                         If 計數 > 可沖天數_nud.Value - 休假天數_nud.Value + 3 Then : Exit For : End If

  1996.                         Randomize() : hours = random2.Next(1, 100) : If hours < 休假比例_nud.Value + 設定4 Then

  1997.                             If 清單3_dgv.Rows(i).Cells(17).Value = "" Then : AUTO時段1() : 清單3_dgv.Rows(i).Cells(17).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  1998.                             If 清單3_dgv.Rows(i).Cells(18).Value = "" Then : AUTO時段2() : 清單3_dgv.Rows(i).Cells(18).Value = AUTO時 : AUTO舊2 = AUTO時 : End If : 計數 += 1

  1999.                         End If

  2000.                         If 計數 > 可沖天數_nud.Value - 休假天數_nud.Value + 3 Then : Exit For : End If

  2001.                         Randomize() : hours = random3.Next(1, 100) : If hours < 休假比例_nud.Value + 設定4 Then

  2002.                             If 清單3_dgv.Rows(i).Cells(19).Value = "" Then : AUTO時段1() : 清單3_dgv.Rows(i).Cells(19).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  2003.                             If 清單3_dgv.Rows(i).Cells(20).Value = "" Then : AUTO時段2() : 清單3_dgv.Rows(i).Cells(20).Value = AUTO時 : AUTO舊2 = AUTO時 : End If : 計數 += 1

  2004.                         End If

  2005.                         If 計數 > 可沖天數_nud.Value - 休假天數_nud.Value + 3 Then : Exit For : End If

  2006.                         Randomize() : hours = random4.Next(1, 100) : If hours < 休假比例_nud.Value + 設定4 Then

  2007.                             If 清單3_dgv.Rows(i).Cells(21).Value = "" Then : AUTO時段1() : 清單3_dgv.Rows(i).Cells(21).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  2008.                             If 清單3_dgv.Rows(i).Cells(22).Value = "" Then : AUTO時段2() : 清單3_dgv.Rows(i).Cells(22).Value = AUTO時 : AUTO舊2 = AUTO時 : End If : 計數 += 1

  2009.                         End If

  2010.                         If 計數 > 可沖天數_nud.Value - 休假天數_nud.Value + 3 Then : Exit For : End If

  2011.                         Randomize() : hours = random5.Next(1, 100) : If hours < 休假比例_nud.Value + 設定4 Then

  2012.                             If 清單3_dgv.Rows(i).Cells(23).Value = "" Then : AUTO時段1() : 清單3_dgv.Rows(i).Cells(23).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  2013.                             If 清單3_dgv.Rows(i).Cells(24).Value = "" Then : AUTO時段2() : 清單3_dgv.Rows(i).Cells(24).Value = AUTO時 : AUTO舊2 = AUTO時 : End If : 計數 += 1

  2014.                         End If

  2015.                         If 計數 > 可沖天數_nud.Value - 休假天數_nud.Value + 3 Then : Exit For : End If

  2016.                         Randomize() : hours = random6.Next(1, 100) : If hours < 休假比例_nud.Value + 設定4 Then

  2017.                             If 清單3_dgv.Rows(i).Cells(25).Value = "" Then : AUTO時段1() : 清單3_dgv.Rows(i).Cells(25).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  2018.                             If 清單3_dgv.Rows(i).Cells(26).Value = "" Then : AUTO時段2() : 清單3_dgv.Rows(i).Cells(26).Value = AUTO時 : AUTO舊2 = AUTO時 : End If : 計數 += 1

  2019.                         End If

  2020.                         If 計數 > 可沖天數_nud.Value - 休假天數_nud.Value + 3 Then : Exit For : End If

  2021.                         Randomize() : hours = random7.Next(1, 100) : If hours < 休假比例_nud.Value - 48 Then

  2022.                             If 清單3_dgv.Rows(i).Cells(27).Value = "" Then : AUTO時段1() : 清單3_dgv.Rows(i).Cells(27).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  2023.                             If 清單3_dgv.Rows(i).Cells(28).Value = "" Then : AUTO時段2() : 清單3_dgv.Rows(i).Cells(28).Value = AUTO時 : AUTO舊2 = AUTO時 : End If : 計數 += 1

  2024.                         End If

  2025.                         If 計數 > 可沖天數_nud.Value - 休假天數_nud.Value + 3 Then : Exit For : End If

  2026.                     ElseIf 休假比例_nud.Value >= 80 And 休假比例_nud.Value < 100 Then

  2027.                         Dim 計數 As Integer

  2028.                         Randomize() : hours = random1.Next(1, 100) : If hours < 休假比例_nud.Value + 設定5 Then

  2029.                             If 清單3_dgv.Rows(i).Cells(15).Value = "" Then : AUTO時段1() : 清單3_dgv.Rows(i).Cells(15).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  2030.                             If 清單3_dgv.Rows(i).Cells(16).Value = "" Then : AUTO時段2() : 清單3_dgv.Rows(i).Cells(16).Value = AUTO時 : AUTO舊2 = AUTO時 : End If : 計數 += 1

  2031.                         End If : If 計數 > 可沖天數_nud.Value - 休假天數_nud.Value + 1 Then : Exit For : End If

  2032.                         Randomize() : hours = random2.Next(1, 100) : If hours < 休假比例_nud.Value + 設定5 Then

  2033.                             If 清單3_dgv.Rows(i).Cells(17).Value = "" Then : AUTO時段1() : 清單3_dgv.Rows(i).Cells(17).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  2034.                             If 清單3_dgv.Rows(i).Cells(18).Value = "" Then : AUTO時段2() : 清單3_dgv.Rows(i).Cells(18).Value = AUTO時 : AUTO舊2 = AUTO時 : End If : 計數 += 1

  2035.                         End If : If 計數 > 可沖天數_nud.Value - 休假天數_nud.Value + 1 Then : Exit For : End If

  2036.                         Randomize() : hours = random3.Next(1, 100) : If hours < 休假比例_nud.Value + 設定5 Then

  2037.                             If 清單3_dgv.Rows(i).Cells(19).Value = "" Then : AUTO時段1() : 清單3_dgv.Rows(i).Cells(19).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  2038.                             If 清單3_dgv.Rows(i).Cells(20).Value = "" Then : AUTO時段2() : 清單3_dgv.Rows(i).Cells(20).Value = AUTO時 : AUTO舊2 = AUTO時 : End If : 計數 += 1

  2039.                         End If : If 計數 > 可沖天數_nud.Value - 休假天數_nud.Value + 1 Then : Exit For : End If

  2040.                         Randomize() : hours = random4.Next(1, 100) : If hours < 休假比例_nud.Value + 設定5 Then

  2041.                             If 清單3_dgv.Rows(i).Cells(21).Value = "" Then : AUTO時段1() : 清單3_dgv.Rows(i).Cells(21).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  2042.                             If 清單3_dgv.Rows(i).Cells(22).Value = "" Then : AUTO時段2() : 清單3_dgv.Rows(i).Cells(22).Value = AUTO時 : AUTO舊2 = AUTO時 : End If : 計數 += 1

  2043.                         End If : If 計數 > 可沖天數_nud.Value - 休假天數_nud.Value + 1 Then : Exit For : End If

  2044.                         Randomize() : hours = random5.Next(1, 100) : If hours < 休假比例_nud.Value + 設定5 Then

  2045.                             If 清單3_dgv.Rows(i).Cells(23).Value = "" Then : AUTO時段1() : 清單3_dgv.Rows(i).Cells(23).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  2046.                             If 清單3_dgv.Rows(i).Cells(24).Value = "" Then : AUTO時段2() : 清單3_dgv.Rows(i).Cells(24).Value = AUTO時 : AUTO舊2 = AUTO時 : End If : 計數 += 1

  2047.                         End If : If 計數 > 可沖天數_nud.Value - 休假天數_nud.Value + 1 Then : Exit For : End If

  2048.                         Randomize() : hours = random6.Next(1, 100) : If hours < 休假比例_nud.Value + 設定5 Then

  2049.                             If 清單3_dgv.Rows(i).Cells(25).Value = "" Then : AUTO時段1() : 清單3_dgv.Rows(i).Cells(25).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  2050.                             If 清單3_dgv.Rows(i).Cells(26).Value = "" Then : AUTO時段2() : 清單3_dgv.Rows(i).Cells(26).Value = AUTO時 : AUTO舊2 = AUTO時 : End If : 計數 += 1

  2051.                         End If : If 計數 > 可沖天數_nud.Value - 休假天數_nud.Value + 1 Then : Exit For : End If

  2052.                         Randomize() : hours = random7.Next(1, 100) : If hours < 休假比例_nud.Value - 30 Then

  2053.                             If 清單3_dgv.Rows(i).Cells(27).Value = "" Then : AUTO時段1() : 清單3_dgv.Rows(i).Cells(27).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  2054.                             If 清單3_dgv.Rows(i).Cells(28).Value = "" Then : AUTO時段2() : 清單3_dgv.Rows(i).Cells(28).Value = AUTO時 : AUTO舊2 = AUTO時 : End If : 計數 += 1

  2055.                         End If : If 計數 > 可沖天數_nud.Value - 休假天數_nud.Value + 1 Then : Exit For : End If

  2056.                     ElseIf 休假比例_nud.Value = 100 Then

  2057.                         If 清單3_dgv.Rows(i).Cells(15).Value = "" Then : AUTO時段1() : 清單3_dgv.Rows(i).Cells(15).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  2058.                         If 清單3_dgv.Rows(i).Cells(16).Value = "" Then : AUTO時段2() : 清單3_dgv.Rows(i).Cells(16).Value = AUTO時 : AUTO舊2 = AUTO時 : End If

  2059.                         If 清單3_dgv.Rows(i).Cells(17).Value = "" Then : AUTO時段1() : 清單3_dgv.Rows(i).Cells(17).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  2060.                         If 清單3_dgv.Rows(i).Cells(18).Value = "" Then : AUTO時段2() : 清單3_dgv.Rows(i).Cells(18).Value = AUTO時 : AUTO舊2 = AUTO時 : End If

  2061.                         If 清單3_dgv.Rows(i).Cells(19).Value = "" Then : AUTO時段1() : 清單3_dgv.Rows(i).Cells(19).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  2062.                         If 清單3_dgv.Rows(i).Cells(20).Value = "" Then : AUTO時段2() : 清單3_dgv.Rows(i).Cells(20).Value = AUTO時 : AUTO舊2 = AUTO時 : End If

  2063.                         If 清單3_dgv.Rows(i).Cells(21).Value = "" Then : AUTO時段1() : 清單3_dgv.Rows(i).Cells(21).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  2064.                         If 清單3_dgv.Rows(i).Cells(22).Value = "" Then : AUTO時段2() : 清單3_dgv.Rows(i).Cells(22).Value = AUTO時 : AUTO舊2 = AUTO時 : End If

  2065.                         If 清單3_dgv.Rows(i).Cells(23).Value = "" Then : AUTO時段1() : 清單3_dgv.Rows(i).Cells(23).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  2066.                         If 清單3_dgv.Rows(i).Cells(24).Value = "" Then : AUTO時段2() : 清單3_dgv.Rows(i).Cells(24).Value = AUTO時 : AUTO舊2 = AUTO時 : End If

  2067.                         If 清單3_dgv.Rows(i).Cells(25).Value = "" Then : AUTO時段1() : 清單3_dgv.Rows(i).Cells(25).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  2068.                         If 清單3_dgv.Rows(i).Cells(26).Value = "" Then : AUTO時段2() : 清單3_dgv.Rows(i).Cells(26).Value = AUTO時 : AUTO舊2 = AUTO時 : End If

  2069.                         If 清單3_dgv.Rows(i).Cells(27).Value = "" Then : AUTO時段1() : 清單3_dgv.Rows(i).Cells(27).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  2070.                         If 清單3_dgv.Rows(i).Cells(28).Value = "" Then : AUTO時段2() : 清單3_dgv.Rows(i).Cells(28).Value = AUTO時 : AUTO舊2 = AUTO時 : End If

  2071.                     End If

  2072.                 Next : AUTO第3周()

  2073.                 '---------------第4周--------------------------------------------------------------------------------------------------------------------------------------------------------------

  2074.                 For i As Integer = 0 To 清單4_dgv.Rows.Count - 1

  2075.                     If 休假比例_nud.Value > 0 And 休假比例_nud.Value < 20 Then

  2076.                         Dim 計數 As Integer

  2077.                         Randomize() : hours = random1.Next(1, 100) : If hours < 休假比例_nud.Value + 設定1 Then

  2078.                             If 清單4_dgv.Rows(i).Cells(15).Value = "" Then : AUTO時段1() : 清單4_dgv.Rows(i).Cells(15).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  2079.                             If 清單4_dgv.Rows(i).Cells(16).Value = "" Then : AUTO時段2() : 清單4_dgv.Rows(i).Cells(16).Value = AUTO時 : AUTO舊2 = AUTO時 : End If : 計數 += 1

  2080.                         End If

  2081.                         If 計數 > 可沖天數_nud.Value - 休假天數_nud.Value + 10 Then : Exit For : End If

  2082.                         Randomize() : hours = random2.Next(1, 100) : If hours < 休假比例_nud.Value + 設定1 Then

  2083.                             If 清單4_dgv.Rows(i).Cells(17).Value = "" Then : AUTO時段1() : 清單4_dgv.Rows(i).Cells(17).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  2084.                             If 清單4_dgv.Rows(i).Cells(18).Value = "" Then : AUTO時段2() : 清單4_dgv.Rows(i).Cells(18).Value = AUTO時 : AUTO舊2 = AUTO時 : End If : 計數 += 1

  2085.                         End If

  2086.                         If 計數 > 可沖天數_nud.Value - 休假天數_nud.Value + 10 Then : Exit For : End If

  2087.                         Randomize() : hours = random3.Next(1, 100) : If hours < 休假比例_nud.Value + 設定1 Then

  2088.                             If 清單4_dgv.Rows(i).Cells(19).Value = "" Then : AUTO時段1() : 清單4_dgv.Rows(i).Cells(19).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  2089.                             If 清單4_dgv.Rows(i).Cells(20).Value = "" Then : AUTO時段2() : 清單4_dgv.Rows(i).Cells(20).Value = AUTO時 : AUTO舊2 = AUTO時 : End If : 計數 += 1

  2090.                         End If

  2091.                         If 計數 > 可沖天數_nud.Value - 休假天數_nud.Value + 10 Then : Exit For : End If

  2092.                         Randomize() : hours = random4.Next(1, 100) : If hours < 休假比例_nud.Value + 設定1 Then

  2093.                             If 清單4_dgv.Rows(i).Cells(21).Value = "" Then : AUTO時段1() : 清單4_dgv.Rows(i).Cells(21).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  2094.                             If 清單4_dgv.Rows(i).Cells(22).Value = "" Then : AUTO時段2() : 清單4_dgv.Rows(i).Cells(22).Value = AUTO時 : AUTO舊2 = AUTO時 : End If : 計數 += 1

  2095.                         End If

  2096.                         If 計數 > 可沖天數_nud.Value - 休假天數_nud.Value + 10 Then : Exit For : End If

  2097.                         Randomize() : hours = random5.Next(1, 100) : If hours < 休假比例_nud.Value + 設定1 Then

  2098.                             If 清單4_dgv.Rows(i).Cells(23).Value = "" Then : AUTO時段1() : 清單4_dgv.Rows(i).Cells(23).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  2099.                             If 清單4_dgv.Rows(i).Cells(24).Value = "" Then : AUTO時段2() : 清單4_dgv.Rows(i).Cells(24).Value = AUTO時 : AUTO舊2 = AUTO時 : End If : 計數 += 1

  2100.                         End If

  2101.                         If 計數 > 可沖天數_nud.Value - 休假天數_nud.Value + 10 Then : Exit For : End If

  2102.                         Randomize() : hours = random6.Next(1, 100) : If hours < 休假比例_nud.Value + 設定1 Then

  2103.                             If 清單4_dgv.Rows(i).Cells(25).Value = "" Then : AUTO時段1() : 清單4_dgv.Rows(i).Cells(25).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  2104.                             If 清單4_dgv.Rows(i).Cells(26).Value = "" Then : AUTO時段2() : 清單4_dgv.Rows(i).Cells(26).Value = AUTO時 : AUTO舊2 = AUTO時 : End If : 計數 += 1

  2105.                         End If

  2106.                         If 計數 > 可沖天數_nud.Value - 休假天數_nud.Value + 10 Then : Exit For : End If

  2107.                     ElseIf 休假比例_nud.Value >= 20 And 休假比例_nud.Value < 40 Then

  2108.                         Dim 計數 As Integer

  2109.                         Randomize() : hours = random1.Next(1, 100) : If hours < 休假比例_nud.Value + 設定2 Then

  2110.                             If 清單4_dgv.Rows(i).Cells(15).Value = "" Then : AUTO時段1() : 清單4_dgv.Rows(i).Cells(15).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  2111.                             If 清單4_dgv.Rows(i).Cells(16).Value = "" Then : AUTO時段2() : 清單4_dgv.Rows(i).Cells(16).Value = AUTO時 : AUTO舊2 = AUTO時 : End If : 計數 += 1

  2112.                         End If

  2113.                         If 計數 > 可沖天數_nud.Value - 休假天數_nud.Value + 7 Then : Exit For : End If

  2114.                         Randomize() : hours = random2.Next(1, 100) : If hours < 休假比例_nud.Value + 設定2 Then

  2115.                             If 清單4_dgv.Rows(i).Cells(17).Value = "" Then : AUTO時段1() : 清單4_dgv.Rows(i).Cells(17).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  2116.                             If 清單4_dgv.Rows(i).Cells(18).Value = "" Then : AUTO時段2() : 清單4_dgv.Rows(i).Cells(18).Value = AUTO時 : AUTO舊2 = AUTO時 : End If : 計數 += 1

  2117.                         End If

  2118.                         If 計數 > 可沖天數_nud.Value - 休假天數_nud.Value + 7 Then : Exit For : End If

  2119.                         Randomize() : hours = random3.Next(1, 100) : If hours < 休假比例_nud.Value + 設定2 Then

  2120.                             If 清單4_dgv.Rows(i).Cells(19).Value = "" Then : AUTO時段1() : 清單4_dgv.Rows(i).Cells(19).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  2121.                             If 清單4_dgv.Rows(i).Cells(20).Value = "" Then : AUTO時段2() : 清單4_dgv.Rows(i).Cells(20).Value = AUTO時 : AUTO舊2 = AUTO時 : End If : 計數 += 1

  2122.                         End If

  2123.                         If 計數 > 可沖天數_nud.Value - 休假天數_nud.Value + 7 Then : Exit For : End If

  2124.                         Randomize() : hours = random4.Next(1, 100) : If hours < 休假比例_nud.Value + 設定2 Then

  2125.                             If 清單4_dgv.Rows(i).Cells(21).Value = "" Then : AUTO時段1() : 清單4_dgv.Rows(i).Cells(21).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  2126.                             If 清單4_dgv.Rows(i).Cells(22).Value = "" Then : AUTO時段2() : 清單4_dgv.Rows(i).Cells(22).Value = AUTO時 : AUTO舊2 = AUTO時 : End If : 計數 += 1

  2127.                         End If

  2128.                         If 計數 > 可沖天數_nud.Value - 休假天數_nud.Value + 7 Then : Exit For : End If

  2129.                         Randomize() : hours = random5.Next(1, 100) : If hours < 休假比例_nud.Value + 設定2 Then

  2130.                             If 清單4_dgv.Rows(i).Cells(23).Value = "" Then : AUTO時段1() : 清單4_dgv.Rows(i).Cells(23).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  2131.                             If 清單4_dgv.Rows(i).Cells(24).Value = "" Then : AUTO時段2() : 清單4_dgv.Rows(i).Cells(24).Value = AUTO時 : AUTO舊2 = AUTO時 : End If : 計數 += 1

  2132.                         End If

  2133.                         If 計數 > 可沖天數_nud.Value - 休假天數_nud.Value + 7 Then : Exit For : End If

  2134.                         Randomize() : hours = random6.Next(1, 100) : If hours < 休假比例_nud.Value + 設定2 Then

  2135.                             If 清單4_dgv.Rows(i).Cells(25).Value = "" Then : AUTO時段1() : 清單4_dgv.Rows(i).Cells(25).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  2136.                             If 清單4_dgv.Rows(i).Cells(26).Value = "" Then : AUTO時段2() : 清單4_dgv.Rows(i).Cells(26).Value = AUTO時 : AUTO舊2 = AUTO時 : End If : 計數 += 1

  2137.                         End If

  2138.                         If 計數 > 可沖天數_nud.Value - 休假天數_nud.Value + 7 Then : Exit For : End If

  2139.                     ElseIf 休假比例_nud.Value >= 40 And 休假比例_nud.Value < 60 Then

  2140.                         Dim 計數 As Integer

  2141.                         Randomize() : hours = random1.Next(1, 100) : If hours < 休假比例_nud.Value + 設定3 Then

  2142.                             If 清單4_dgv.Rows(i).Cells(15).Value = "" Then : AUTO時段1() : 清單4_dgv.Rows(i).Cells(15).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  2143.                             If 清單4_dgv.Rows(i).Cells(16).Value = "" Then : AUTO時段2() : 清單4_dgv.Rows(i).Cells(16).Value = AUTO時 : AUTO舊2 = AUTO時 : End If : 計數 += 1

  2144.                         End If

  2145.                         If 計數 > 可沖天數_nud.Value - 休假天數_nud.Value + 5 Then : Exit For : End If

  2146.                         Randomize() : hours = random2.Next(1, 100) : If hours < 休假比例_nud.Value + 設定3 Then

  2147.                             If 清單4_dgv.Rows(i).Cells(17).Value = "" Then : AUTO時段1() : 清單4_dgv.Rows(i).Cells(17).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  2148.                             If 清單4_dgv.Rows(i).Cells(18).Value = "" Then : AUTO時段2() : 清單4_dgv.Rows(i).Cells(18).Value = AUTO時 : AUTO舊2 = AUTO時 : End If : 計數 += 1

  2149.                         End If

  2150.                         If 計數 > 可沖天數_nud.Value - 休假天數_nud.Value + 5 Then : Exit For : End If

  2151.                         Randomize() : hours = random3.Next(1, 100) : If hours < 休假比例_nud.Value + 設定3 Then

  2152.                             If 清單4_dgv.Rows(i).Cells(19).Value = "" Then : AUTO時段1() : 清單4_dgv.Rows(i).Cells(19).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  2153.                             If 清單4_dgv.Rows(i).Cells(20).Value = "" Then : AUTO時段2() : 清單4_dgv.Rows(i).Cells(20).Value = AUTO時 : AUTO舊2 = AUTO時 : End If : 計數 += 1

  2154.                         End If

  2155.                         If 計數 > 可沖天數_nud.Value - 休假天數_nud.Value + 5 Then : Exit For : End If

  2156.                         Randomize() : hours = random4.Next(1, 100) : If hours < 休假比例_nud.Value + 設定3 Then

  2157.                             If 清單4_dgv.Rows(i).Cells(21).Value = "" Then : AUTO時段1() : 清單4_dgv.Rows(i).Cells(21).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  2158.                             If 清單4_dgv.Rows(i).Cells(22).Value = "" Then : AUTO時段2() : 清單4_dgv.Rows(i).Cells(22).Value = AUTO時 : AUTO舊2 = AUTO時 : End If : 計數 += 1

  2159.                         End If

  2160.                         If 計數 > 可沖天數_nud.Value - 休假天數_nud.Value + 5 Then : Exit For : End If

  2161.                         Randomize() : hours = random5.Next(1, 100) : If hours < 休假比例_nud.Value + 設定3 Then

  2162.                             If 清單4_dgv.Rows(i).Cells(23).Value = "" Then : AUTO時段1() : 清單4_dgv.Rows(i).Cells(23).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  2163.                             If 清單4_dgv.Rows(i).Cells(24).Value = "" Then : AUTO時段2() : 清單4_dgv.Rows(i).Cells(24).Value = AUTO時 : AUTO舊2 = AUTO時 : End If : 計數 += 1

  2164.                         End If

  2165.                         If 計數 > 可沖天數_nud.Value - 休假天數_nud.Value + 5 Then : Exit For : End If

  2166.                         Randomize() : hours = random6.Next(1, 100) : If hours < 休假比例_nud.Value + 設定3 Then

  2167.                             If 清單4_dgv.Rows(i).Cells(25).Value = "" Then : AUTO時段1() : 清單4_dgv.Rows(i).Cells(25).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  2168.                             If 清單4_dgv.Rows(i).Cells(26).Value = "" Then : AUTO時段2() : 清單4_dgv.Rows(i).Cells(26).Value = AUTO時 : AUTO舊2 = AUTO時 : End If : 計數 += 1

  2169.                         End If

  2170.                         If 計數 > 可沖天數_nud.Value - 休假天數_nud.Value + 5 Then : Exit For : End If

  2171.                     ElseIf 休假比例_nud.Value >= 60 And 休假比例_nud.Value < 80 Then

  2172.                         Dim 計數 As Integer

  2173.                         Randomize() : hours = random1.Next(1, 100) : If hours < 休假比例_nud.Value + 設定4 Then

  2174.                             If 清單4_dgv.Rows(i).Cells(15).Value = "" Then : AUTO時段1() : 清單4_dgv.Rows(i).Cells(15).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  2175.                             If 清單4_dgv.Rows(i).Cells(16).Value = "" Then : AUTO時段2() : 清單4_dgv.Rows(i).Cells(16).Value = AUTO時 : AUTO舊2 = AUTO時 : End If : 計數 += 1

  2176.                         End If

  2177.                         If 計數 > 可沖天數_nud.Value - 休假天數_nud.Value + 3 Then : Exit For : End If

  2178.                         Randomize() : hours = random2.Next(1, 100) : If hours < 休假比例_nud.Value + 設定4 Then

  2179.                             If 清單4_dgv.Rows(i).Cells(17).Value = "" Then : AUTO時段1() : 清單4_dgv.Rows(i).Cells(17).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  2180.                             If 清單4_dgv.Rows(i).Cells(18).Value = "" Then : AUTO時段2() : 清單4_dgv.Rows(i).Cells(18).Value = AUTO時 : AUTO舊2 = AUTO時 : End If : 計數 += 1

  2181.                         End If

  2182.                         If 計數 > 可沖天數_nud.Value - 休假天數_nud.Value + 3 Then : Exit For : End If

  2183.                         Randomize() : hours = random3.Next(1, 100) : If hours < 休假比例_nud.Value + 設定4 Then

  2184.                             If 清單4_dgv.Rows(i).Cells(19).Value = "" Then : AUTO時段1() : 清單4_dgv.Rows(i).Cells(19).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  2185.                             If 清單4_dgv.Rows(i).Cells(20).Value = "" Then : AUTO時段2() : 清單4_dgv.Rows(i).Cells(20).Value = AUTO時 : AUTO舊2 = AUTO時 : End If : 計數 += 1

  2186.                         End If

  2187.                         If 計數 > 可沖天數_nud.Value - 休假天數_nud.Value + 3 Then : Exit For : End If

  2188.                         Randomize() : hours = random4.Next(1, 100) : If hours < 休假比例_nud.Value + 設定4 Then

  2189.                             If 清單4_dgv.Rows(i).Cells(21).Value = "" Then : AUTO時段1() : 清單4_dgv.Rows(i).Cells(21).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  2190.                             If 清單4_dgv.Rows(i).Cells(22).Value = "" Then : AUTO時段2() : 清單4_dgv.Rows(i).Cells(22).Value = AUTO時 : AUTO舊2 = AUTO時 : End If : 計數 += 1

  2191.                         End If

  2192.                         If 計數 > 可沖天數_nud.Value - 休假天數_nud.Value + 3 Then : Exit For : End If

  2193.                         Randomize() : hours = random5.Next(1, 100) : If hours < 休假比例_nud.Value + 設定4 Then

  2194.                             If 清單4_dgv.Rows(i).Cells(23).Value = "" Then : AUTO時段1() : 清單4_dgv.Rows(i).Cells(23).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  2195.                             If 清單4_dgv.Rows(i).Cells(24).Value = "" Then : AUTO時段2() : 清單4_dgv.Rows(i).Cells(24).Value = AUTO時 : AUTO舊2 = AUTO時 : End If : 計數 += 1

  2196.                         End If

  2197.                         If 計數 > 可沖天數_nud.Value - 休假天數_nud.Value + 3 Then : Exit For : End If

  2198.                         Randomize() : hours = random6.Next(1, 100) : If hours < 休假比例_nud.Value + 設定4 Then

  2199.                             If 清單4_dgv.Rows(i).Cells(25).Value = "" Then : AUTO時段1() : 清單4_dgv.Rows(i).Cells(25).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  2200.                             If 清單4_dgv.Rows(i).Cells(26).Value = "" Then : AUTO時段2() : 清單4_dgv.Rows(i).Cells(26).Value = AUTO時 : AUTO舊2 = AUTO時 : End If : 計數 += 1

  2201.                         End If

  2202.                         If 計數 > 可沖天數_nud.Value - 休假天數_nud.Value + 3 Then : Exit For : End If

  2203.                         Randomize() : hours = random7.Next(1, 100) : If hours < 休假比例_nud.Value - 48 Then

  2204.                             If 清單4_dgv.Rows(i).Cells(27).Value = "" Then : AUTO時段1() : 清單4_dgv.Rows(i).Cells(27).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  2205.                             If 清單4_dgv.Rows(i).Cells(28).Value = "" Then : AUTO時段2() : 清單4_dgv.Rows(i).Cells(28).Value = AUTO時 : AUTO舊2 = AUTO時 : End If : 計數 += 1

  2206.                         End If

  2207.                         If 計數 > 可沖天數_nud.Value - 休假天數_nud.Value + 3 Then : Exit For : End If

  2208.                     ElseIf 休假比例_nud.Value >= 80 And 休假比例_nud.Value < 100 Then

  2209.                         Dim 計數 As Integer

  2210.                         Randomize() : hours = random1.Next(1, 100) : If hours < 休假比例_nud.Value + 設定5 Then

  2211.                             If 清單4_dgv.Rows(i).Cells(15).Value = "" Then : AUTO時段1() : 清單4_dgv.Rows(i).Cells(15).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  2212.                             If 清單4_dgv.Rows(i).Cells(16).Value = "" Then : AUTO時段2() : 清單4_dgv.Rows(i).Cells(16).Value = AUTO時 : AUTO舊2 = AUTO時 : End If : 計數 += 1

  2213.                         End If : If 計數 > 可沖天數_nud.Value - 休假天數_nud.Value + 1 Then : Exit For : End If

  2214.                         Randomize() : hours = random2.Next(1, 100) : If hours < 休假比例_nud.Value + 設定5 Then

  2215.                             If 清單4_dgv.Rows(i).Cells(17).Value = "" Then : AUTO時段1() : 清單4_dgv.Rows(i).Cells(17).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  2216.                             If 清單4_dgv.Rows(i).Cells(18).Value = "" Then : AUTO時段2() : 清單4_dgv.Rows(i).Cells(18).Value = AUTO時 : AUTO舊2 = AUTO時 : End If : 計數 += 1

  2217.                         End If : If 計數 > 可沖天數_nud.Value - 休假天數_nud.Value + 1 Then : Exit For : End If

  2218.                         Randomize() : hours = random3.Next(1, 100) : If hours < 休假比例_nud.Value + 設定5 Then

  2219.                             If 清單4_dgv.Rows(i).Cells(19).Value = "" Then : AUTO時段1() : 清單4_dgv.Rows(i).Cells(19).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  2220.                             If 清單4_dgv.Rows(i).Cells(20).Value = "" Then : AUTO時段2() : 清單4_dgv.Rows(i).Cells(20).Value = AUTO時 : AUTO舊2 = AUTO時 : End If : 計數 += 1

  2221.                         End If : If 計數 > 可沖天數_nud.Value - 休假天數_nud.Value + 1 Then : Exit For : End If

  2222.                         Randomize() : hours = random4.Next(1, 100) : If hours < 休假比例_nud.Value + 設定5 Then

  2223.                             If 清單4_dgv.Rows(i).Cells(21).Value = "" Then : AUTO時段1() : 清單4_dgv.Rows(i).Cells(21).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  2224.                             If 清單4_dgv.Rows(i).Cells(22).Value = "" Then : AUTO時段2() : 清單4_dgv.Rows(i).Cells(22).Value = AUTO時 : AUTO舊2 = AUTO時 : End If : 計數 += 1

  2225.                         End If : If 計數 > 可沖天數_nud.Value - 休假天數_nud.Value + 1 Then : Exit For : End If

  2226.                         Randomize() : hours = random5.Next(1, 100) : If hours < 休假比例_nud.Value + 設定5 Then

  2227.                             If 清單4_dgv.Rows(i).Cells(23).Value = "" Then : AUTO時段1() : 清單4_dgv.Rows(i).Cells(23).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  2228.                             If 清單4_dgv.Rows(i).Cells(24).Value = "" Then : AUTO時段2() : 清單4_dgv.Rows(i).Cells(24).Value = AUTO時 : AUTO舊2 = AUTO時 : End If : 計數 += 1

  2229.                         End If : If 計數 > 可沖天數_nud.Value - 休假天數_nud.Value + 1 Then : Exit For : End If

  2230.                         Randomize() : hours = random6.Next(1, 100) : If hours < 休假比例_nud.Value + 設定5 Then

  2231.                             If 清單4_dgv.Rows(i).Cells(25).Value = "" Then : AUTO時段1() : 清單4_dgv.Rows(i).Cells(25).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  2232.                             If 清單4_dgv.Rows(i).Cells(26).Value = "" Then : AUTO時段2() : 清單4_dgv.Rows(i).Cells(26).Value = AUTO時 : AUTO舊2 = AUTO時 : End If : 計數 += 1

  2233.                         End If : If 計數 > 可沖天數_nud.Value - 休假天數_nud.Value + 1 Then : Exit For : End If

  2234.                         Randomize() : hours = random7.Next(1, 100) : If hours < 休假比例_nud.Value - 30 Then

  2235.                             If 清單4_dgv.Rows(i).Cells(27).Value = "" Then : AUTO時段1() : 清單4_dgv.Rows(i).Cells(27).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  2236.                             If 清單4_dgv.Rows(i).Cells(28).Value = "" Then : AUTO時段2() : 清單4_dgv.Rows(i).Cells(28).Value = AUTO時 : AUTO舊2 = AUTO時 : End If : 計數 += 1

  2237.                         End If : If 計數 > 可沖天數_nud.Value - 休假天數_nud.Value + 1 Then : Exit For : End If

  2238.                     ElseIf 休假比例_nud.Value = 100 Then

  2239.                         If 清單4_dgv.Rows(i).Cells(15).Value = "" Then : AUTO時段1() : 清單4_dgv.Rows(i).Cells(15).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  2240.                         If 清單4_dgv.Rows(i).Cells(16).Value = "" Then : AUTO時段2() : 清單4_dgv.Rows(i).Cells(16).Value = AUTO時 : AUTO舊2 = AUTO時 : End If

  2241.                         If 清單4_dgv.Rows(i).Cells(17).Value = "" Then : AUTO時段1() : 清單4_dgv.Rows(i).Cells(17).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  2242.                         If 清單4_dgv.Rows(i).Cells(18).Value = "" Then : AUTO時段2() : 清單4_dgv.Rows(i).Cells(18).Value = AUTO時 : AUTO舊2 = AUTO時 : End If

  2243.                         If 清單4_dgv.Rows(i).Cells(19).Value = "" Then : AUTO時段1() : 清單4_dgv.Rows(i).Cells(19).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  2244.                         If 清單4_dgv.Rows(i).Cells(20).Value = "" Then : AUTO時段2() : 清單4_dgv.Rows(i).Cells(20).Value = AUTO時 : AUTO舊2 = AUTO時 : End If

  2245.                         If 清單4_dgv.Rows(i).Cells(21).Value = "" Then : AUTO時段1() : 清單4_dgv.Rows(i).Cells(21).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  2246.                         If 清單4_dgv.Rows(i).Cells(22).Value = "" Then : AUTO時段2() : 清單4_dgv.Rows(i).Cells(22).Value = AUTO時 : AUTO舊2 = AUTO時 : End If

  2247.                         If 清單4_dgv.Rows(i).Cells(23).Value = "" Then : AUTO時段1() : 清單4_dgv.Rows(i).Cells(23).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  2248.                         If 清單4_dgv.Rows(i).Cells(24).Value = "" Then : AUTO時段2() : 清單4_dgv.Rows(i).Cells(24).Value = AUTO時 : AUTO舊2 = AUTO時 : End If

  2249.                         If 清單4_dgv.Rows(i).Cells(25).Value = "" Then : AUTO時段1() : 清單4_dgv.Rows(i).Cells(25).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  2250.                         If 清單4_dgv.Rows(i).Cells(26).Value = "" Then : AUTO時段2() : 清單4_dgv.Rows(i).Cells(26).Value = AUTO時 : AUTO舊2 = AUTO時 : End If

  2251.                         If 清單4_dgv.Rows(i).Cells(27).Value = "" Then : AUTO時段1() : 清單4_dgv.Rows(i).Cells(27).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  2252.                         If 清單4_dgv.Rows(i).Cells(28).Value = "" Then : AUTO時段2() : 清單4_dgv.Rows(i).Cells(28).Value = AUTO時 : AUTO舊2 = AUTO時 : End If

  2253.                     End If

  2254.                 Next : AUTO第4周()

  2255.                 '---------------第5周--------------------------------------------------------------------------------------------------------------------------------------------------------------

  2256.                 For i As Integer = 0 To 清單5_dgv.Rows.Count - 1

  2257.                     If 休假比例_nud.Value > 0 And 休假比例_nud.Value < 20 Then

  2258.                         Dim 計數 As Integer

  2259.                         If Strings.Mid(星29_bt.Text, 6, 2) = 月份2_cb.Text Then

  2260.                             Randomize() : hours = random1.Next(1, 100) : If hours < 休假比例_nud.Value + 設定1 Then

  2261.                                 If 清單5_dgv.Rows(i).Cells(15).Value = "" Then : AUTO時段1() : 清單5_dgv.Rows(i).Cells(15).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  2262.                                 If 清單5_dgv.Rows(i).Cells(16).Value = "" Then : AUTO時段2() : 清單5_dgv.Rows(i).Cells(16).Value = AUTO時 : AUTO舊2 = AUTO時 : End If : 計數 += 1

  2263.                             End If

  2264.                         End If

  2265.                         If 計數 > 可沖天數_nud.Value - 休假天數_nud.Value + 10 Then : Exit For : End If

  2266.                         If Strings.Mid(星30_bt.Text, 6, 2) = 月份2_cb.Text Then

  2267.                             Randomize() : hours = random2.Next(1, 100) : If hours < 休假比例_nud.Value + 設定1 Then

  2268.                                 If 清單5_dgv.Rows(i).Cells(17).Value = "" Then : AUTO時段1() : 清單5_dgv.Rows(i).Cells(17).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  2269.                                 If 清單5_dgv.Rows(i).Cells(18).Value = "" Then : AUTO時段2() : 清單5_dgv.Rows(i).Cells(18).Value = AUTO時 : AUTO舊2 = AUTO時 : End If : 計數 += 1

  2270.                             End If

  2271.                         End If

  2272.                         If 計數 > 可沖天數_nud.Value - 休假天數_nud.Value + 10 Then : Exit For : End If

  2273.                         If Strings.Mid(星31_bt.Text, 6, 2) = 月份2_cb.Text Then

  2274.                             Randomize() : hours = random3.Next(1, 100) : If hours < 休假比例_nud.Value + 設定1 Then

  2275.                                 If 清單5_dgv.Rows(i).Cells(19).Value = "" Then : AUTO時段1() : 清單5_dgv.Rows(i).Cells(19).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  2276.                                 If 清單5_dgv.Rows(i).Cells(20).Value = "" Then : AUTO時段2() : 清單5_dgv.Rows(i).Cells(20).Value = AUTO時 : AUTO舊2 = AUTO時 : End If : 計數 += 1

  2277.                             End If

  2278.                         End If

  2279.                         If 計數 > 可沖天數_nud.Value - 休假天數_nud.Value + 10 Then : Exit For : End If

  2280.                         If Strings.Mid(星32_bt.Text, 6, 2) = 月份2_cb.Text Then

  2281.                             Randomize() : hours = random4.Next(1, 100) : If hours < 休假比例_nud.Value + 設定1 Then

  2282.                                 If 清單5_dgv.Rows(i).Cells(21).Value = "" Then : AUTO時段1() : 清單5_dgv.Rows(i).Cells(21).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  2283.                                 If 清單5_dgv.Rows(i).Cells(22).Value = "" Then : AUTO時段2() : 清單5_dgv.Rows(i).Cells(22).Value = AUTO時 : AUTO舊2 = AUTO時 : End If : 計數 += 1

  2284.                             End If

  2285.                         End If

  2286.                         If 計數 > 可沖天數_nud.Value - 休假天數_nud.Value + 10 Then : Exit For : End If

  2287.                         If Strings.Mid(星33_bt.Text, 6, 2) = 月份2_cb.Text Then

  2288.                             Randomize() : hours = random5.Next(1, 100) : If hours < 休假比例_nud.Value + 設定1 Then

  2289.                                 If 清單5_dgv.Rows(i).Cells(23).Value = "" Then : AUTO時段1() : 清單5_dgv.Rows(i).Cells(23).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  2290.                                 If 清單5_dgv.Rows(i).Cells(24).Value = "" Then : AUTO時段2() : 清單5_dgv.Rows(i).Cells(24).Value = AUTO時 : AUTO舊2 = AUTO時 : End If : 計數 += 1

  2291.                             End If

  2292.                         End If

  2293.                         If 計數 > 可沖天數_nud.Value - 休假天數_nud.Value + 10 Then : Exit For : End If

  2294.                         If Strings.Mid(星34_bt.Text, 6, 2) = 月份2_cb.Text Then

  2295.                             Randomize() : hours = random6.Next(1, 100) : If hours < 休假比例_nud.Value + 設定1 Then

  2296.                                 If 清單5_dgv.Rows(i).Cells(25).Value = "" Then : AUTO時段1() : 清單5_dgv.Rows(i).Cells(25).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  2297.                                 If 清單5_dgv.Rows(i).Cells(26).Value = "" Then : AUTO時段2() : 清單5_dgv.Rows(i).Cells(26).Value = AUTO時 : AUTO舊2 = AUTO時 : End If : 計數 += 1

  2298.                             End If

  2299.                         End If

  2300.                         If 計數 > 可沖天數_nud.Value - 休假天數_nud.Value + 10 Then : Exit For : End If

  2301.                     ElseIf 休假比例_nud.Value >= 20 And 休假比例_nud.Value < 40 Then

  2302.                         Dim 計數 As Integer

  2303.                         If Strings.Mid(星29_bt.Text, 6, 2) = 月份2_cb.Text Then

  2304.                             Randomize() : hours = random1.Next(1, 100) : If hours < 休假比例_nud.Value + 設定2 Then

  2305.                                 If 清單5_dgv.Rows(i).Cells(15).Value = "" Then : AUTO時段1() : 清單5_dgv.Rows(i).Cells(15).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  2306.                                 If 清單5_dgv.Rows(i).Cells(16).Value = "" Then : AUTO時段2() : 清單5_dgv.Rows(i).Cells(16).Value = AUTO時 : AUTO舊2 = AUTO時 : End If : 計數 += 1

  2307.                             End If

  2308.                         End If

  2309.                         If 計數 > 可沖天數_nud.Value - 休假天數_nud.Value + 7 Then : Exit For : End If

  2310.                         If Strings.Mid(星30_bt.Text, 6, 2) = 月份2_cb.Text Then

  2311.                             Randomize() : hours = random2.Next(1, 100) : If hours < 休假比例_nud.Value + 設定2 Then

  2312.                                 If 清單5_dgv.Rows(i).Cells(17).Value = "" Then : AUTO時段1() : 清單5_dgv.Rows(i).Cells(17).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  2313.                                 If 清單5_dgv.Rows(i).Cells(18).Value = "" Then : AUTO時段2() : 清單5_dgv.Rows(i).Cells(18).Value = AUTO時 : AUTO舊2 = AUTO時 : End If : 計數 += 1

  2314.                             End If

  2315.                         End If

  2316.                         If 計數 > 可沖天數_nud.Value - 休假天數_nud.Value + 7 Then : Exit For : End If

  2317.                         If Strings.Mid(星31_bt.Text, 6, 2) = 月份2_cb.Text Then

  2318.                             Randomize() : hours = random3.Next(1, 100) : If hours < 休假比例_nud.Value + 設定2 Then

  2319.                                 If 清單5_dgv.Rows(i).Cells(19).Value = "" Then : AUTO時段1() : 清單5_dgv.Rows(i).Cells(19).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  2320.                                 If 清單5_dgv.Rows(i).Cells(20).Value = "" Then : AUTO時段2() : 清單5_dgv.Rows(i).Cells(20).Value = AUTO時 : AUTO舊2 = AUTO時 : End If : 計數 += 1

  2321.                             End If

  2322.                         End If

  2323.                         If 計數 > 可沖天數_nud.Value - 休假天數_nud.Value + 7 Then : Exit For : End If

  2324.                         If Strings.Mid(星32_bt.Text, 6, 2) = 月份2_cb.Text Then

  2325.                             Randomize() : hours = random4.Next(1, 100) : If hours < 休假比例_nud.Value + 設定2 Then

  2326.                                 If 清單5_dgv.Rows(i).Cells(21).Value = "" Then : AUTO時段1() : 清單5_dgv.Rows(i).Cells(21).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  2327.                                 If 清單5_dgv.Rows(i).Cells(22).Value = "" Then : AUTO時段2() : 清單5_dgv.Rows(i).Cells(22).Value = AUTO時 : AUTO舊2 = AUTO時 : End If : 計數 += 1

  2328.                             End If

  2329.                         End If

  2330.                         If 計數 > 可沖天數_nud.Value - 休假天數_nud.Value + 7 Then : Exit For : End If

  2331.                         If Strings.Mid(星33_bt.Text, 6, 2) = 月份2_cb.Text Then

  2332.                             Randomize() : hours = random5.Next(1, 100) : If hours < 休假比例_nud.Value + 設定2 Then

  2333.                                 If 清單5_dgv.Rows(i).Cells(23).Value = "" Then : AUTO時段1() : 清單5_dgv.Rows(i).Cells(23).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  2334.                                 If 清單5_dgv.Rows(i).Cells(24).Value = "" Then : AUTO時段2() : 清單5_dgv.Rows(i).Cells(24).Value = AUTO時 : AUTO舊2 = AUTO時 : End If : 計數 += 1

  2335.                             End If

  2336.                         End If

  2337.                         If 計數 > 可沖天數_nud.Value - 休假天數_nud.Value + 7 Then : Exit For : End If

  2338.                         If Strings.Mid(星34_bt.Text, 6, 2) = 月份2_cb.Text Then

  2339.                             Randomize() : hours = random6.Next(1, 100) : If hours < 休假比例_nud.Value + 設定2 Then

  2340.                                 If 清單5_dgv.Rows(i).Cells(25).Value = "" Then : AUTO時段1() : 清單5_dgv.Rows(i).Cells(25).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  2341.                                 If 清單5_dgv.Rows(i).Cells(26).Value = "" Then : AUTO時段2() : 清單5_dgv.Rows(i).Cells(26).Value = AUTO時 : AUTO舊2 = AUTO時 : End If : 計數 += 1

  2342.                             End If

  2343.                         End If

  2344.                         If 計數 > 可沖天數_nud.Value - 休假天數_nud.Value + 7 Then : Exit For : End If

  2345.                     ElseIf 休假比例_nud.Value >= 40 And 休假比例_nud.Value < 60 Then

  2346.                         Dim 計數 As Integer

  2347.                         If Strings.Mid(星29_bt.Text, 6, 2) = 月份2_cb.Text Then

  2348.                             Randomize() : hours = random1.Next(1, 100) : If hours < 休假比例_nud.Value + 設定3 Then

  2349.                                 If 清單5_dgv.Rows(i).Cells(15).Value = "" Then : AUTO時段1() : 清單5_dgv.Rows(i).Cells(15).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  2350.                                 If 清單5_dgv.Rows(i).Cells(16).Value = "" Then : AUTO時段2() : 清單5_dgv.Rows(i).Cells(16).Value = AUTO時 : AUTO舊2 = AUTO時 : End If : 計數 += 1

  2351.                             End If

  2352.                         End If

  2353.                         If 計數 > 可沖天數_nud.Value - 休假天數_nud.Value + 5 Then : Exit For : End If

  2354.                         If Strings.Mid(星30_bt.Text, 6, 2) = 月份2_cb.Text Then

  2355.                             Randomize() : hours = random2.Next(1, 100) : If hours < 休假比例_nud.Value + 設定3 Then

  2356.                                 If 清單5_dgv.Rows(i).Cells(17).Value = "" Then : AUTO時段1() : 清單5_dgv.Rows(i).Cells(17).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  2357.                                 If 清單5_dgv.Rows(i).Cells(18).Value = "" Then : AUTO時段2() : 清單5_dgv.Rows(i).Cells(18).Value = AUTO時 : AUTO舊2 = AUTO時 : End If : 計數 += 1

  2358.                             End If

  2359.                         End If

  2360.                         If 計數 > 可沖天數_nud.Value - 休假天數_nud.Value + 5 Then : Exit For : End If

  2361.                         If Strings.Mid(星31_bt.Text, 6, 2) = 月份2_cb.Text Then

  2362.                             Randomize() : hours = random3.Next(1, 100) : If hours < 休假比例_nud.Value + 設定3 Then

  2363.                                 If 清單5_dgv.Rows(i).Cells(19).Value = "" Then : AUTO時段1() : 清單5_dgv.Rows(i).Cells(19).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  2364.                                 If 清單5_dgv.Rows(i).Cells(20).Value = "" Then : AUTO時段2() : 清單5_dgv.Rows(i).Cells(20).Value = AUTO時 : AUTO舊2 = AUTO時 : End If : 計數 += 1

  2365.                             End If

  2366.                         End If

  2367.                         If 計數 > 可沖天數_nud.Value - 休假天數_nud.Value + 5 Then : Exit For : End If

  2368.                         If Strings.Mid(星32_bt.Text, 6, 2) = 月份2_cb.Text Then

  2369.                             Randomize() : hours = random4.Next(1, 100) : If hours < 休假比例_nud.Value + 設定3 Then

  2370.                                 If 清單5_dgv.Rows(i).Cells(21).Value = "" Then : AUTO時段1() : 清單5_dgv.Rows(i).Cells(21).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  2371.                                 If 清單5_dgv.Rows(i).Cells(22).Value = "" Then : AUTO時段2() : 清單5_dgv.Rows(i).Cells(22).Value = AUTO時 : AUTO舊2 = AUTO時 : End If : 計數 += 1

  2372.                             End If

  2373.                         End If

  2374.                         If 計數 > 可沖天數_nud.Value - 休假天數_nud.Value + 5 Then : Exit For : End If

  2375.                         If Strings.Mid(星33_bt.Text, 6, 2) = 月份2_cb.Text Then

  2376.                             Randomize() : hours = random5.Next(1, 100) : If hours < 休假比例_nud.Value + 設定3 Then

  2377.                                 If 清單5_dgv.Rows(i).Cells(23).Value = "" Then : AUTO時段1() : 清單5_dgv.Rows(i).Cells(23).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  2378.                                 If 清單5_dgv.Rows(i).Cells(24).Value = "" Then : AUTO時段2() : 清單5_dgv.Rows(i).Cells(24).Value = AUTO時 : AUTO舊2 = AUTO時 : End If : 計數 += 1

  2379.                             End If

  2380.                         End If

  2381.                         If 計數 > 可沖天數_nud.Value - 休假天數_nud.Value + 5 Then : Exit For : End If

  2382.                         If Strings.Mid(星34_bt.Text, 6, 2) = 月份2_cb.Text Then

  2383.                             Randomize() : hours = random6.Next(1, 100) : If hours < 休假比例_nud.Value + 設定3 Then

  2384.                                 If 清單5_dgv.Rows(i).Cells(25).Value = "" Then : AUTO時段1() : 清單5_dgv.Rows(i).Cells(25).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  2385.                                 If 清單5_dgv.Rows(i).Cells(26).Value = "" Then : AUTO時段2() : 清單5_dgv.Rows(i).Cells(26).Value = AUTO時 : AUTO舊2 = AUTO時 : End If : 計數 += 1

  2386.                             End If

  2387.                         End If

  2388.                         If 計數 > 可沖天數_nud.Value - 休假天數_nud.Value + 5 Then : Exit For : End If

  2389.                     ElseIf 休假比例_nud.Value >= 60 And 休假比例_nud.Value < 80 Then

  2390.                         Dim 計數 As Integer

  2391.                         If Strings.Mid(星29_bt.Text, 6, 2) = 月份2_cb.Text Then

  2392.                             Randomize() : hours = random1.Next(1, 100) : If hours < 休假比例_nud.Value + 設定4 Then

  2393.                                 If 清單5_dgv.Rows(i).Cells(15).Value = "" Then : AUTO時段1() : 清單5_dgv.Rows(i).Cells(15).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  2394.                                 If 清單5_dgv.Rows(i).Cells(16).Value = "" Then : AUTO時段2() : 清單5_dgv.Rows(i).Cells(16).Value = AUTO時 : AUTO舊2 = AUTO時 : End If : 計數 += 1

  2395.                             End If

  2396.                         End If

  2397.                         If 計數 > 可沖天數_nud.Value - 休假天數_nud.Value + 3 Then : Exit For : End If

  2398.                         If Strings.Mid(星30_bt.Text, 6, 2) = 月份2_cb.Text Then

  2399.                             Randomize() : hours = random2.Next(1, 100) : If hours < 休假比例_nud.Value + 設定4 Then

  2400.                                 If 清單5_dgv.Rows(i).Cells(17).Value = "" Then : AUTO時段1() : 清單5_dgv.Rows(i).Cells(17).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  2401.                                 If 清單5_dgv.Rows(i).Cells(18).Value = "" Then : AUTO時段2() : 清單5_dgv.Rows(i).Cells(18).Value = AUTO時 : AUTO舊2 = AUTO時 : End If : 計數 += 1

  2402.                             End If

  2403.                         End If

  2404.                         If 計數 > 可沖天數_nud.Value - 休假天數_nud.Value + 3 Then : Exit For : End If

  2405.                         If Strings.Mid(星31_bt.Text, 6, 2) = 月份2_cb.Text Then

  2406.                             Randomize() : hours = random3.Next(1, 100) : If hours < 休假比例_nud.Value + 設定4 Then

  2407.                                 If 清單5_dgv.Rows(i).Cells(19).Value = "" Then : AUTO時段1() : 清單5_dgv.Rows(i).Cells(19).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  2408.                                 If 清單5_dgv.Rows(i).Cells(20).Value = "" Then : AUTO時段2() : 清單5_dgv.Rows(i).Cells(20).Value = AUTO時 : AUTO舊2 = AUTO時 : End If : 計數 += 1

  2409.                             End If

  2410.                         End If

  2411.                         If 計數 > 可沖天數_nud.Value - 休假天數_nud.Value + 3 Then : Exit For : End If

  2412.                         If Strings.Mid(星32_bt.Text, 6, 2) = 月份2_cb.Text Then

  2413.                             Randomize() : hours = random4.Next(1, 100) : If hours < 休假比例_nud.Value + 設定4 Then

  2414.                                 If 清單5_dgv.Rows(i).Cells(21).Value = "" Then : AUTO時段1() : 清單5_dgv.Rows(i).Cells(21).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  2415.                                 If 清單5_dgv.Rows(i).Cells(22).Value = "" Then : AUTO時段2() : 清單5_dgv.Rows(i).Cells(22).Value = AUTO時 : AUTO舊2 = AUTO時 : End If : 計數 += 1

  2416.                             End If

  2417.                         End If

  2418.                         If 計數 > 可沖天數_nud.Value - 休假天數_nud.Value + 3 Then : Exit For : End If

  2419.                         If Strings.Mid(星33_bt.Text, 6, 2) = 月份2_cb.Text Then

  2420.                             Randomize() : hours = random5.Next(1, 100) : If hours < 休假比例_nud.Value + 設定4 Then

  2421.                                 If 清單5_dgv.Rows(i).Cells(23).Value = "" Then : AUTO時段1() : 清單5_dgv.Rows(i).Cells(23).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  2422.                                 If 清單5_dgv.Rows(i).Cells(24).Value = "" Then : AUTO時段2() : 清單5_dgv.Rows(i).Cells(24).Value = AUTO時 : AUTO舊2 = AUTO時 : End If : 計數 += 1

  2423.                             End If

  2424.                         End If

  2425.                         If 計數 > 可沖天數_nud.Value - 休假天數_nud.Value + 3 Then : Exit For : End If

  2426.                         If Strings.Mid(星34_bt.Text, 6, 2) = 月份2_cb.Text Then

  2427.                             Randomize() : hours = random6.Next(1, 100) : If hours < 休假比例_nud.Value + 設定4 Then

  2428.                                 If 清單5_dgv.Rows(i).Cells(25).Value = "" Then : AUTO時段1() : 清單5_dgv.Rows(i).Cells(25).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  2429.                                 If 清單5_dgv.Rows(i).Cells(26).Value = "" Then : AUTO時段2() : 清單5_dgv.Rows(i).Cells(26).Value = AUTO時 : AUTO舊2 = AUTO時 : End If : 計數 += 1

  2430.                             End If

  2431.                         End If

  2432.                         If 計數 > 可沖天數_nud.Value - 休假天數_nud.Value + 3 Then : Exit For : End If

  2433.                         If Strings.Mid(星35_bt.Text, 6, 2) = 月份2_cb.Text Then

  2434.                             Randomize() : hours = random7.Next(1, 100) : If hours < 休假比例_nud.Value - 48 Then

  2435.                                 If 清單5_dgv.Rows(i).Cells(27).Value = "" Then : AUTO時段1() : 清單5_dgv.Rows(i).Cells(27).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  2436.                                 If 清單5_dgv.Rows(i).Cells(28).Value = "" Then : AUTO時段2() : 清單5_dgv.Rows(i).Cells(28).Value = AUTO時 : AUTO舊2 = AUTO時 : End If : 計數 += 1

  2437.                             End If

  2438.                         End If

  2439.                         If 計數 > 可沖天數_nud.Value - 休假天數_nud.Value + 3 Then : Exit For : End If

  2440.                     ElseIf 休假比例_nud.Value >= 80 And 休假比例_nud.Value < 100 Then

  2441.                         Dim 計數 As Integer

  2442.                         If Strings.Mid(星29_bt.Text, 6, 2) = 月份2_cb.Text Then

  2443.                             Randomize() : hours = random1.Next(1, 100) : If hours < 休假比例_nud.Value + 設定5 Then

  2444.                                 If 清單5_dgv.Rows(i).Cells(15).Value = "" Then : AUTO時段1() : 清單5_dgv.Rows(i).Cells(15).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  2445.                                 If 清單5_dgv.Rows(i).Cells(16).Value = "" Then : AUTO時段2() : 清單5_dgv.Rows(i).Cells(16).Value = AUTO時 : AUTO舊2 = AUTO時 : End If : 計數 += 1

  2446.                             End If

  2447.                         End If : If 計數 > 可沖天數_nud.Value - 休假天數_nud.Value + 1 Then : Exit For : End If

  2448.                         If Strings.Mid(星30_bt.Text, 6, 2) = 月份2_cb.Text Then

  2449.                             Randomize() : hours = random2.Next(1, 100) : If hours < 休假比例_nud.Value + 設定5 Then

  2450.                                 If 清單5_dgv.Rows(i).Cells(17).Value = "" Then : AUTO時段1() : 清單5_dgv.Rows(i).Cells(17).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  2451.                                 If 清單5_dgv.Rows(i).Cells(18).Value = "" Then : AUTO時段2() : 清單5_dgv.Rows(i).Cells(18).Value = AUTO時 : AUTO舊2 = AUTO時 : End If : 計數 += 1

  2452.                             End If

  2453.                         End If : If 計數 > 可沖天數_nud.Value - 休假天數_nud.Value + 1 Then : Exit For : End If

  2454.                         If Strings.Mid(星31_bt.Text, 6, 2) = 月份2_cb.Text Then

  2455.                             Randomize() : hours = random3.Next(1, 100) : If hours < 休假比例_nud.Value + 設定5 Then

  2456.                                 If 清單5_dgv.Rows(i).Cells(19).Value = "" Then : AUTO時段1() : 清單5_dgv.Rows(i).Cells(19).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  2457.                                 If 清單5_dgv.Rows(i).Cells(20).Value = "" Then : AUTO時段2() : 清單5_dgv.Rows(i).Cells(20).Value = AUTO時 : AUTO舊2 = AUTO時 : End If : 計數 += 1

  2458.                             End If

  2459.                         End If : If 計數 > 可沖天數_nud.Value - 休假天數_nud.Value + 1 Then : Exit For : End If

  2460.                         If Strings.Mid(星32_bt.Text, 6, 2) = 月份2_cb.Text Then

  2461.                             Randomize() : hours = random4.Next(1, 100) : If hours < 休假比例_nud.Value + 設定5 Then

  2462.                                 If 清單5_dgv.Rows(i).Cells(21).Value = "" Then : AUTO時段1() : 清單5_dgv.Rows(i).Cells(21).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  2463.                                 If 清單5_dgv.Rows(i).Cells(22).Value = "" Then : AUTO時段2() : 清單5_dgv.Rows(i).Cells(22).Value = AUTO時 : AUTO舊2 = AUTO時 : End If : 計數 += 1

  2464.                             End If

  2465.                         End If : If 計數 > 可沖天數_nud.Value - 休假天數_nud.Value + 1 Then : Exit For : End If

  2466.                         If Strings.Mid(星33_bt.Text, 6, 2) = 月份2_cb.Text Then

  2467.                             Randomize() : hours = random5.Next(1, 100) : If hours < 休假比例_nud.Value + 設定5 Then

  2468.                                 If 清單5_dgv.Rows(i).Cells(23).Value = "" Then : AUTO時段1() : 清單5_dgv.Rows(i).Cells(23).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  2469.                                 If 清單5_dgv.Rows(i).Cells(24).Value = "" Then : AUTO時段2() : 清單5_dgv.Rows(i).Cells(24).Value = AUTO時 : AUTO舊2 = AUTO時 : End If : 計數 += 1

  2470.                             End If

  2471.                         End If : If 計數 > 可沖天數_nud.Value - 休假天數_nud.Value + 1 Then : Exit For : End If

  2472.                         If Strings.Mid(星34_bt.Text, 6, 2) = 月份2_cb.Text Then

  2473.                             Randomize() : hours = random6.Next(1, 100) : If hours < 休假比例_nud.Value + 設定5 Then

  2474.                                 If 清單5_dgv.Rows(i).Cells(25).Value = "" Then : AUTO時段1() : 清單5_dgv.Rows(i).Cells(25).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  2475.                                 If 清單5_dgv.Rows(i).Cells(26).Value = "" Then : AUTO時段2() : 清單5_dgv.Rows(i).Cells(26).Value = AUTO時 : AUTO舊2 = AUTO時 : End If : 計數 += 1

  2476.                             End If

  2477.                         End If : If 計數 > 可沖天數_nud.Value - 休假天數_nud.Value + 1 Then : Exit For : End If

  2478.                         If Strings.Mid(星35_bt.Text, 6, 2) = 月份2_cb.Text Then

  2479.                             Randomize() : hours = random7.Next(1, 100) : If hours < 休假比例_nud.Value - 30 Then

  2480.                                 If 清單5_dgv.Rows(i).Cells(27).Value = "" Then : AUTO時段1() : 清單5_dgv.Rows(i).Cells(27).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  2481.                                 If 清單5_dgv.Rows(i).Cells(28).Value = "" Then : AUTO時段2() : 清單5_dgv.Rows(i).Cells(28).Value = AUTO時 : AUTO舊2 = AUTO時 : End If : 計數 += 1

  2482.                             End If

  2483.                         End If : If 計數 > 可沖天數_nud.Value - 休假天數_nud.Value + 1 Then : Exit For : End If

  2484.                     ElseIf 休假比例_nud.Value = 100 Then

  2485.                         If 清單5_dgv.Rows(i).Cells(15).Value = "" Then : AUTO時段1() : 清單5_dgv.Rows(i).Cells(15).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  2486.                         If 清單5_dgv.Rows(i).Cells(16).Value = "" Then : AUTO時段2() : 清單5_dgv.Rows(i).Cells(16).Value = AUTO時 : AUTO舊2 = AUTO時 : End If

  2487.                         If 清單5_dgv.Rows(i).Cells(17).Value = "" Then : AUTO時段1() : 清單5_dgv.Rows(i).Cells(17).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  2488.                         If 清單5_dgv.Rows(i).Cells(18).Value = "" Then : AUTO時段2() : 清單5_dgv.Rows(i).Cells(18).Value = AUTO時 : AUTO舊2 = AUTO時 : End If

  2489.                         If 清單5_dgv.Rows(i).Cells(19).Value = "" Then : AUTO時段1() : 清單5_dgv.Rows(i).Cells(19).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  2490.                         If 清單5_dgv.Rows(i).Cells(20).Value = "" Then : AUTO時段2() : 清單5_dgv.Rows(i).Cells(20).Value = AUTO時 : AUTO舊2 = AUTO時 : End If

  2491.                         If 清單5_dgv.Rows(i).Cells(21).Value = "" Then : AUTO時段1() : 清單5_dgv.Rows(i).Cells(21).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  2492.                         If 清單5_dgv.Rows(i).Cells(22).Value = "" Then : AUTO時段2() : 清單5_dgv.Rows(i).Cells(22).Value = AUTO時 : AUTO舊2 = AUTO時 : End If

  2493.                         If 清單5_dgv.Rows(i).Cells(23).Value = "" Then : AUTO時段1() : 清單5_dgv.Rows(i).Cells(23).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  2494.                         If 清單5_dgv.Rows(i).Cells(24).Value = "" Then : AUTO時段2() : 清單5_dgv.Rows(i).Cells(24).Value = AUTO時 : AUTO舊2 = AUTO時 : End If

  2495.                         If 清單5_dgv.Rows(i).Cells(25).Value = "" Then : AUTO時段1() : 清單5_dgv.Rows(i).Cells(25).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  2496.                         If 清單5_dgv.Rows(i).Cells(26).Value = "" Then : AUTO時段2() : 清單5_dgv.Rows(i).Cells(26).Value = AUTO時 : AUTO舊2 = AUTO時 : End If

  2497.                         If 清單5_dgv.Rows(i).Cells(27).Value = "" Then : AUTO時段1() : 清單5_dgv.Rows(i).Cells(27).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  2498.                         If 清單5_dgv.Rows(i).Cells(28).Value = "" Then : AUTO時段2() : 清單5_dgv.Rows(i).Cells(28).Value = AUTO時 : AUTO舊2 = AUTO時 : End If

  2499.                     End If

  2500.                 Next : AUTO第5周()

  2501.                 '---------------第6周--------------------------------------------------------------------------------------------------------------------------------------------------------------

  2502.                 For i As Integer = 0 To 清單6_dgv.Rows.Count - 1

  2503.                     If 休假比例_nud.Value > 0 And 休假比例_nud.Value < 20 Then

  2504.                         Dim 計數 As Integer

  2505.                         If Strings.Mid(星36_bt.Text, 6, 2) = 月份2_cb.Text Then

  2506.                             Randomize() : hours = random1.Next(1, 100) : If hours < 休假比例_nud.Value + 設定1 Then

  2507.                                 If 清單6_dgv.Rows(i).Cells(15).Value = "" Then : AUTO時段1() : 清單6_dgv.Rows(i).Cells(15).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  2508.                                 If 清單6_dgv.Rows(i).Cells(16).Value = "" Then : AUTO時段2() : 清單6_dgv.Rows(i).Cells(16).Value = AUTO時 : AUTO舊2 = AUTO時 : End If : 計數 += 1

  2509.                             End If

  2510.                         End If

  2511.                         If 計數 > 可沖天數_nud.Value - 休假天數_nud.Value + 10 Then : Exit For : End If

  2512.                         If Strings.Mid(星37_bt.Text, 6, 2) = 月份2_cb.Text Then

  2513.                             Randomize() : hours = random2.Next(1, 100) : If hours < 休假比例_nud.Value + 設定1 Then

  2514.                                 If 清單6_dgv.Rows(i).Cells(17).Value = "" Then : AUTO時段1() : 清單6_dgv.Rows(i).Cells(17).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  2515.                                 If 清單6_dgv.Rows(i).Cells(18).Value = "" Then : AUTO時段2() : 清單6_dgv.Rows(i).Cells(18).Value = AUTO時 : AUTO舊2 = AUTO時 : End If : 計數 += 1

  2516.                             End If

  2517.                         End If

  2518.                         If 計數 > 可沖天數_nud.Value - 休假天數_nud.Value + 10 Then : Exit For : End If

  2519.                         If Strings.Mid(星38_bt.Text, 6, 2) = 月份2_cb.Text Then

  2520.                             Randomize() : hours = random3.Next(1, 100) : If hours < 休假比例_nud.Value + 設定1 Then

  2521.                                 If 清單6_dgv.Rows(i).Cells(19).Value = "" Then : AUTO時段1() : 清單6_dgv.Rows(i).Cells(19).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  2522.                                 If 清單6_dgv.Rows(i).Cells(20).Value = "" Then : AUTO時段2() : 清單6_dgv.Rows(i).Cells(20).Value = AUTO時 : AUTO舊2 = AUTO時 : End If : 計數 += 1

  2523.                             End If

  2524.                         End If

  2525.                         If 計數 > 可沖天數_nud.Value - 休假天數_nud.Value + 10 Then : Exit For : End If

  2526.                         If Strings.Mid(星39_bt.Text, 6, 2) = 月份2_cb.Text Then

  2527.                             Randomize() : hours = random4.Next(1, 100) : If hours < 休假比例_nud.Value + 設定1 Then

  2528.                                 If 清單6_dgv.Rows(i).Cells(21).Value = "" Then : AUTO時段1() : 清單6_dgv.Rows(i).Cells(21).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  2529.                                 If 清單6_dgv.Rows(i).Cells(22).Value = "" Then : AUTO時段2() : 清單6_dgv.Rows(i).Cells(22).Value = AUTO時 : AUTO舊2 = AUTO時 : End If : 計數 += 1

  2530.                             End If

  2531.                         End If

  2532.                         If 計數 > 可沖天數_nud.Value - 休假天數_nud.Value + 10 Then : Exit For : End If

  2533.                         If Strings.Mid(星40_bt.Text, 6, 2) = 月份2_cb.Text Then

  2534.                             Randomize() : hours = random5.Next(1, 100) : If hours < 休假比例_nud.Value + 設定1 Then

  2535.                                 If 清單6_dgv.Rows(i).Cells(23).Value = "" Then : AUTO時段1() : 清單6_dgv.Rows(i).Cells(23).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  2536.                                 If 清單6_dgv.Rows(i).Cells(24).Value = "" Then : AUTO時段2() : 清單6_dgv.Rows(i).Cells(24).Value = AUTO時 : AUTO舊2 = AUTO時 : End If : 計數 += 1

  2537.                             End If

  2538.                         End If

  2539.                         If 計數 > 可沖天數_nud.Value - 休假天數_nud.Value + 10 Then : Exit For : End If

  2540.                         If Strings.Mid(星41_bt.Text, 6, 2) = 月份2_cb.Text Then

  2541.                             Randomize() : hours = random6.Next(1, 100) : If hours < 休假比例_nud.Value + 設定1 Then

  2542.                                 If 清單6_dgv.Rows(i).Cells(25).Value = "" Then : AUTO時段1() : 清單6_dgv.Rows(i).Cells(25).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  2543.                                 If 清單6_dgv.Rows(i).Cells(26).Value = "" Then : AUTO時段2() : 清單6_dgv.Rows(i).Cells(26).Value = AUTO時 : AUTO舊2 = AUTO時 : End If : 計數 += 1

  2544.                             End If

  2545.                         End If

  2546.                         If 計數 > 可沖天數_nud.Value - 休假天數_nud.Value + 10 Then : Exit For : End If

  2547.                     ElseIf 休假比例_nud.Value >= 20 And 休假比例_nud.Value < 40 Then

  2548.                         Dim 計數 As Integer

  2549.                         If Strings.Mid(星36_bt.Text, 6, 2) = 月份2_cb.Text Then

  2550.                             Randomize() : hours = random1.Next(1, 100) : If hours < 休假比例_nud.Value + 設定2 Then

  2551.                                 If 清單6_dgv.Rows(i).Cells(15).Value = "" Then : AUTO時段1() : 清單6_dgv.Rows(i).Cells(15).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  2552.                                 If 清單6_dgv.Rows(i).Cells(16).Value = "" Then : AUTO時段2() : 清單6_dgv.Rows(i).Cells(16).Value = AUTO時 : AUTO舊2 = AUTO時 : End If : 計數 += 1

  2553.                             End If

  2554.                         End If

  2555.                         If 計數 > 可沖天數_nud.Value - 休假天數_nud.Value + 7 Then : Exit For : End If

  2556.                         If Strings.Mid(星37_bt.Text, 6, 2) = 月份2_cb.Text Then

  2557.                             Randomize() : hours = random3.Next(1, 100) : If hours < 休假比例_nud.Value + 設定2 Then

  2558.                                 If 清單6_dgv.Rows(i).Cells(17).Value = "" Then : AUTO時段1() : 清單6_dgv.Rows(i).Cells(17).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  2559.                                 If 清單6_dgv.Rows(i).Cells(18).Value = "" Then : AUTO時段2() : 清單6_dgv.Rows(i).Cells(18).Value = AUTO時 : AUTO舊2 = AUTO時 : End If : 計數 += 1

  2560.                             End If

  2561.                         End If

  2562.                         If 計數 > 可沖天數_nud.Value - 休假天數_nud.Value + 7 Then : Exit For : End If

  2563.                         If Strings.Mid(星38_bt.Text, 6, 2) = 月份2_cb.Text Then

  2564.                             Randomize() : hours = random3.Next(1, 100) : If hours < 休假比例_nud.Value + 設定2 Then

  2565.                                 If 清單6_dgv.Rows(i).Cells(19).Value = "" Then : AUTO時段1() : 清單6_dgv.Rows(i).Cells(19).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  2566.                                 If 清單6_dgv.Rows(i).Cells(20).Value = "" Then : AUTO時段2() : 清單6_dgv.Rows(i).Cells(20).Value = AUTO時 : AUTO舊2 = AUTO時 : End If : 計數 += 1

  2567.                             End If

  2568.                         End If

  2569.                         If 計數 > 可沖天數_nud.Value - 休假天數_nud.Value + 7 Then : Exit For : End If

  2570.                         If Strings.Mid(星39_bt.Text, 6, 2) = 月份2_cb.Text Then

  2571.                             Randomize() : hours = random4.Next(1, 100) : If hours < 休假比例_nud.Value + 設定2 Then

  2572.                                 If 清單6_dgv.Rows(i).Cells(21).Value = "" Then : AUTO時段1() : 清單6_dgv.Rows(i).Cells(21).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  2573.                                 If 清單6_dgv.Rows(i).Cells(22).Value = "" Then : AUTO時段2() : 清單6_dgv.Rows(i).Cells(22).Value = AUTO時 : AUTO舊2 = AUTO時 : End If : 計數 += 1

  2574.                             End If

  2575.                         End If

  2576.                         If 計數 > 可沖天數_nud.Value - 休假天數_nud.Value + 7 Then : Exit For : End If

  2577.                         If Strings.Mid(星40_bt.Text, 6, 2) = 月份2_cb.Text Then

  2578.                             Randomize() : hours = random5.Next(1, 100) : If hours < 休假比例_nud.Value + 設定2 Then

  2579.                                 If 清單6_dgv.Rows(i).Cells(23).Value = "" Then : AUTO時段1() : 清單6_dgv.Rows(i).Cells(23).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  2580.                                 If 清單6_dgv.Rows(i).Cells(24).Value = "" Then : AUTO時段2() : 清單6_dgv.Rows(i).Cells(24).Value = AUTO時 : AUTO舊2 = AUTO時 : End If : 計數 += 1

  2581.                             End If

  2582.                         End If

  2583.                         If 計數 > 可沖天數_nud.Value - 休假天數_nud.Value + 7 Then : Exit For : End If

  2584.                         If Strings.Mid(星41_bt.Text, 6, 2) = 月份2_cb.Text Then

  2585.                             Randomize() : hours = random6.Next(1, 100) : If hours < 休假比例_nud.Value + 設定2 Then

  2586.                                 If 清單6_dgv.Rows(i).Cells(25).Value = "" Then : AUTO時段1() : 清單6_dgv.Rows(i).Cells(25).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  2587.                                 If 清單6_dgv.Rows(i).Cells(26).Value = "" Then : AUTO時段2() : 清單6_dgv.Rows(i).Cells(26).Value = AUTO時 : AUTO舊2 = AUTO時 : End If : 計數 += 1

  2588.                             End If

  2589.                         End If

  2590.                         If 計數 > 可沖天數_nud.Value - 休假天數_nud.Value + 7 Then : Exit For : End If

  2591.                     ElseIf 休假比例_nud.Value >= 40 And 休假比例_nud.Value < 60 Then

  2592.                         Dim 計數 As Integer

  2593.                         If Strings.Mid(星36_bt.Text, 6, 2) = 月份2_cb.Text Then

  2594.                             Randomize() : hours = random1.Next(1, 100) : If hours < 休假比例_nud.Value + 設定3 Then

  2595.                                 If 清單6_dgv.Rows(i).Cells(15).Value = "" Then : AUTO時段1() : 清單6_dgv.Rows(i).Cells(15).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  2596.                                 If 清單6_dgv.Rows(i).Cells(16).Value = "" Then : AUTO時段2() : 清單6_dgv.Rows(i).Cells(16).Value = AUTO時 : AUTO舊2 = AUTO時 : End If : 計數 += 1

  2597.                             End If

  2598.                         End If

  2599.                         If 計數 > 可沖天數_nud.Value - 休假天數_nud.Value + 5 Then : Exit For : End If

  2600.                         If Strings.Mid(星37_bt.Text, 6, 2) = 月份2_cb.Text Then

  2601.                             Randomize() : hours = random2.Next(1, 100) : If hours < 休假比例_nud.Value + 設定3 Then

  2602.                                 If 清單6_dgv.Rows(i).Cells(17).Value = "" Then : AUTO時段1() : 清單6_dgv.Rows(i).Cells(17).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  2603.                                 If 清單6_dgv.Rows(i).Cells(18).Value = "" Then : AUTO時段2() : 清單6_dgv.Rows(i).Cells(18).Value = AUTO時 : AUTO舊2 = AUTO時 : End If : 計數 += 1

  2604.                             End If

  2605.                         End If

  2606.                         If 計數 > 可沖天數_nud.Value - 休假天數_nud.Value + 5 Then : Exit For : End If

  2607.                         If Strings.Mid(星38_bt.Text, 6, 2) = 月份2_cb.Text Then

  2608.                             Randomize() : hours = random3.Next(1, 100) : If hours < 休假比例_nud.Value + 設定3 Then

  2609.                                 If 清單6_dgv.Rows(i).Cells(19).Value = "" Then : AUTO時段1() : 清單6_dgv.Rows(i).Cells(19).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  2610.                                 If 清單6_dgv.Rows(i).Cells(20).Value = "" Then : AUTO時段2() : 清單6_dgv.Rows(i).Cells(20).Value = AUTO時 : AUTO舊2 = AUTO時 : End If : 計數 += 1

  2611.                             End If

  2612.                         End If

  2613.                         If 計數 > 可沖天數_nud.Value - 休假天數_nud.Value + 5 Then : Exit For : End If

  2614.                         If Strings.Mid(星39_bt.Text, 6, 2) = 月份2_cb.Text Then

  2615.                             Randomize() : hours = random4.Next(1, 100) : If hours < 休假比例_nud.Value + 設定3 Then

  2616.                                 If 清單6_dgv.Rows(i).Cells(21).Value = "" Then : AUTO時段1() : 清單6_dgv.Rows(i).Cells(21).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  2617.                                 If 清單6_dgv.Rows(i).Cells(22).Value = "" Then : AUTO時段2() : 清單6_dgv.Rows(i).Cells(22).Value = AUTO時 : AUTO舊2 = AUTO時 : End If : 計數 += 1

  2618.                             End If

  2619.                         End If

  2620.                         If 計數 > 可沖天數_nud.Value - 休假天數_nud.Value + 5 Then : Exit For : End If

  2621.                         If Strings.Mid(星40_bt.Text, 6, 2) = 月份2_cb.Text Then

  2622.                             Randomize() : hours = random5.Next(1, 100) : If hours < 休假比例_nud.Value + 設定3 Then

  2623.                                 If 清單6_dgv.Rows(i).Cells(23).Value = "" Then : AUTO時段1() : 清單6_dgv.Rows(i).Cells(23).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  2624.                                 If 清單6_dgv.Rows(i).Cells(24).Value = "" Then : AUTO時段2() : 清單6_dgv.Rows(i).Cells(24).Value = AUTO時 : AUTO舊2 = AUTO時 : End If : 計數 += 1

  2625.                             End If

  2626.                         End If

  2627.                         If 計數 > 可沖天數_nud.Value - 休假天數_nud.Value + 5 Then : Exit For : End If

  2628.                         If Strings.Mid(星41_bt.Text, 6, 2) = 月份2_cb.Text Then

  2629.                             Randomize() : hours = random6.Next(1, 100) : If hours < 休假比例_nud.Value + 設定3 Then

  2630.                                 If 清單6_dgv.Rows(i).Cells(25).Value = "" Then : AUTO時段1() : 清單6_dgv.Rows(i).Cells(25).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  2631.                                 If 清單6_dgv.Rows(i).Cells(26).Value = "" Then : AUTO時段2() : 清單6_dgv.Rows(i).Cells(26).Value = AUTO時 : AUTO舊2 = AUTO時 : End If : 計數 += 1

  2632.                             End If

  2633.                         End If

  2634.                         If 計數 > 可沖天數_nud.Value - 休假天數_nud.Value + 5 Then : Exit For : End If

  2635.                     ElseIf 休假比例_nud.Value >= 60 And 休假比例_nud.Value < 80 Then

  2636.                         Dim 計數 As Integer

  2637.                         If Strings.Mid(星36_bt.Text, 6, 2) = 月份2_cb.Text Then

  2638.                             Randomize() : hours = random1.Next(1, 100) : If hours < 休假比例_nud.Value + 設定4 Then

  2639.                                 If 清單6_dgv.Rows(i).Cells(15).Value = "" Then : AUTO時段1() : 清單6_dgv.Rows(i).Cells(15).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  2640.                                 If 清單6_dgv.Rows(i).Cells(16).Value = "" Then : AUTO時段2() : 清單6_dgv.Rows(i).Cells(16).Value = AUTO時 : AUTO舊2 = AUTO時 : End If : 計數 += 1

  2641.                             End If

  2642.                         End If

  2643.                         If 計數 > 可沖天數_nud.Value - 休假天數_nud.Value + 3 Then : Exit For : End If

  2644.                         If Strings.Mid(星37_bt.Text, 6, 2) = 月份2_cb.Text Then

  2645.                             Randomize() : hours = random2.Next(1, 100) : If hours < 休假比例_nud.Value + 設定4 Then

  2646.                                 If 清單6_dgv.Rows(i).Cells(17).Value = "" Then : AUTO時段1() : 清單6_dgv.Rows(i).Cells(17).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  2647.                                 If 清單6_dgv.Rows(i).Cells(18).Value = "" Then : AUTO時段2() : 清單6_dgv.Rows(i).Cells(18).Value = AUTO時 : AUTO舊2 = AUTO時 : End If : 計數 += 1

  2648.                             End If

  2649.                         End If

  2650.                         If 計數 > 可沖天數_nud.Value - 休假天數_nud.Value + 3 Then : Exit For : End If

  2651.                         If Strings.Mid(星38_bt.Text, 6, 2) = 月份2_cb.Text Then

  2652.                             Randomize() : hours = random3.Next(1, 100) : If hours < 休假比例_nud.Value + 設定4 Then

  2653.                                 If 清單6_dgv.Rows(i).Cells(19).Value = "" Then : AUTO時段1() : 清單6_dgv.Rows(i).Cells(19).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  2654.                                 If 清單6_dgv.Rows(i).Cells(20).Value = "" Then : AUTO時段2() : 清單6_dgv.Rows(i).Cells(20).Value = AUTO時 : AUTO舊2 = AUTO時 : End If : 計數 += 1

  2655.                             End If

  2656.                         End If

  2657.                         If 計數 > 可沖天數_nud.Value - 休假天數_nud.Value + 3 Then : Exit For : End If

  2658.                         If Strings.Mid(星39_bt.Text, 6, 2) = 月份2_cb.Text Then

  2659.                             Randomize() : hours = random4.Next(1, 100) : If hours < 休假比例_nud.Value + 設定4 Then

  2660.                                 If 清單6_dgv.Rows(i).Cells(21).Value = "" Then : AUTO時段1() : 清單6_dgv.Rows(i).Cells(21).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  2661.                                 If 清單6_dgv.Rows(i).Cells(22).Value = "" Then : AUTO時段2() : 清單6_dgv.Rows(i).Cells(22).Value = AUTO時 : AUTO舊2 = AUTO時 : End If : 計數 += 1

  2662.                             End If

  2663.                         End If

  2664.                         If 計數 > 可沖天數_nud.Value - 休假天數_nud.Value + 3 Then : Exit For : End If

  2665.                         If Strings.Mid(星40_bt.Text, 6, 2) = 月份2_cb.Text Then

  2666.                             Randomize() : hours = random5.Next(1, 100) : If hours < 休假比例_nud.Value + 設定4 Then

  2667.                                 If 清單6_dgv.Rows(i).Cells(23).Value = "" Then : AUTO時段1() : 清單6_dgv.Rows(i).Cells(23).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  2668.                                 If 清單6_dgv.Rows(i).Cells(24).Value = "" Then : AUTO時段2() : 清單6_dgv.Rows(i).Cells(24).Value = AUTO時 : AUTO舊2 = AUTO時 : End If : 計數 += 1

  2669.                             End If

  2670.                         End If

  2671.                         If 計數 > 可沖天數_nud.Value - 休假天數_nud.Value + 3 Then : Exit For : End If

  2672.                         If Strings.Mid(星41_bt.Text, 6, 2) = 月份2_cb.Text Then

  2673.                             Randomize() : hours = random6.Next(1, 100) : If hours < 休假比例_nud.Value + 設定4 Then

  2674.                                 If 清單6_dgv.Rows(i).Cells(25).Value = "" Then : AUTO時段1() : 清單6_dgv.Rows(i).Cells(25).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  2675.                                 If 清單6_dgv.Rows(i).Cells(26).Value = "" Then : AUTO時段2() : 清單6_dgv.Rows(i).Cells(26).Value = AUTO時 : AUTO舊2 = AUTO時 : End If : 計數 += 1

  2676.                             End If

  2677.                         End If

  2678.                         If 計數 > 可沖天數_nud.Value - 休假天數_nud.Value + 3 Then : Exit For : End If

  2679.                         If Strings.Mid(星42_bt.Text, 6, 2) = 月份2_cb.Text Then

  2680.                             Randomize() : hours = random7.Next(1, 100) : If hours < 休假比例_nud.Value - 48 Then

  2681.                                 If 清單6_dgv.Rows(i).Cells(27).Value = "" Then : AUTO時段1() : 清單6_dgv.Rows(i).Cells(27).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  2682.                                 If 清單6_dgv.Rows(i).Cells(28).Value = "" Then : AUTO時段2() : 清單6_dgv.Rows(i).Cells(28).Value = AUTO時 : AUTO舊2 = AUTO時 : End If : 計數 += 1

  2683.                             End If

  2684.                         End If

  2685.                         If 計數 > 可沖天數_nud.Value - 休假天數_nud.Value + 3 Then : Exit For : End If

  2686.                     ElseIf 休假比例_nud.Value >= 80 And 休假比例_nud.Value < 100 Then

  2687.                         Dim 計數 As Integer

  2688.                         If Strings.Mid(星36_bt.Text, 6, 2) = 月份2_cb.Text Then

  2689.                             Randomize() : hours = random1.Next(1, 100) : If hours < 休假比例_nud.Value + 設定5 Then

  2690.                                 If 清單6_dgv.Rows(i).Cells(15).Value = "" Then : AUTO時段1() : 清單6_dgv.Rows(i).Cells(15).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  2691.                                 If 清單6_dgv.Rows(i).Cells(16).Value = "" Then : AUTO時段2() : 清單6_dgv.Rows(i).Cells(16).Value = AUTO時 : AUTO舊2 = AUTO時 : End If : 計數 += 1

  2692.                             End If

  2693.                         End If : If 計數 > 可沖天數_nud.Value - 休假天數_nud.Value + 1 Then : Exit For : End If

  2694.                         If Strings.Mid(星37_bt.Text, 6, 2) = 月份2_cb.Text Then

  2695.                             Randomize() : hours = random2.Next(1, 100) : If hours < 休假比例_nud.Value + 設定5 Then

  2696.                                 If 清單6_dgv.Rows(i).Cells(17).Value = "" Then : AUTO時段1() : 清單6_dgv.Rows(i).Cells(17).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  2697.                                 If 清單6_dgv.Rows(i).Cells(18).Value = "" Then : AUTO時段2() : 清單6_dgv.Rows(i).Cells(18).Value = AUTO時 : AUTO舊2 = AUTO時 : End If : 計數 += 1

  2698.                             End If

  2699.                         End If : If 計數 > 可沖天數_nud.Value - 休假天數_nud.Value + 1 Then : Exit For : End If

  2700.                         If Strings.Mid(星38_bt.Text, 6, 2) = 月份2_cb.Text Then

  2701.                             Randomize() : hours = random3.Next(1, 100) : If hours < 休假比例_nud.Value + 設定5 Then

  2702.                                 If 清單6_dgv.Rows(i).Cells(19).Value = "" Then : AUTO時段1() : 清單6_dgv.Rows(i).Cells(19).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  2703.                                 If 清單6_dgv.Rows(i).Cells(20).Value = "" Then : AUTO時段2() : 清單6_dgv.Rows(i).Cells(20).Value = AUTO時 : AUTO舊2 = AUTO時 : End If : 計數 += 1

  2704.                             End If

  2705.                         End If : If 計數 > 可沖天數_nud.Value - 休假天數_nud.Value + 1 Then : Exit For : End If

  2706.                         If Strings.Mid(星39_bt.Text, 6, 2) = 月份2_cb.Text Then

  2707.                             Randomize() : hours = random4.Next(1, 100) : If hours < 休假比例_nud.Value + 設定5 Then

  2708.                                 If 清單6_dgv.Rows(i).Cells(21).Value = "" Then : AUTO時段1() : 清單6_dgv.Rows(i).Cells(21).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  2709.                                 If 清單6_dgv.Rows(i).Cells(22).Value = "" Then : AUTO時段2() : 清單6_dgv.Rows(i).Cells(22).Value = AUTO時 : AUTO舊2 = AUTO時 : End If : 計數 += 1

  2710.                             End If

  2711.                         End If : If 計數 > 可沖天數_nud.Value - 休假天數_nud.Value + 1 Then : Exit For : End If

  2712.                         If Strings.Mid(星40_bt.Text, 6, 2) = 月份2_cb.Text Then

  2713.                             Randomize() : hours = random5.Next(1, 100) : If hours < 休假比例_nud.Value + 設定5 Then

  2714.                                 If 清單6_dgv.Rows(i).Cells(23).Value = "" Then : AUTO時段1() : 清單6_dgv.Rows(i).Cells(23).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  2715.                                 If 清單6_dgv.Rows(i).Cells(24).Value = "" Then : AUTO時段2() : 清單6_dgv.Rows(i).Cells(24).Value = AUTO時 : AUTO舊2 = AUTO時 : End If : 計數 += 1

  2716.                             End If

  2717.                         End If : If 計數 > 可沖天數_nud.Value - 休假天數_nud.Value + 1 Then : Exit For : End If

  2718.                         If Strings.Mid(星41_bt.Text, 6, 2) = 月份2_cb.Text Then

  2719.                             Randomize() : hours = random6.Next(1, 100) : If hours < 休假比例_nud.Value + 設定5 Then

  2720.                                 If 清單6_dgv.Rows(i).Cells(25).Value = "" Then : AUTO時段1() : 清單6_dgv.Rows(i).Cells(25).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  2721.                                 If 清單6_dgv.Rows(i).Cells(26).Value = "" Then : AUTO時段2() : 清單6_dgv.Rows(i).Cells(26).Value = AUTO時 : AUTO舊2 = AUTO時 : End If : 計數 += 1

  2722.                             End If

  2723.                         End If : If 計數 > 可沖天數_nud.Value - 休假天數_nud.Value + 1 Then : Exit For : End If

  2724.                         If Strings.Mid(星42_bt.Text, 6, 2) = 月份2_cb.Text Then

  2725.                             Randomize() : hours = random7.Next(1, 100) : If hours < 休假比例_nud.Value - 30 Then

  2726.                                 If 清單6_dgv.Rows(i).Cells(27).Value = "" Then : AUTO時段1() : 清單6_dgv.Rows(i).Cells(27).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  2727.                                 If 清單6_dgv.Rows(i).Cells(28).Value = "" Then : AUTO時段2() : 清單6_dgv.Rows(i).Cells(28).Value = AUTO時 : AUTO舊2 = AUTO時 : End If : 計數 += 1

  2728.                             End If

  2729.                         End If : If 計數 > 可沖天數_nud.Value - 休假天數_nud.Value + 1 Then : Exit For : End If

  2730.                     ElseIf 休假比例_nud.Value = 100 Then

  2731.                         If 清單6_dgv.Rows(i).Cells(15).Value = "" Then : AUTO時段1() : 清單6_dgv.Rows(i).Cells(15).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  2732.                         If 清單6_dgv.Rows(i).Cells(16).Value = "" Then : AUTO時段2() : 清單6_dgv.Rows(i).Cells(16).Value = AUTO時 : AUTO舊2 = AUTO時 : End If

  2733.                         If 清單6_dgv.Rows(i).Cells(17).Value = "" Then : AUTO時段1() : 清單6_dgv.Rows(i).Cells(17).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  2734.                         If 清單6_dgv.Rows(i).Cells(18).Value = "" Then : AUTO時段2() : 清單6_dgv.Rows(i).Cells(18).Value = AUTO時 : AUTO舊2 = AUTO時 : End If

  2735.                         If 清單6_dgv.Rows(i).Cells(19).Value = "" Then : AUTO時段1() : 清單6_dgv.Rows(i).Cells(19).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  2736.                         If 清單6_dgv.Rows(i).Cells(20).Value = "" Then : AUTO時段2() : 清單6_dgv.Rows(i).Cells(20).Value = AUTO時 : AUTO舊2 = AUTO時 : End If

  2737.                         If 清單6_dgv.Rows(i).Cells(21).Value = "" Then : AUTO時段1() : 清單6_dgv.Rows(i).Cells(21).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  2738.                         If 清單6_dgv.Rows(i).Cells(22).Value = "" Then : AUTO時段2() : 清單6_dgv.Rows(i).Cells(22).Value = AUTO時 : AUTO舊2 = AUTO時 : End If

  2739.                         If 清單6_dgv.Rows(i).Cells(23).Value = "" Then : AUTO時段1() : 清單6_dgv.Rows(i).Cells(23).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  2740.                         If 清單6_dgv.Rows(i).Cells(24).Value = "" Then : AUTO時段2() : 清單6_dgv.Rows(i).Cells(24).Value = AUTO時 : AUTO舊2 = AUTO時 : End If

  2741.                         If 清單6_dgv.Rows(i).Cells(25).Value = "" Then : AUTO時段1() : 清單6_dgv.Rows(i).Cells(25).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  2742.                         If 清單6_dgv.Rows(i).Cells(26).Value = "" Then : AUTO時段2() : 清單6_dgv.Rows(i).Cells(26).Value = AUTO時 : AUTO舊2 = AUTO時 : End If

  2743.                         If 清單6_dgv.Rows(i).Cells(27).Value = "" Then : AUTO時段1() : 清單6_dgv.Rows(i).Cells(27).Value = AUTO時 : AUTO舊1 = AUTO時 : End If

  2744.                         If 清單6_dgv.Rows(i).Cells(28).Value = "" Then : AUTO時段2() : 清單6_dgv.Rows(i).Cells(28).Value = AUTO時 : AUTO舊2 = AUTO時 : End If

  2745.                     End If

  2746.                 Next : AUTO第6周()

  2747.                 For I As Integer = 0 To 清單1_dgv.Rows.Count - 1 : 取得總數_nud.Value += CLng(清單1_dgv.Rows(I).Cells(13).Value.ToString) : Next

  2748.                 For I As Integer = 0 To 清單2_dgv.Rows.Count - 1 : 取得總數_nud.Value += CLng(清單2_dgv.Rows(I).Cells(13).Value.ToString) : Next

  2749.                 For I As Integer = 0 To 清單3_dgv.Rows.Count - 1 : 取得總數_nud.Value += CLng(清單3_dgv.Rows(I).Cells(13).Value.ToString) : Next

  2750.                 For I As Integer = 0 To 清單4_dgv.Rows.Count - 1 : 取得總數_nud.Value += CLng(清單4_dgv.Rows(I).Cells(13).Value.ToString) : Next

  2751.                 For I As Integer = 0 To 清單5_dgv.Rows.Count - 1 : 取得總數_nud.Value += CLng(清單5_dgv.Rows(I).Cells(13).Value.ToString) : Next

  2752.                 For I As Integer = 0 To 清單6_dgv.Rows.Count - 1 : 取得總數_nud.Value += CLng(清單6_dgv.Rows(I).Cells(13).Value.ToString) : Next

  2753.             End If

  2754.         End If

  2755.         If 採購計算_ch.Checked = True Then

  2756.             If 控制表_dgv.Rows.Count > 0 Then : MGB(對話框(1), 2) : If 訊息回應 = "YES" Then : Else : Exit Sub : End If : End If

  2757.             取得總數1_nud.Value = 0

  2758.             '------------------------------採購----------------------------------------------------------------------------------------------------------------------------------------------------

  2759.             Dim ds1 As New DataSet

  2760.             控制表_dgv.DataSource = Nothing : ds1.Clear()

  2761.             控制表_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing

  2762.             控制表_dgv.ColumnHeadersHeight = 25 : 控制表_dgv.AllowUserToAddRows = False : 控制表_dgv.RowTemplate.Height = 25

  2763.             SQL_採購控制表()

  2764.             da.Fill(ds1) : 控制表_dgv.DataSource = ds1.Tables(0) : conn.Close()

  2765.             For I As Integer = 0 To 控制表_dgv.Rows.Count - 1

  2766.                 控制表_dgv.Rows(I).Cells(0).Value = "" : 控制表_dgv.Rows(I).Cells(1).Value = "" : 控制表_dgv.Rows(I).Cells(2).Value = "" : 控制表_dgv.Rows(I).Cells(3).Value = ""

  2767.                 控制表_dgv.Rows(I).Cells(4).Value = "" : 控制表_dgv.Rows(I).Cells(5).Value = "" : 控制表_dgv.Rows(I).Cells(6).Value = "" : 控制表_dgv.Rows(I).Cells(7).Value = ""

  2768.                 控制表_dgv.Rows(I).Cells(8).Value = "" : 控制表_dgv.Rows(I).Cells(9).Value = "" : 控制表_dgv.Rows(I).Cells(10).Value = "" : 控制表_dgv.Rows(I).Cells(11).Value = ""

  2769.                 控制表_dgv.Rows(I).Cells(12).Value = "" : 控制表_dgv.Rows(I).Cells(13).Value = "0" : 控制表_dgv.Rows(I).Cells(14).Value = False : 控制表_dgv.Rows(I).Cells(15).Value = "0"

  2770.                 控制表_dgv.Rows(I).Cells(16).Value = "" : 控制表_dgv.Rows(I).Cells(17).Value = "" : 控制表_dgv.Rows(I).Cells(18).Value = False : 控制表_dgv.Rows(I).Cells(19).Value = False

  2771.                 控制表_dgv.Rows(I).Cells(20).Value = False : 控制表_dgv.Rows(I).Cells(21).Value = False : 控制表_dgv.Rows(I).Cells(22).Value = False : 控制表_dgv.Rows(I).Cells(23).Value = ""

  2772.                 控制表_dgv.Rows(I).Cells(24).Value = "" : 控制表_dgv.Rows(I).Cells(25).Value = "" : 控制表_dgv.Rows(I).Cells(26).Value = ""

  2773.             Next

  2774. 

  2775.             Dim ds2 As New DataSet

  2776.             明細表_dgv.DataSource = Nothing : ds2.Clear()

  2777.             明細表_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing

  2778.             明細表_dgv.ColumnHeadersHeight = 25 : 明細表_dgv.AllowUserToAddRows = False : 明細表_dgv.RowTemplate.Height = 25

  2779.             SQL_採購明細表()

  2780.             da.Fill(ds2) : 明細表_dgv.DataSource = ds2.Tables(0) : conn.Close()

  2781.             For I As Integer = 0 To 明細表_dgv.Rows.Count - 1

  2782.                 明細表_dgv.Rows(I).Cells(0).Value = "" : 明細表_dgv.Rows(I).Cells(1).Value = "" : 明細表_dgv.Rows(I).Cells(2).Value = "" : 明細表_dgv.Rows(I).Cells(3).Value = ""

  2783.                 明細表_dgv.Rows(I).Cells(4).Value = "0" : 明細表_dgv.Rows(I).Cells(5).Value = "" : 明細表_dgv.Rows(I).Cells(6).Value = "0" : 明細表_dgv.Rows(I).Cells(7).Value = ""

  2784.                 明細表_dgv.Rows(I).Cells(8).Value = False : 明細表_dgv.Rows(I).Cells(9).Value = "" : 明細表_dgv.Rows(I).Cells(10).Value = "" : 明細表_dgv.Rows(I).Cells(11).Value = ""

  2785.                 明細表_dgv.Rows(I).Cells(12).Value = False : 明細表_dgv.Rows(I).Cells(13).Value = False : 明細表_dgv.Rows(I).Cells(14).Value = "" : 明細表_dgv.Rows(I).Cells(15).Value = ""

  2786.                 明細表_dgv.Rows(I).Cells(16).Value = "" : 明細表_dgv.Rows(I).Cells(17).Value = "0"

  2787.             Next

  2788.             Dim random As New Random()

  2789. 

  2790.             Dim dgv As DataGridView = 控制表_dgv

  2791.             Dim startDate As New Date(年份2_cb.Text, 月份2_cb.Text, 1)

  2792.             Dim endDate As New Date(年份2_cb.Text, 月份2_cb.Text, DateTime.DaysInMonth(年份2_cb.Text, 月份2_cb.Text))

  2793. 

  2794.             Dim 上班日(31), 上班日1(31) As String : Dim NS As Integer

  2795.             For dayOfMonth As Integer = 1 To DateTime.DaysInMonth(年份2_cb.Text, 月份2_cb.Text)

  2796.                 Dim currentDate As New Date(年份2_cb.Text, 月份2_cb.Text, dayOfMonth)

  2797.                 If currentDate.DayOfWeek >= DayOfWeek.Monday AndAlso currentDate.DayOfWeek <= DayOfWeek.Friday Then

  2798.                     上班日1(NS) = Strings.Format(currentDate, "yyyyMMdd")

  2799.                     上班日(NS) = Strings.Format(currentDate, "yyyy/MM/dd") : NS += 1

  2800.                 End If

  2801.             Next

  2802.             Dim ND As Integer = 0 : Dim NUM1, 明細第幾個, 物料第幾個, 物料O, 物料數量, 物料數O, 驗證, 合約第幾個 As Integer

  2803.             For i As Integer = 0 To NS : 資料數 = NS : MyMod.進度條()

  2804.                 日期數量() : Hours舊 = Hours

  2805.                 For ii As Integer = 0 To Hours

  2806.                     '--------------計算出採購單號--------------------------------------------------------------------------------------------------------------------------------------

  2807.                     DTP1 = 上班日1(i)

  2808.                     For j As Integer = 1 To 999 : NUM1 = 0 + j

  2809.                         If NUM1 < 10 Then : 控制表_dgv.Rows(ND).Cells(0).Value = "HXI-C-" & DTP1 & "-00" & NUM1

  2810.                         ElseIf NUM1 > 9 And NUM1 < 100 Then : 控制表_dgv.Rows(ND).Cells(0).Value = "HXI-C-" & DTP1 & "-0" & NUM1

  2811.                         ElseIf NUM1 > 99 Then : 控制表_dgv.Rows(ND).Cells(0).Value = "HXI-C-" & DTP1 & "-" & NUM1 : End If

  2812.                         Dim found As Boolean = False : PA1 = 控制表_dgv.Rows(ND).Cells(0).Value  ' 是否找到相同資料的標誌

  2813.                         For Each row As DataGridViewRow In 該月單號_dgv.Rows

  2814.                             Dim cellValue As String = row.Cells(0).Value.ToString()

  2815.                             If cellValue = PA1 Then : found = True : Exit For : End If   ' 找到相同資料就跳出迴圈

  2816.                         Next

  2817.                         If found Then : Else : j = 999 : conn.Close() : End If : conn.Close()

  2818.                     Next

  2819.                     If ND = 0 Then : Else

  2820.                         If Strings.Mid(控制表_dgv.Rows(ND - 1).Cells(0).Value.ToString, 7, 8) = Strings.Mid(控制表_dgv.Rows(ND).Cells(0).Value.ToString, 7, 8) Then

  2821.                             If 控制表_dgv.Rows(ND - 1).Cells(0).Value.ToString = 控制表_dgv.Rows(ND).Cells(0).Value.ToString Then

  2822.                                 NUM1 = Strings.Right(控制表_dgv.Rows(ND).Cells(0).Value.ToString, 3) : NUM1 += 1

  2823.                                 If NUM1 < 10 Then : 控制表_dgv.Rows(ND).Cells(0).Value = "HXI-C-" & DTP1 & "-00" & NUM1

  2824.                                 ElseIf NUM1 > 9 And NUM1 < 100 Then : 控制表_dgv.Rows(ND).Cells(0).Value = "HXI-C-" & DTP1 & "-0" & NUM1

  2825.                                 ElseIf NUM1 > 99 Then : 控制表_dgv.Rows(ND).Cells(0).Value = "HXI-C-" & DTP1 & "-" & NUM1 : End If

  2826.                             ElseIf CInt(Strings.Right(控制表_dgv.Rows(ND - 1).Cells(0).Value.ToString, 3)) > CInt(Strings.Right(控制表_dgv.Rows(ND).Cells(0).Value.ToString, 3)) Then

  2827.                                 NUM1 = Strings.Right(控制表_dgv.Rows(ND - 1).Cells(0).Value.ToString, 3) : NUM1 += 1

  2828.                                 If NUM1 < 10 Then : 控制表_dgv.Rows(ND).Cells(0).Value = "HXI-C-" & DTP1 & "-00" & NUM1

  2829.                                 ElseIf NUM1 > 9 And NUM1 < 100 Then : 控制表_dgv.Rows(ND).Cells(0).Value = "HXI-C-" & DTP1 & "-0" & NUM1

  2830.                                 ElseIf NUM1 > 99 Then : 控制表_dgv.Rows(ND).Cells(0).Value = "HXI-C-" & DTP1 & "-" & NUM1 : End If

  2831.                             End If

  2832.                         End If

  2833.                     End If

  2834.                     '--------------完成採購控制表資料亂數生成--------------------------------------------------------------------------------------------------------------------------------------

  2835.                     供應商亂數() : Xours舊 = Xours : 控制表_dgv.Rows(ND).Cells(1).Value = 供應商_dgv.Rows(Xours).Cells(0).Value.ToString

  2836.                     使用地區亂數() : 控制表_dgv.Rows(ND).Cells(3).Value = 使用地點_dgv.Rows(Qours).Cells(0).Value.ToString

  2837.                     人員亂數() : 控制表_dgv.Rows(ND).Cells(4).Value = 核對與詢價_dgv.Rows(Qours舊).Cells(0).Value.ToString

  2838.                     Dim originalDate As Date = Date.ParseExact(上班日(i), "yyyy/MM/dd", System.Globalization.CultureInfo.InvariantCulture)

  2839.                     日期亂數() : 控制表_dgv.Rows(ND).Cells(5).Value = Strings.Format(originalDate.AddDays(HMD), "yyyy/MM/dd")

  2840.                     控制表_dgv.Rows(ND).Cells(7).Value = Strings.Format(originalDate.AddDays(HMD + 1), "yyyy/MM/dd")

  2841.                     人員亂數() : 控制表_dgv.Rows(ND).Cells(6).Value = 核對與詢價_dgv.Rows(Qours舊).Cells(0).Value.ToString

  2842.                     控制表_dgv.Rows(ND).Cells(2).Value = 上班日(i)

  2843.                     '--------------使用供應商計算對應物料位置--------------------------------------------------------------------------------------------------------------------------------------

  2844.                     Dim XC1 As Integer = -1 : Dim XC2 As Integer = -1 : Dim XP1 As Integer = 合約號_dgv.Rows.Count

  2845.                     For k As Integer = 0 To 可用物料_dgv.Rows.Count - 1

  2846.                         If 可用物料_dgv.Rows(k).Cells(0).Value.ToString() = 控制表_dgv.Rows(ND).Cells(1).Value Then : If XC1 = -1 Then : XC1 = k : End If : XC2 = k : End If

  2847.                     Next

  2848.                     驗證 = 0 : 人員亂數1() : Randomize() : 合約第幾個 = random.Next(0, 合約號_dgv.Rows.Count - 1)

  2849.                     For g As Integer = 0 To 99

  2850.                         If g < 10 Then : 明細表_dgv.Rows(明細第幾個).Cells(7).Value = "0" & g + 1 : Else : 明細表_dgv.Rows(明細第幾個).Cells(7).Value = g + 1 : End If

  2851.                         明細表_dgv.Rows(明細第幾個).Cells(7).Value = True : 明細表_dgv.Rows(明細第幾個).Cells(12).Value = True : 明細表_dgv.Rows(明細第幾個).Cells(13).Value = True

  2852.                         明細表_dgv.Rows(明細第幾個).Cells(15).Value = 合約號_dgv.Rows(合約第幾個).Cells(0).Value.ToString

  2853.                         明細表_dgv.Rows(明細第幾個).Cells(16).Value = 申請人_dgv.Rows(Qours舊).Cells(0).Value.ToString

  2854.                         For m As Integer = 1 To 1000 : Randomize() : 物料第幾個 = random.Next(XC1, XC2) : If 物料第幾個 <> 物料O Then : Exit For : End If : Next

  2855.                         物料O = 物料第幾個

  2856.                         明細表_dgv.Rows(明細第幾個).Cells(0).Value = 控制表_dgv.Rows(ND).Cells(0).Value.ToString

  2857.                         明細表_dgv.Rows(明細第幾個).Cells(1).Value = 可用物料_dgv.Rows(物料第幾個).Cells(3).Value.ToString

  2858.                         明細表_dgv.Rows(明細第幾個).Cells(5).Value = 可用物料_dgv.Rows(物料第幾個).Cells("單位").Value.ToString

  2859.                         明細表_dgv.Rows(明細第幾個).Cells(6).Value = 可用物料_dgv.Rows(物料第幾個).Cells(1).Value.ToString

  2860.                         明細表_dgv.Rows(明細第幾個).Cells(9).Value = 可用物料_dgv.Rows(物料第幾個).Cells("群組碼").Value.ToString

  2861.                         明細表_dgv.Rows(明細第幾個).Cells(10).Value = 可用物料_dgv.Rows(物料第幾個).Cells("料號原則").Value.ToString

  2862.                         明細表_dgv.Rows(明細第幾個).Cells(11).Value = 可用物料_dgv.Rows(物料第幾個).Cells("料號").Value.ToString

  2863.                         Dim 規格 As String = ""

  2864.                         If 可用物料_dgv.Rows(物料第幾個).Cells("A1").Value.ToString <> "" Then : 規格 &= 可用物料_dgv.Rows(物料第幾個).Cells("A1").Value.ToString

  2865.                         ElseIf 可用物料_dgv.Rows(物料第幾個).Cells("A2").Value.ToString <> "" Then : 規格 &= "、" & 可用物料_dgv.Rows(物料第幾個).Cells("A2").Value.ToString

  2866.                         ElseIf 可用物料_dgv.Rows(物料第幾個).Cells("A3").Value.ToString <> "" Then : 規格 &= "、" & 可用物料_dgv.Rows(物料第幾個).Cells("A3").Value.ToString

  2867.                         ElseIf 可用物料_dgv.Rows(物料第幾個).Cells("A4").Value.ToString <> "" Then : 規格 &= "、" & 可用物料_dgv.Rows(物料第幾個).Cells("A4").Value.ToString

  2868.                         ElseIf 可用物料_dgv.Rows(物料第幾個).Cells("A5").Value.ToString <> "" Then : 規格 &= "、" & 可用物料_dgv.Rows(物料第幾個).Cells("A5").Value.ToString

  2869.                         ElseIf 可用物料_dgv.Rows(物料第幾個).Cells("A6").Value.ToString <> "" Then : 規格 &= "、" & 可用物料_dgv.Rows(物料第幾個).Cells("A6").Value.ToString

  2870.                         ElseIf 可用物料_dgv.Rows(物料第幾個).Cells("A7").Value.ToString <> "" Then : 規格 &= "、" & 可用物料_dgv.Rows(物料第幾個).Cells("A7").Value.ToString

  2871.                         ElseIf 可用物料_dgv.Rows(物料第幾個).Cells("A8").Value.ToString <> "" Then : 規格 &= "、" & 可用物料_dgv.Rows(物料第幾個).Cells("A8").Value.ToString : End If

  2872.                         明細表_dgv.Rows(明細第幾個).Cells(2).Value = 規格

  2873.                         If CInt(可用物料_dgv.Rows(物料第幾個).Cells(1).Value.ToString) < 10000 Then

  2874.                             For m As Integer = 1 To 1000 : Randomize() : 物料數量 = random.Next(100, 500) : If 物料數量 <> 物料數O Then : Exit For : End If : Next

  2875.                             物料數O = 物料數量 : 明細表_dgv.Rows(明細第幾個).Cells(4).Value = 物料數量

  2876.                         ElseIf CInt(可用物料_dgv.Rows(物料第幾個).Cells(1).Value.ToString) >= 10000 And CInt(可用物料_dgv.Rows(物料第幾個).Cells(1).Value.ToString) < 50000 Then

  2877.                             For m As Integer = 1 To 1000 : Randomize() : 物料數量 = random.Next(50, 100) : If 物料數量 <> 物料數O Then : Exit For : End If : Next

  2878.                             物料數O = 物料數量 : 明細表_dgv.Rows(明細第幾個).Cells(4).Value = 物料數量

  2879.                         ElseIf CInt(可用物料_dgv.Rows(物料第幾個).Cells(1).Value.ToString) >= 50000 And CInt(可用物料_dgv.Rows(物料第幾個).Cells(1).Value.ToString) < 100000 Then

  2880.                             For m As Integer = 1 To 1000 : Randomize() : 物料數量 = random.Next(10, 50) : If 物料數量 <> 物料數O Then : Exit For : End If : Next

  2881.                             物料數O = 物料數量 : 明細表_dgv.Rows(明細第幾個).Cells(4).Value = 物料數量

  2882.                         ElseIf CInt(可用物料_dgv.Rows(物料第幾個).Cells(1).Value.ToString) >= 100000 And CInt(可用物料_dgv.Rows(物料第幾個).Cells(1).Value.ToString) < 500000 Then

  2883.                             For m As Integer = 1 To 1000 : Randomize() : 物料數量 = random.Next(5, 10) : If 物料數量 <> 物料數O Then : Exit For : End If : Next

  2884.                             物料數O = 物料數量 : 明細表_dgv.Rows(明細第幾個).Cells(4).Value = 物料數量

  2885.                         ElseIf CInt(可用物料_dgv.Rows(物料第幾個).Cells(1).Value.ToString) >= 500000 And CInt(可用物料_dgv.Rows(物料第幾個).Cells(1).Value.ToString) < 1000000 Then

  2886.                             For m As Integer = 1 To 1000 : Randomize() : 物料數量 = random.Next(1, 5) : If 物料數量 <> 物料數O Then : Exit For : End If : Next

  2887.                             物料數O = 物料數量 : 明細表_dgv.Rows(明細第幾個).Cells(4).Value = 物料數量

  2888.                         ElseIf CInt(可用物料_dgv.Rows(物料第幾個).Cells(1).Value.ToString) >= 1000000 And CInt(可用物料_dgv.Rows(物料第幾個).Cells(1).Value.ToString) < 10000000 Then

  2889.                             物料數O = 1 : 物料數量 = 1 : 明細表_dgv.Rows(明細第幾個).Cells(4).Value = 物料數量

  2890.                         Else

  2891.                             物料數O = 1 : 物料數量 = 1 : 明細表_dgv.Rows(明細第幾個).Cells(4).Value = 物料數量

  2892.                         End If

  2893.                         驗證 += (明細表_dgv.Rows(明細第幾個).Cells(6).Value * 明細表_dgv.Rows(明細第幾個).Cells(4).Value) : 明細第幾個 += 1

  2894.                         If 驗證 > 每單最高_nud.Value / 100 * 85 Then : 取得總數1_nud.Value += 驗證 : Exit For : End If

  2895.                     Next

  2896. 

  2897.                     ND += 1

  2898.                     If ND = CInt(開單數_nud.Value) Then

  2899.                         Exit For

  2900.                     End If

  2901.                 Next

  2902.                 If ND = CInt(開單數_nud.Value) Then

  2903.                     Exit For

  2904.                 End If

  2905.             Next : HX_PGS_ERP_SYS.ToolStripProgressBar1.Value = 0

  2906.         End If

  2907.     End Sub

  2908.     Private Sub 存檔_tb_Click(sender As Object, e As EventArgs) Handles 存檔_tb.Click

  2909.         SQL_零用金基本設定存檔() : MGB(對話框(3), 1) : 首次開啟 = False

  2910.     End Sub

  2911.     Private Sub 日期數量()

  2912.         Dim random As New Random()

  2913.         For i As Integer = 1 To 1000 : Randomize() : Hours = random.Next(1, 每日單量_nud.Value) : If Hours舊 <> Hours Then : Exit For : End If : Next

  2914.     End Sub

  2915.     Private Sub 供應商亂數()

  2916.         Dim random As New Random()

  2917.         For i As Integer = 1 To 1000

  2918.             Randomize() : Xours = random.Next(0, 12365478)

  2919.             For k As Integer = 0 To 100000000

  2920.                 Xours -= 供應商_dgv.Rows.Count : If Xours < 供應商_dgv.Rows.Count Then : Exit For : End If

  2921.             Next

  2922.             If Xours舊 <> Xours Then : Exit For : End If

  2923.         Next

  2924.     End Sub

  2925.     Private Sub 使用地區亂數()

  2926.         Dim random As New Random() : Randomize() : Qours = random.Next(0, 10000000)

  2927.         For i As Integer = 1 To 10000000 : Qours -= 使用地點_dgv.Rows.Count : If Qours <= 使用地點_dgv.Rows.Count - 1 Then : Exit For : End If : Next

  2928.     End Sub

  2929.     Private Sub 人員亂數()

  2930.         Dim random As New Random() : Randomize() : Qours舊 = random.Next(0, 10000000)

  2931.         For i As Integer = 1 To 10000000 : Qours舊 -= 核對與詢價_dgv.Rows.Count : If Qours舊 <= 核對與詢價_dgv.Rows.Count - 1 Then : Exit For : End If : Next

  2932.     End Sub

  2933.     Private Sub 人員亂數1()

  2934.         Dim random As New Random() : Randomize() : Qours舊 = random.Next(0, 10000000)

  2935.         For i As Integer = 1 To 10000000 : Qours舊 -= 申請人_dgv.Rows.Count : If Qours舊 <= 申請人_dgv.Rows.Count - 1 Then : Exit For : End If : Next

  2936.     End Sub

  2937.     Private Sub 日期亂數()

  2938.         Dim random As New Random() : Randomize() : HMD = random.Next(0, 10000000)

  2939.         For i As Integer = 1 To 10000000 : HMD -= 7 : If HMD <= 7 Then : Exit For : End If : Next

  2940.     End Sub

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

  2942.         If 首次開啟 = False Then

  2943.             群組1_cb.Text = "HARIAN GROUP" : Set_使用者清單() : Set_供應商() : Set_使用地點()

  2944.             Set_詢價人員() : Set_可用物料() : Set_申請人() : Set_採購單號() : Set_合約號() : 採購當案牘取()

  2945.             加總1() : 沖帳金額1_nud.Value = 每單最高_nud.Value * 3

  2946.         End If

  2947.     End Sub

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

  2949.         If 首次開啟 = False Then

  2950.             群組1_cb.Text = "HARIAN GROUP" : Set_使用者清單() : Set_供應商() : Set_使用地點()

  2951.             Set_詢價人員() : Set_可用物料() : Set_申請人() : Set_採購單號() : Set_合約號() : 採購當案牘取()

  2952.             加總1() : 沖帳金額1_nud.Value = 每單最高_nud.Value * 3

  2953.         End If

  2954.     End Sub

  2955.     Private Sub 結束日期_dtp_ValueChanged(sender As Object, e As EventArgs) Handles 結束日期_dtp.ValueChanged

  2956.         If 首次開啟 = False Then

  2957.             開始日期_dtp.Value = 結束日期_dtp.Value

  2958.             Dim oldDate As Date : Dim oldWeekDay As Integer : oldDate = 結束日期_dtp.Value : oldWeekDay = Weekday(oldDate)

  2959.             If oldWeekDay = 7 Then : 結束日期_dtp.Value = 結束日期_dtp.Value.AddDays(1)

  2960.             ElseIf oldWeekDay = 6 Then : 結束日期_dtp.Value = 結束日期_dtp.Value.AddDays(2)

  2961.             ElseIf oldWeekDay = 5 Then : 結束日期_dtp.Value = 結束日期_dtp.Value.AddDays(3)

  2962.             ElseIf oldWeekDay = 4 Then : 結束日期_dtp.Value = 結束日期_dtp.Value.AddDays(4)

  2963.             ElseIf oldWeekDay = 3 Then : 結束日期_dtp.Value = 結束日期_dtp.Value.AddDays(5)

  2964.             ElseIf oldWeekDay = 2 Then : 結束日期_dtp.Value = 結束日期_dtp.Value.AddDays(6)

  2965.             End If : 開始日期_dtp.Value = 結束日期_dtp.Value.AddDays(-6) : 結束日期_dtp.Value = 開始日期_dtp.Value.AddDays(+6)

  2966.             星期設定()

  2967. 

  2968.             For i As Integer = 1 To 7

  2969.                 If Strings.Right(Strings.Format(開始日期_dtp.Value, "yyyy/MM/dd"), 2) = "01" Then : Exit For : End If

  2970.                 If Strings.Left(Strings.Format(開始日期_dtp.Value, "yyyy/MM/dd"), 7) = Strings.Left(Strings.Format(結束日期_dtp.Value, "yyyy/MM/dd"), 7) Then

  2971.                     結束日期_dtp.Value = 開始日期_dtp.Value.AddDays(-1) : 開始日期_dtp.Value = 開始日期_dtp.Value.AddDays(-7) : 星期設定()

  2972.                 Else : Exit For : End If

  2973.             Next

  2974. 

  2975.             Dim selectedDate As Date = MonthCalendar1.SelectionStart

  2976.             Dim daysInMonth As Integer = DateTime.DaysInMonth(selectedDate.Year, selectedDate.Month)

  2977.             Dim x1 As Integer = 0 : Dim x2 As Integer = 0 ' 週一到週五的天數 週六和週日的天數

  2978.             For day As Integer = 1 To daysInMonth

  2979.                 Dim currentDate As New Date(selectedDate.Year, selectedDate.Month, day) : Dim dayOfWeek As DayOfWeek = currentDate.DayOfWeek

  2980.                 If dayOfWeek >= DayOfWeek.Monday AndAlso dayOfWeek <= DayOfWeek.Friday Then : x1 += 1

  2981.                 ElseIf dayOfWeek = DayOfWeek.Saturday OrElse dayOfWeek = DayOfWeek.Sunday Then : x2 += 1 : End If

  2982.             Next : 上班日_nud.Value = x1 : 放假日_nud.Value = x2 : 採購單極限數量()

  2983.         End If

  2984.     End Sub

  2985.     Private Sub AUTO時段1()

  2986.         Dim random As New Random()

  2987.         For i As Integer = 1 To 1000

  2988.             Randomize() : Dim hours As Integer = random.Next(6, 7) : Dim minutes As Integer

  2989.             If hours = 6 Then : Randomize() : minutes = random.Next(45, 59) : Else : Randomize() : minutes = random.Next(0, 3) : End If

  2990.             Randomize() : Dim seconds As Integer = random.Next(0, 60) : AUTO時 = $"{hours:00}:{minutes:00}:{seconds:00}"

  2991.             If AUTO舊1 <> AUTO時 Then : Exit For : End If

  2992.         Next

  2993.     End Sub

  2994.     Private Sub AUTO時段2()

  2995.         Dim random As New Random()

  2996.         For i As Integer = 1 To 1000

  2997.             Dim hours As Integer

  2998.             If 加班_nud.Value = 1 Then : Randomize() : hours = random.Next(16, 17)

  2999.             ElseIf 加班_nud.Value = 2 Then : Randomize() : hours = random.Next(18, 19)

  3000.             ElseIf 加班_nud.Value = 3 Then : Randomize() : hours = random.Next(19, 20) : End If

  3001.             Dim minutes As Integer

  3002.             If 加班_nud.Value = 1 Then : If hours = 16 Then : Randomize() : minutes = random.Next(55, 59) : Else : Randomize() : minutes = random.Next(0, 15) : End If

  3003.             ElseIf 加班_nud.Value = 2 Then : If hours = 18 Then : Randomize() : minutes = random.Next(55, 59) : Else : Randomize() : minutes = random.Next(0, 15) : End If

  3004.             ElseIf 加班_nud.Value = 3 Then : If hours = 19 Then : Randomize() : minutes = random.Next(55, 59) : Else : Randomize() : minutes = random.Next(0, 15) : End If : End If

  3005.             Randomize() : Dim seconds As Integer = random.Next(0, 60) : AUTO時 = $"{hours:00}:{minutes:00}:{seconds:00}"

  3006.             If AUTO舊2 <> AUTO時 Then : Exit For : End If

  3007.         Next

  3008.     End Sub

  3009.     Private verificationCode As String

  3010.     Private verificationStartTime As DateTime

  3011.     Dim currentTime As DateTime

  3012.     Dim elapsedTime As TimeSpan

  3013.     Private Sub 清除_bt_Click(sender As Object, e As EventArgs) Handles 清除_bt.Click

  3014.         Dim random As New Random()

  3015.         verificationCode = random.Next(10000000, 99999999).ToString()

  3016.         verificationStartTime = DateTime.Now

  3017.         LIN訊息通知("CC260", gUserName, verificationCode)

  3018.         INB(對話框(2))

  3019.         If 訊息回應 = verificationCode Then

  3020.             currentTime = DateTime.Now

  3021.             elapsedTime = currentTime - verificationStartTime

  3022.             If elapsedTime.TotalMinutes <= 0.5 Then

  3023.                 PA25 = 星1_bt.Text : Set_虛擬表() : Dim DDF As Integer

  3024.                 '-------------------------虛擬考勤--------------------------------------------------------------------------------------------------------------------

  3025.                 For i As Integer = 0 To 清單1_dgv.Rows.Count - 1

  3026.                     For ii As Integer = 0 To 虛擬表_dgv.Rows.Count - 1

  3027.                         If 清單1_dgv.Rows(i).Cells(50).Value.ToString = 虛擬表_dgv.Rows(ii).Cells(0).Value.ToString Then

  3028.                             If 月份2_cb.Text <> Strings.Mid(星1_bt.Text, 6, 2) Then

  3029.                                 清單1_dgv.Rows(i).Cells(15).Value = 虛擬表_dgv.Rows(ii).Cells(1).Value.ToString : 清單1_dgv.Rows(i).Cells(16).Value = 虛擬表_dgv.Rows(ii).Cells(2).Value.ToString

  3030.                             End If

  3031.                             If 月份2_cb.Text <> Strings.Mid(星2_bt.Text, 6, 2) Then

  3032.                                 清單1_dgv.Rows(i).Cells(17).Value = 虛擬表_dgv.Rows(ii).Cells(3).Value.ToString : 清單1_dgv.Rows(i).Cells(18).Value = 虛擬表_dgv.Rows(ii).Cells(4).Value.ToString

  3033.                             End If

  3034.                             If 月份2_cb.Text <> Strings.Mid(星3_bt.Text, 6, 2) Then

  3035.                                 清單1_dgv.Rows(i).Cells(19).Value = 虛擬表_dgv.Rows(ii).Cells(5).Value.ToString : 清單1_dgv.Rows(i).Cells(20).Value = 虛擬表_dgv.Rows(ii).Cells(6).Value.ToString

  3036.                             End If

  3037.                             If 月份2_cb.Text <> Strings.Mid(星4_bt.Text, 6, 2) Then

  3038.                                 清單1_dgv.Rows(i).Cells(21).Value = 虛擬表_dgv.Rows(ii).Cells(7).Value.ToString : 清單1_dgv.Rows(i).Cells(22).Value = 虛擬表_dgv.Rows(ii).Cells(8).Value.ToString

  3039.                             End If

  3040.                             If 月份2_cb.Text <> Strings.Mid(星5_bt.Text, 6, 2) Then

  3041.                                 清單1_dgv.Rows(i).Cells(23).Value = 虛擬表_dgv.Rows(ii).Cells(9).Value.ToString : 清單1_dgv.Rows(i).Cells(24).Value = 虛擬表_dgv.Rows(ii).Cells(10).Value.ToString

  3042.                             End If

  3043.                             If 月份2_cb.Text <> Strings.Mid(星6_bt.Text, 6, 2) Then

  3044.                                 清單1_dgv.Rows(i).Cells(25).Value = 虛擬表_dgv.Rows(ii).Cells(11).Value.ToString : 清單1_dgv.Rows(i).Cells(26).Value = 虛擬表_dgv.Rows(ii).Cells(12).Value.ToString

  3045.                             End If

  3046.                             If 月份2_cb.Text <> Strings.Mid(星7_bt.Text, 6, 2) Then

  3047.                                 清單1_dgv.Rows(i).Cells(27).Value = 虛擬表_dgv.Rows(ii).Cells(13).Value.ToString : 清單1_dgv.Rows(i).Cells(28).Value = 虛擬表_dgv.Rows(ii).Cells(14).Value.ToString

  3048.                             End If

  3049.                         End If

  3050.                     Next

  3051.                 Next

  3052.                 For i As Integer = 0 To 清單1_dgv.Rows.Count - 1

  3053.                     If 月份2_cb.Text = Strings.Mid(星1_bt.Text, 6, 2) Then : 清單1_dgv.Rows(i).Cells(15).Value = "" : 清單1_dgv.Rows(i).Cells(16).Value = "" : End If

  3054.                     If 月份2_cb.Text = Strings.Mid(星2_bt.Text, 6, 2) Then : 清單1_dgv.Rows(i).Cells(17).Value = "" : 清單1_dgv.Rows(i).Cells(18).Value = "" : End If

  3055.                     If 月份2_cb.Text = Strings.Mid(星3_bt.Text, 6, 2) Then : 清單1_dgv.Rows(i).Cells(19).Value = "" : 清單1_dgv.Rows(i).Cells(20).Value = "" : End If

  3056.                     If 月份2_cb.Text = Strings.Mid(星4_bt.Text, 6, 2) Then : 清單1_dgv.Rows(i).Cells(21).Value = "" : 清單1_dgv.Rows(i).Cells(22).Value = "" : End If

  3057.                     If 月份2_cb.Text = Strings.Mid(星5_bt.Text, 6, 2) Then : 清單1_dgv.Rows(i).Cells(23).Value = "" : 清單1_dgv.Rows(i).Cells(24).Value = "" : End If

  3058.                     If 月份2_cb.Text = Strings.Mid(星6_bt.Text, 6, 2) Then : 清單1_dgv.Rows(i).Cells(25).Value = "" : 清單1_dgv.Rows(i).Cells(26).Value = "" : End If

  3059.                     If 月份2_cb.Text = Strings.Mid(星7_bt.Text, 6, 2) Then : 清單1_dgv.Rows(i).Cells(27).Value = "" : 清單1_dgv.Rows(i).Cells(28).Value = "" : End If

  3060.                 Next : AUTO第1周()

  3061. 

  3062.                 For i As Integer = 0 To 清單2_dgv.Rows.Count - 1

  3063.                     清單2_dgv.Rows(i).Cells(15).Value = "" : 清單2_dgv.Rows(i).Cells(16).Value = "" : 清單2_dgv.Rows(i).Cells(17).Value = "" : 清單2_dgv.Rows(i).Cells(18).Value = ""

  3064.                     清單2_dgv.Rows(i).Cells(19).Value = "" : 清單2_dgv.Rows(i).Cells(20).Value = "" : 清單2_dgv.Rows(i).Cells(21).Value = "" : 清單2_dgv.Rows(i).Cells(22).Value = ""

  3065.                     清單2_dgv.Rows(i).Cells(23).Value = "" : 清單2_dgv.Rows(i).Cells(24).Value = "" : 清單2_dgv.Rows(i).Cells(25).Value = "" : 清單2_dgv.Rows(i).Cells(26).Value = ""

  3066.                     清單2_dgv.Rows(i).Cells(27).Value = "" : 清單2_dgv.Rows(i).Cells(28).Value = ""

  3067.                 Next : AUTO第2周()

  3068. 

  3069.                 For i As Integer = 0 To 清單3_dgv.Rows.Count - 1

  3070.                     清單3_dgv.Rows(i).Cells(15).Value = "" : 清單3_dgv.Rows(i).Cells(16).Value = "" : 清單3_dgv.Rows(i).Cells(17).Value = "" : 清單3_dgv.Rows(i).Cells(18).Value = ""

  3071.                     清單3_dgv.Rows(i).Cells(19).Value = "" : 清單3_dgv.Rows(i).Cells(20).Value = "" : 清單3_dgv.Rows(i).Cells(21).Value = "" : 清單3_dgv.Rows(i).Cells(22).Value = ""

  3072.                     清單3_dgv.Rows(i).Cells(23).Value = "" : 清單3_dgv.Rows(i).Cells(24).Value = "" : 清單3_dgv.Rows(i).Cells(25).Value = "" : 清單3_dgv.Rows(i).Cells(26).Value = ""

  3073.                     清單3_dgv.Rows(i).Cells(27).Value = "" : 清單3_dgv.Rows(i).Cells(28).Value = ""

  3074.                 Next : AUTO第3周()

  3075. 

  3076.                 For i As Integer = 0 To 清單4_dgv.Rows.Count - 1

  3077.                     清單4_dgv.Rows(i).Cells(15).Value = "" : 清單4_dgv.Rows(i).Cells(16).Value = "" : 清單4_dgv.Rows(i).Cells(17).Value = "" : 清單4_dgv.Rows(i).Cells(18).Value = ""

  3078.                     清單4_dgv.Rows(i).Cells(19).Value = "" : 清單4_dgv.Rows(i).Cells(20).Value = "" : 清單4_dgv.Rows(i).Cells(21).Value = "" : 清單4_dgv.Rows(i).Cells(22).Value = ""

  3079.                     清單4_dgv.Rows(i).Cells(23).Value = "" : 清單4_dgv.Rows(i).Cells(24).Value = "" : 清單4_dgv.Rows(i).Cells(25).Value = "" : 清單4_dgv.Rows(i).Cells(26).Value = ""

  3080.                     清單4_dgv.Rows(i).Cells(27).Value = "" : 清單4_dgv.Rows(i).Cells(28).Value = ""

  3081.                 Next : AUTO第4周()

  3082. 

  3083.                 For i As Integer = 0 To 清單5_dgv.Rows.Count - 1

  3084.                     清單5_dgv.Rows(i).Cells(15).Value = "" : 清單5_dgv.Rows(i).Cells(16).Value = "" : 清單5_dgv.Rows(i).Cells(17).Value = "" : 清單5_dgv.Rows(i).Cells(18).Value = ""

  3085.                     清單5_dgv.Rows(i).Cells(19).Value = "" : 清單5_dgv.Rows(i).Cells(20).Value = "" : 清單5_dgv.Rows(i).Cells(21).Value = "" : 清單5_dgv.Rows(i).Cells(22).Value = ""

  3086.                     清單5_dgv.Rows(i).Cells(23).Value = "" : 清單5_dgv.Rows(i).Cells(24).Value = "" : 清單5_dgv.Rows(i).Cells(25).Value = "" : 清單5_dgv.Rows(i).Cells(26).Value = ""

  3087.                     清單5_dgv.Rows(i).Cells(27).Value = "" : 清單5_dgv.Rows(i).Cells(28).Value = ""

  3088.                 Next : AUTO第5周()

  3089. 

  3090.                 For i As Integer = 0 To 清單6_dgv.Rows.Count - 1

  3091.                     清單6_dgv.Rows(i).Cells(15).Value = "" : 清單6_dgv.Rows(i).Cells(16).Value = "" : 清單6_dgv.Rows(i).Cells(17).Value = "" : 清單6_dgv.Rows(i).Cells(18).Value = ""

  3092.                     清單6_dgv.Rows(i).Cells(19).Value = "" : 清單6_dgv.Rows(i).Cells(20).Value = "" : 清單6_dgv.Rows(i).Cells(21).Value = "" : 清單6_dgv.Rows(i).Cells(22).Value = ""

  3093.                     清單6_dgv.Rows(i).Cells(23).Value = "" : 清單6_dgv.Rows(i).Cells(24).Value = "" : 清單6_dgv.Rows(i).Cells(25).Value = "" : 清單6_dgv.Rows(i).Cells(26).Value = ""

  3094.                     清單6_dgv.Rows(i).Cells(27).Value = "" : 清單6_dgv.Rows(i).Cells(28).Value = ""

  3095.                 Next : AUTO第6周() : 取得總數_nud.Value = 0

  3096. 

  3097.                 Dim AAS As String = "" : PA45 = 星1_bt.Text : SQL_虛擬考勤明細表刪除() : DDF = -1

  3098.                 For i As Integer = 0 To 清單1_dgv.Rows.Count - 1

  3099.                     If 清單1_dgv.Rows(i).Cells(15).Value.ToString = "" And 清單1_dgv.Rows(i).Cells(20).Value.ToString = "" And 清單1_dgv.Rows(i).Cells(25).Value.ToString = "" And

  3100.                        清單1_dgv.Rows(i).Cells(16).Value.ToString = "" And 清單1_dgv.Rows(i).Cells(21).Value.ToString = "" And 清單1_dgv.Rows(i).Cells(26).Value.ToString = "" And

  3101.                        清單1_dgv.Rows(i).Cells(17).Value.ToString = "" And 清單1_dgv.Rows(i).Cells(22).Value.ToString = "" And 清單1_dgv.Rows(i).Cells(27).Value.ToString = "" And

  3102.                        清單1_dgv.Rows(i).Cells(18).Value.ToString = "" And 清單1_dgv.Rows(i).Cells(23).Value.ToString = "" And 清單1_dgv.Rows(i).Cells(28).Value.ToString = "" And

  3103.                        清單1_dgv.Rows(i).Cells(19).Value.ToString = "" And 清單1_dgv.Rows(i).Cells(24).Value.ToString = "" Then : Else : DDF += 1

  3104.                         AAS = "(N'" & 清單1_dgv.Rows(i).Cells(50).Value.ToString & "', N'" & 清單1_dgv.Rows(i).Cells(15).Value.ToString & "', N'" & 清單1_dgv.Rows(i).Cells(16).Value.ToString & "', 

  3105.                         N'" & 清單1_dgv.Rows(i).Cells(17).Value.ToString & "', N'" & 清單1_dgv.Rows(i).Cells(18).Value.ToString & "', N'" & 清單1_dgv.Rows(i).Cells(19).Value.ToString & "', 

  3106.                         N'" & 清單1_dgv.Rows(i).Cells(20).Value.ToString & "', N'" & 清單1_dgv.Rows(i).Cells(21).Value.ToString & "', N'" & 清單1_dgv.Rows(i).Cells(22).Value.ToString & "', 

  3107.                         N'" & 清單1_dgv.Rows(i).Cells(23).Value.ToString & "', N'" & 清單1_dgv.Rows(i).Cells(24).Value.ToString & "', N'" & 清單1_dgv.Rows(i).Cells(25).Value.ToString & "', 

  3108.                         N'" & 清單1_dgv.Rows(i).Cells(26).Value.ToString & "', N'" & 清單1_dgv.Rows(i).Cells(27).Value.ToString & "', N'" & 清單1_dgv.Rows(i).Cells(28).Value.ToString & "', 

  3109.                         N'" & 星1_bt.Text & "')"

  3110.                     End If : If DDF = -1 Then : ElseIf DDF = 0 Then : SQL2 = AAS : Else : SQL2 = SQL2 & "," & AAS : End If

  3111.                 Next : SQL_虛擬考勤明細表新增()

  3112. 

  3113.                 AAS = "" : PA45 = 星8_bt.Text : SQL_虛擬考勤明細表刪除() : DDF = -1

  3114.                 For i As Integer = 0 To 清單2_dgv.Rows.Count - 1

  3115.                     If 清單2_dgv.Rows(i).Cells(15).Value.ToString = "" And 清單2_dgv.Rows(i).Cells(20).Value.ToString = "" And 清單2_dgv.Rows(i).Cells(25).Value.ToString = "" And

  3116.                        清單2_dgv.Rows(i).Cells(16).Value.ToString = "" And 清單2_dgv.Rows(i).Cells(21).Value.ToString = "" And 清單2_dgv.Rows(i).Cells(26).Value.ToString = "" And

  3117.                        清單2_dgv.Rows(i).Cells(17).Value.ToString = "" And 清單2_dgv.Rows(i).Cells(22).Value.ToString = "" And 清單2_dgv.Rows(i).Cells(27).Value.ToString = "" And

  3118.                        清單2_dgv.Rows(i).Cells(18).Value.ToString = "" And 清單2_dgv.Rows(i).Cells(23).Value.ToString = "" And 清單2_dgv.Rows(i).Cells(28).Value.ToString = "" And

  3119.                        清單2_dgv.Rows(i).Cells(19).Value.ToString = "" And 清單2_dgv.Rows(i).Cells(24).Value.ToString = "" Then : Else : DDF += 1

  3120.                         AAS = "(N'" & 清單2_dgv.Rows(i).Cells(50).Value.ToString & "', N'" & 清單2_dgv.Rows(i).Cells(15).Value.ToString & "', N'" & 清單2_dgv.Rows(i).Cells(16).Value.ToString & "', 

  3121.                         N'" & 清單2_dgv.Rows(i).Cells(17).Value.ToString & "', N'" & 清單2_dgv.Rows(i).Cells(18).Value.ToString & "', N'" & 清單2_dgv.Rows(i).Cells(19).Value.ToString & "', 

  3122.                         N'" & 清單2_dgv.Rows(i).Cells(20).Value.ToString & "', N'" & 清單2_dgv.Rows(i).Cells(21).Value.ToString & "', N'" & 清單2_dgv.Rows(i).Cells(22).Value.ToString & "', 

  3123.                         N'" & 清單2_dgv.Rows(i).Cells(23).Value.ToString & "', N'" & 清單2_dgv.Rows(i).Cells(24).Value.ToString & "', N'" & 清單2_dgv.Rows(i).Cells(25).Value.ToString & "', 

  3124.                         N'" & 清單2_dgv.Rows(i).Cells(26).Value.ToString & "', N'" & 清單2_dgv.Rows(i).Cells(27).Value.ToString & "', N'" & 清單2_dgv.Rows(i).Cells(28).Value.ToString & "', 

  3125.                         N'" & 星8_bt.Text & "')"

  3126.                     End If : If DDF = -1 Then : ElseIf DDF = 0 Then : SQL2 = AAS : Else : SQL2 = SQL2 & "," & AAS : End If

  3127.                 Next : SQL_虛擬考勤明細表新增()

  3128. 

  3129.                 AAS = "" : PA45 = 星15_bt.Text : SQL_虛擬考勤明細表刪除() : DDF = -1

  3130.                 For i As Integer = 0 To 清單3_dgv.Rows.Count - 1

  3131.                     If 清單3_dgv.Rows(i).Cells(15).Value.ToString = "" And 清單3_dgv.Rows(i).Cells(20).Value.ToString = "" And 清單3_dgv.Rows(i).Cells(25).Value.ToString = "" And

  3132.                        清單3_dgv.Rows(i).Cells(16).Value.ToString = "" And 清單3_dgv.Rows(i).Cells(21).Value.ToString = "" And 清單3_dgv.Rows(i).Cells(26).Value.ToString = "" And

  3133.                        清單3_dgv.Rows(i).Cells(17).Value.ToString = "" And 清單3_dgv.Rows(i).Cells(22).Value.ToString = "" And 清單3_dgv.Rows(i).Cells(27).Value.ToString = "" And

  3134.                        清單3_dgv.Rows(i).Cells(18).Value.ToString = "" And 清單3_dgv.Rows(i).Cells(23).Value.ToString = "" And 清單3_dgv.Rows(i).Cells(28).Value.ToString = "" And

  3135.                        清單3_dgv.Rows(i).Cells(19).Value.ToString = "" And 清單3_dgv.Rows(i).Cells(24).Value.ToString = "" Then : Else : DDF += 1

  3136.                         AAS = "(N'" & 清單3_dgv.Rows(i).Cells(50).Value.ToString & "', N'" & 清單3_dgv.Rows(i).Cells(15).Value.ToString & "', N'" & 清單3_dgv.Rows(i).Cells(16).Value.ToString & "', 

  3137.                         N'" & 清單3_dgv.Rows(i).Cells(17).Value.ToString & "', N'" & 清單3_dgv.Rows(i).Cells(18).Value.ToString & "', N'" & 清單3_dgv.Rows(i).Cells(19).Value.ToString & "', 

  3138.                         N'" & 清單3_dgv.Rows(i).Cells(20).Value.ToString & "', N'" & 清單3_dgv.Rows(i).Cells(21).Value.ToString & "', N'" & 清單3_dgv.Rows(i).Cells(22).Value.ToString & "', 

  3139.                         N'" & 清單3_dgv.Rows(i).Cells(23).Value.ToString & "', N'" & 清單3_dgv.Rows(i).Cells(24).Value.ToString & "', N'" & 清單3_dgv.Rows(i).Cells(25).Value.ToString & "', 

  3140.                         N'" & 清單3_dgv.Rows(i).Cells(26).Value.ToString & "', N'" & 清單3_dgv.Rows(i).Cells(27).Value.ToString & "', N'" & 清單3_dgv.Rows(i).Cells(28).Value.ToString & "', 

  3141.                         N'" & 星15_bt.Text & "')"

  3142.                     End If : If DDF = -1 Then : ElseIf DDF = 0 Then : SQL2 = AAS : Else : SQL2 = SQL2 & "," & AAS : End If

  3143.                 Next : SQL_虛擬考勤明細表新增()

  3144. 

  3145.                 AAS = "" : PA45 = 星22_bt.Text : SQL_虛擬考勤明細表刪除() : DDF = -1

  3146.                 For i As Integer = 0 To 清單4_dgv.Rows.Count - 1

  3147.                     If 清單4_dgv.Rows(i).Cells(15).Value.ToString = "" And 清單4_dgv.Rows(i).Cells(20).Value.ToString = "" And 清單4_dgv.Rows(i).Cells(25).Value.ToString = "" And

  3148.                        清單4_dgv.Rows(i).Cells(16).Value.ToString = "" And 清單4_dgv.Rows(i).Cells(21).Value.ToString = "" And 清單4_dgv.Rows(i).Cells(26).Value.ToString = "" And

  3149.                        清單4_dgv.Rows(i).Cells(17).Value.ToString = "" And 清單4_dgv.Rows(i).Cells(22).Value.ToString = "" And 清單4_dgv.Rows(i).Cells(27).Value.ToString = "" And

  3150.                        清單4_dgv.Rows(i).Cells(18).Value.ToString = "" And 清單4_dgv.Rows(i).Cells(23).Value.ToString = "" And 清單4_dgv.Rows(i).Cells(28).Value.ToString = "" And

  3151.                        清單4_dgv.Rows(i).Cells(19).Value.ToString = "" And 清單4_dgv.Rows(i).Cells(24).Value.ToString = "" Then : Else : DDF += 1

  3152.                         AAS = "(N'" & 清單4_dgv.Rows(i).Cells(50).Value.ToString & "', N'" & 清單4_dgv.Rows(i).Cells(15).Value.ToString & "', N'" & 清單4_dgv.Rows(i).Cells(16).Value.ToString & "', 

  3153.                         N'" & 清單4_dgv.Rows(i).Cells(17).Value.ToString & "', N'" & 清單4_dgv.Rows(i).Cells(18).Value.ToString & "', N'" & 清單4_dgv.Rows(i).Cells(19).Value.ToString & "', 

  3154.                         N'" & 清單4_dgv.Rows(i).Cells(20).Value.ToString & "', N'" & 清單4_dgv.Rows(i).Cells(21).Value.ToString & "', N'" & 清單4_dgv.Rows(i).Cells(22).Value.ToString & "', 

  3155.                         N'" & 清單4_dgv.Rows(i).Cells(23).Value.ToString & "', N'" & 清單4_dgv.Rows(i).Cells(24).Value.ToString & "', N'" & 清單4_dgv.Rows(i).Cells(25).Value.ToString & "', 

  3156.                         N'" & 清單4_dgv.Rows(i).Cells(26).Value.ToString & "', N'" & 清單4_dgv.Rows(i).Cells(27).Value.ToString & "', N'" & 清單4_dgv.Rows(i).Cells(28).Value.ToString & "', 

  3157.                         N'" & 星22_bt.Text & "')"

  3158.                     End If : If DDF = -1 Then : ElseIf DDF = 0 Then : SQL2 = AAS : Else : SQL2 = SQL2 & "," & AAS : End If

  3159.                 Next : SQL_虛擬考勤明細表新增()

  3160. 

  3161.                 AAS = "" : PA45 = 星29_bt.Text : SQL_虛擬考勤明細表刪除() : DDF = -1

  3162.                 For i As Integer = 0 To 清單5_dgv.Rows.Count - 1

  3163.                     If 清單5_dgv.Rows(i).Cells(15).Value.ToString = "" And 清單5_dgv.Rows(i).Cells(20).Value.ToString = "" And 清單5_dgv.Rows(i).Cells(25).Value.ToString = "" And

  3164.                        清單5_dgv.Rows(i).Cells(16).Value.ToString = "" And 清單5_dgv.Rows(i).Cells(21).Value.ToString = "" And 清單5_dgv.Rows(i).Cells(26).Value.ToString = "" And

  3165.                        清單5_dgv.Rows(i).Cells(17).Value.ToString = "" And 清單5_dgv.Rows(i).Cells(22).Value.ToString = "" And 清單5_dgv.Rows(i).Cells(27).Value.ToString = "" And

  3166.                        清單5_dgv.Rows(i).Cells(18).Value.ToString = "" And 清單5_dgv.Rows(i).Cells(23).Value.ToString = "" And 清單5_dgv.Rows(i).Cells(28).Value.ToString = "" And

  3167.                        清單5_dgv.Rows(i).Cells(19).Value.ToString = "" And 清單5_dgv.Rows(i).Cells(24).Value.ToString = "" Then : Else : DDF += 1

  3168.                         AAS = "(N'" & 清單5_dgv.Rows(i).Cells(50).Value.ToString & "', N'" & 清單5_dgv.Rows(i).Cells(15).Value.ToString & "', N'" & 清單5_dgv.Rows(i).Cells(16).Value.ToString & "', 

  3169.                         N'" & 清單5_dgv.Rows(i).Cells(17).Value.ToString & "', N'" & 清單5_dgv.Rows(i).Cells(18).Value.ToString & "', N'" & 清單5_dgv.Rows(i).Cells(19).Value.ToString & "', 

  3170.                         N'" & 清單5_dgv.Rows(i).Cells(20).Value.ToString & "', N'" & 清單5_dgv.Rows(i).Cells(21).Value.ToString & "', N'" & 清單5_dgv.Rows(i).Cells(22).Value.ToString & "', 

  3171.                         N'" & 清單5_dgv.Rows(i).Cells(23).Value.ToString & "', N'" & 清單5_dgv.Rows(i).Cells(24).Value.ToString & "', N'" & 清單5_dgv.Rows(i).Cells(25).Value.ToString & "', 

  3172.                         N'" & 清單5_dgv.Rows(i).Cells(26).Value.ToString & "', N'" & 清單5_dgv.Rows(i).Cells(27).Value.ToString & "', N'" & 清單5_dgv.Rows(i).Cells(28).Value.ToString & "', 

  3173.                         N'" & 星29_bt.Text & "')"

  3174.                     End If : If DDF = -1 Then : ElseIf DDF = 0 Then : SQL2 = AAS : Else : SQL2 = SQL2 & "," & AAS : End If

  3175.                 Next : SQL_虛擬考勤明細表新增()

  3176. 

  3177.                 AAS = "" : PA45 = 星36_bt.Text : SQL_虛擬考勤明細表刪除() : DDF = -1

  3178.                 For i As Integer = 0 To 清單6_dgv.Rows.Count - 1

  3179.                     If 清單6_dgv.Rows(i).Cells(15).Value.ToString = "" And 清單6_dgv.Rows(i).Cells(20).Value.ToString = "" And 清單6_dgv.Rows(i).Cells(25).Value.ToString = "" And

  3180.                        清單6_dgv.Rows(i).Cells(16).Value.ToString = "" And 清單6_dgv.Rows(i).Cells(21).Value.ToString = "" And 清單6_dgv.Rows(i).Cells(26).Value.ToString = "" And

  3181.                        清單6_dgv.Rows(i).Cells(17).Value.ToString = "" And 清單6_dgv.Rows(i).Cells(22).Value.ToString = "" And 清單6_dgv.Rows(i).Cells(27).Value.ToString = "" And

  3182.                        清單6_dgv.Rows(i).Cells(18).Value.ToString = "" And 清單6_dgv.Rows(i).Cells(23).Value.ToString = "" And 清單6_dgv.Rows(i).Cells(28).Value.ToString = "" And

  3183.                        清單6_dgv.Rows(i).Cells(19).Value.ToString = "" And 清單6_dgv.Rows(i).Cells(24).Value.ToString = "" Then : Else : DDF += 1

  3184.                         AAS = "(N'" & 清單6_dgv.Rows(i).Cells(50).Value.ToString & "', N'" & 清單6_dgv.Rows(i).Cells(15).Value.ToString & "', N'" & 清單6_dgv.Rows(i).Cells(16).Value.ToString & "', 

  3185.                         N'" & 清單6_dgv.Rows(i).Cells(17).Value.ToString & "', N'" & 清單6_dgv.Rows(i).Cells(18).Value.ToString & "', N'" & 清單6_dgv.Rows(i).Cells(19).Value.ToString & "', 

  3186.                         N'" & 清單6_dgv.Rows(i).Cells(20).Value.ToString & "', N'" & 清單6_dgv.Rows(i).Cells(21).Value.ToString & "', N'" & 清單6_dgv.Rows(i).Cells(22).Value.ToString & "', 

  3187.                         N'" & 清單6_dgv.Rows(i).Cells(23).Value.ToString & "', N'" & 清單6_dgv.Rows(i).Cells(24).Value.ToString & "', N'" & 清單6_dgv.Rows(i).Cells(25).Value.ToString & "', 

  3188.                         N'" & 清單6_dgv.Rows(i).Cells(26).Value.ToString & "', N'" & 清單6_dgv.Rows(i).Cells(27).Value.ToString & "', N'" & 清單6_dgv.Rows(i).Cells(28).Value.ToString & "', 

  3189.                         N'" & 星36_bt.Text & "')"

  3190.                     End If : If DDF = -1 Then : ElseIf DDF = 0 Then : SQL2 = AAS : Else : SQL2 = SQL2 & "," & AAS : End If

  3191.                 Next : SQL_虛擬考勤明細表新增()

  3192. 

  3193.                 For i As Integer = 0 To 控制表_dgv.Rows.Count - 1

  3194.                     PA = 控制表_dgv.Rows(i).Cells(0).Value : SQL_採購單詢價_控制刪除() : SQL_採購單詢價_明細刪除()

  3195.                 Next : PA = "" : 採購當案牘取()

  3196.             End If

  3197.         End If

  3198.     End Sub

  3199.     Private Sub 考勤表_bt_Click(sender As Object, e As EventArgs) Handles 考勤表_bt.Click

  3200.         清單1_dgv.Columns(12).Visible = True : For i As Integer = 15 To 28 : 清單1_dgv.Columns(i).Visible = True : Next

  3201.         清單1_dgv.Columns(13).Visible = False : For i As Integer = 29 To 48 : 清單1_dgv.Columns(i).Visible = False : Next

  3202. 

  3203.         清單2_dgv.Columns(12).Visible = True : For i As Integer = 15 To 28 : 清單2_dgv.Columns(i).Visible = True : Next

  3204.         清單2_dgv.Columns(13).Visible = False : For i As Integer = 29 To 48 : 清單2_dgv.Columns(i).Visible = False : Next

  3205. 

  3206.         清單3_dgv.Columns(12).Visible = True : For i As Integer = 15 To 28 : 清單3_dgv.Columns(i).Visible = True : Next

  3207.         清單3_dgv.Columns(13).Visible = False : For i As Integer = 29 To 48 : 清單3_dgv.Columns(i).Visible = False : Next

  3208. 

  3209.         清單4_dgv.Columns(12).Visible = True : For i As Integer = 15 To 28 : 清單4_dgv.Columns(i).Visible = True : Next

  3210.         清單4_dgv.Columns(13).Visible = False : For i As Integer = 29 To 48 : 清單4_dgv.Columns(i).Visible = False : Next

  3211. 

  3212.         清單5_dgv.Columns(12).Visible = True : For i As Integer = 15 To 28 : 清單5_dgv.Columns(i).Visible = True : Next

  3213.         清單5_dgv.Columns(13).Visible = False : For i As Integer = 29 To 48 : 清單5_dgv.Columns(i).Visible = False : Next

  3214. 

  3215.         清單6_dgv.Columns(12).Visible = True : For i As Integer = 15 To 28 : 清單6_dgv.Columns(i).Visible = True : Next

  3216.         清單6_dgv.Columns(13).Visible = False : For i As Integer = 29 To 48 : 清單6_dgv.Columns(i).Visible = False : Next

  3217.     End Sub

  3218.     Private Sub 薪資表_bt_Click(sender As Object, e As EventArgs) Handles 薪資表_bt.Click

  3219.         清單1_dgv.Columns(12).Visible = False : For i As Integer = 15 To 28 : 清單1_dgv.Columns(i).Visible = False : Next

  3220.         清單1_dgv.Columns(13).Visible = True : For i As Integer = 29 To 48 : 清單1_dgv.Columns(i).Visible = True : Next

  3221. 

  3222.         清單2_dgv.Columns(12).Visible = False : For i As Integer = 15 To 28 : 清單2_dgv.Columns(i).Visible = False : Next

  3223.         清單2_dgv.Columns(13).Visible = True : For i As Integer = 29 To 48 : 清單2_dgv.Columns(i).Visible = True : Next

  3224. 

  3225.         清單3_dgv.Columns(12).Visible = False : For i As Integer = 15 To 28 : 清單3_dgv.Columns(i).Visible = False : Next

  3226.         清單3_dgv.Columns(13).Visible = True : For i As Integer = 29 To 48 : 清單3_dgv.Columns(i).Visible = True : Next

  3227. 

  3228.         清單4_dgv.Columns(12).Visible = False : For i As Integer = 15 To 28 : 清單4_dgv.Columns(i).Visible = False : Next

  3229.         清單4_dgv.Columns(13).Visible = True : For i As Integer = 29 To 48 : 清單4_dgv.Columns(i).Visible = True : Next

  3230. 

  3231.         清單5_dgv.Columns(12).Visible = False : For i As Integer = 15 To 28 : 清單5_dgv.Columns(i).Visible = False : Next

  3232.         清單5_dgv.Columns(13).Visible = True : For i As Integer = 29 To 48 : 清單5_dgv.Columns(i).Visible = True : Next

  3233. 

  3234.         清單6_dgv.Columns(12).Visible = False : For i As Integer = 15 To 28 : 清單6_dgv.Columns(i).Visible = False : Next

  3235.         清單6_dgv.Columns(13).Visible = True : For i As Integer = 29 To 48 : 清單6_dgv.Columns(i).Visible = True : Next

  3236.     End Sub

  3237.     Private Sub 虛擬存檔_bt_Click(sender As Object, e As EventArgs) Handles 虛擬存檔_bt.Click

  3238.         If 薪資計算_ch.Checked = False And 採購計算_ch.Checked = False Then : MGB(對話框(0), 1) : 虛擬存檔() : 首次開啟 = False : Exit Sub : End If

  3239.         If 薪資計算_ch.Checked = True Then

  3240.             If 群組1_cb.Text <> "HARIAN GROUP" Then : MGB(系統語言字典("H611-110-" & 語言), 1) : 首次開啟 = False : Else

  3241.                 PA25 = 星1_bt.Text : Set_虛擬表() : Dim DDF As Integer

  3242.                 '-------------------------虛擬考勤--------------------------------------------------------------------------------------------------------------------

  3243.                 For i As Integer = 0 To 清單1_dgv.Rows.Count - 1

  3244.                     For ii As Integer = 0 To 虛擬表_dgv.Rows.Count - 1

  3245.                         If 清單1_dgv.Rows(i).Cells(50).Value.ToString = 虛擬表_dgv.Rows(ii).Cells(0).Value.ToString Then

  3246.                             If 月份2_cb.Text <> Strings.Mid(星1_bt.Text, 6, 2) Then

  3247.                                 清單1_dgv.Rows(i).Cells(15).Value = 虛擬表_dgv.Rows(ii).Cells(1).Value.ToString : 清單1_dgv.Rows(i).Cells(16).Value = 虛擬表_dgv.Rows(ii).Cells(2).Value.ToString

  3248.                             End If

  3249.                             If 月份2_cb.Text <> Strings.Mid(星2_bt.Text, 6, 2) Then

  3250.                                 清單1_dgv.Rows(i).Cells(17).Value = 虛擬表_dgv.Rows(ii).Cells(3).Value.ToString : 清單1_dgv.Rows(i).Cells(18).Value = 虛擬表_dgv.Rows(ii).Cells(4).Value.ToString

  3251.                             End If

  3252.                             If 月份2_cb.Text <> Strings.Mid(星3_bt.Text, 6, 2) Then

  3253.                                 清單1_dgv.Rows(i).Cells(19).Value = 虛擬表_dgv.Rows(ii).Cells(5).Value.ToString : 清單1_dgv.Rows(i).Cells(20).Value = 虛擬表_dgv.Rows(ii).Cells(6).Value.ToString

  3254.                             End If

  3255.                             If 月份2_cb.Text <> Strings.Mid(星4_bt.Text, 6, 2) Then

  3256.                                 清單1_dgv.Rows(i).Cells(21).Value = 虛擬表_dgv.Rows(ii).Cells(7).Value.ToString : 清單1_dgv.Rows(i).Cells(22).Value = 虛擬表_dgv.Rows(ii).Cells(8).Value.ToString

  3257.                             End If

  3258.                             If 月份2_cb.Text <> Strings.Mid(星5_bt.Text, 6, 2) Then

  3259.                                 清單1_dgv.Rows(i).Cells(23).Value = 虛擬表_dgv.Rows(ii).Cells(9).Value.ToString : 清單1_dgv.Rows(i).Cells(24).Value = 虛擬表_dgv.Rows(ii).Cells(10).Value.ToString

  3260.                             End If

  3261.                             If 月份2_cb.Text <> Strings.Mid(星6_bt.Text, 6, 2) Then

  3262.                                 清單1_dgv.Rows(i).Cells(25).Value = 虛擬表_dgv.Rows(ii).Cells(11).Value.ToString : 清單1_dgv.Rows(i).Cells(26).Value = 虛擬表_dgv.Rows(ii).Cells(12).Value.ToString

  3263.                             End If

  3264.                             If 月份2_cb.Text <> Strings.Mid(星7_bt.Text, 6, 2) Then

  3265.                                 清單1_dgv.Rows(i).Cells(27).Value = 虛擬表_dgv.Rows(ii).Cells(13).Value.ToString : 清單1_dgv.Rows(i).Cells(28).Value = 虛擬表_dgv.Rows(ii).Cells(14).Value.ToString

  3266.                             End If

  3267.                         End If

  3268.                     Next

  3269.                 Next : AUTO第1周()

  3270.                 Dim 可以存檔 As Boolean = False

  3271.                 For i As Integer = 0 To 清單1_dgv.Rows.Count - 1

  3272.                     If 清單1_dgv.Rows(i).Cells(15).Value.ToString = "" And 清單1_dgv.Rows(i).Cells(20).Value.ToString = "" And 清單1_dgv.Rows(i).Cells(25).Value.ToString = "" And

  3273.                    清單1_dgv.Rows(i).Cells(16).Value.ToString = "" And 清單1_dgv.Rows(i).Cells(21).Value.ToString = "" And 清單1_dgv.Rows(i).Cells(26).Value.ToString = "" And

  3274.                    清單1_dgv.Rows(i).Cells(17).Value.ToString = "" And 清單1_dgv.Rows(i).Cells(22).Value.ToString = "" And 清單1_dgv.Rows(i).Cells(27).Value.ToString = "" And

  3275.                    清單1_dgv.Rows(i).Cells(18).Value.ToString = "" And 清單1_dgv.Rows(i).Cells(23).Value.ToString = "" And 清單1_dgv.Rows(i).Cells(28).Value.ToString = "" And

  3276.                    清單1_dgv.Rows(i).Cells(19).Value.ToString = "" And 清單1_dgv.Rows(i).Cells(24).Value.ToString = "" Then : Else : 可以存檔 = True : End If

  3277.                 Next

  3278.                 If 可以存檔 = True Then

  3279.                     Dim AAS As String = "" : PA45 = 星1_bt.Text : SQL_虛擬考勤明細表刪除() : DDF = -1

  3280.                     For i As Integer = 0 To 清單1_dgv.Rows.Count - 1

  3281.                         If 清單1_dgv.Rows(i).Cells(15).Value.ToString = "" And 清單1_dgv.Rows(i).Cells(20).Value.ToString = "" And 清單1_dgv.Rows(i).Cells(25).Value.ToString = "" And

  3282.                        清單1_dgv.Rows(i).Cells(16).Value.ToString = "" And 清單1_dgv.Rows(i).Cells(21).Value.ToString = "" And 清單1_dgv.Rows(i).Cells(26).Value.ToString = "" And

  3283.                        清單1_dgv.Rows(i).Cells(17).Value.ToString = "" And 清單1_dgv.Rows(i).Cells(22).Value.ToString = "" And 清單1_dgv.Rows(i).Cells(27).Value.ToString = "" And

  3284.                        清單1_dgv.Rows(i).Cells(18).Value.ToString = "" And 清單1_dgv.Rows(i).Cells(23).Value.ToString = "" And 清單1_dgv.Rows(i).Cells(28).Value.ToString = "" And

  3285.                        清單1_dgv.Rows(i).Cells(19).Value.ToString = "" And 清單1_dgv.Rows(i).Cells(24).Value.ToString = "" Then : Else : DDF += 1

  3286.                             AAS = "(N'" & 清單1_dgv.Rows(i).Cells(50).Value.ToString & "', N'" & 清單1_dgv.Rows(i).Cells(15).Value.ToString & "', N'" & 清單1_dgv.Rows(i).Cells(16).Value.ToString & "', 

  3287.                         N'" & 清單1_dgv.Rows(i).Cells(17).Value.ToString & "', N'" & 清單1_dgv.Rows(i).Cells(18).Value.ToString & "', N'" & 清單1_dgv.Rows(i).Cells(19).Value.ToString & "', 

  3288.                         N'" & 清單1_dgv.Rows(i).Cells(20).Value.ToString & "', N'" & 清單1_dgv.Rows(i).Cells(21).Value.ToString & "', N'" & 清單1_dgv.Rows(i).Cells(22).Value.ToString & "', 

  3289.                         N'" & 清單1_dgv.Rows(i).Cells(23).Value.ToString & "', N'" & 清單1_dgv.Rows(i).Cells(24).Value.ToString & "', N'" & 清單1_dgv.Rows(i).Cells(25).Value.ToString & "', 

  3290.                         N'" & 清單1_dgv.Rows(i).Cells(26).Value.ToString & "', N'" & 清單1_dgv.Rows(i).Cells(27).Value.ToString & "', N'" & 清單1_dgv.Rows(i).Cells(28).Value.ToString & "', 

  3291.                         N'" & 星1_bt.Text & "')"

  3292.                         End If : If DDF = -1 Then : ElseIf DDF = 0 Then : SQL2 = AAS : Else : SQL2 = SQL2 & "," & AAS : End If

  3293.                     Next

  3294.                     SQL_虛擬考勤明細表新增()

  3295.                 End If : 可以存檔 = False

  3296.                 For i As Integer = 0 To 清單2_dgv.Rows.Count - 1

  3297.                     If 清單2_dgv.Rows(i).Cells(15).Value.ToString = "" And 清單2_dgv.Rows(i).Cells(20).Value.ToString = "" And 清單2_dgv.Rows(i).Cells(25).Value.ToString = "" And

  3298.                    清單2_dgv.Rows(i).Cells(16).Value.ToString = "" And 清單2_dgv.Rows(i).Cells(21).Value.ToString = "" And 清單2_dgv.Rows(i).Cells(26).Value.ToString = "" And

  3299.                    清單2_dgv.Rows(i).Cells(17).Value.ToString = "" And 清單2_dgv.Rows(i).Cells(22).Value.ToString = "" And 清單2_dgv.Rows(i).Cells(27).Value.ToString = "" And

  3300.                    清單2_dgv.Rows(i).Cells(18).Value.ToString = "" And 清單2_dgv.Rows(i).Cells(23).Value.ToString = "" And 清單2_dgv.Rows(i).Cells(28).Value.ToString = "" And

  3301.                    清單2_dgv.Rows(i).Cells(19).Value.ToString = "" And 清單2_dgv.Rows(i).Cells(24).Value.ToString = "" Then : Else : 可以存檔 = True : End If

  3302.                 Next

  3303.                 If 可以存檔 = True Then

  3304.                     Dim AAS As String = "" : PA45 = 星8_bt.Text : SQL_虛擬考勤明細表刪除() : DDF = -1

  3305.                     For i As Integer = 0 To 清單2_dgv.Rows.Count - 1

  3306.                         If 清單2_dgv.Rows(i).Cells(15).Value.ToString = "" And 清單2_dgv.Rows(i).Cells(20).Value.ToString = "" And 清單2_dgv.Rows(i).Cells(25).Value.ToString = "" And

  3307.                        清單2_dgv.Rows(i).Cells(16).Value.ToString = "" And 清單2_dgv.Rows(i).Cells(21).Value.ToString = "" And 清單2_dgv.Rows(i).Cells(26).Value.ToString = "" And

  3308.                        清單2_dgv.Rows(i).Cells(17).Value.ToString = "" And 清單2_dgv.Rows(i).Cells(22).Value.ToString = "" And 清單2_dgv.Rows(i).Cells(27).Value.ToString = "" And

  3309.                        清單2_dgv.Rows(i).Cells(18).Value.ToString = "" And 清單2_dgv.Rows(i).Cells(23).Value.ToString = "" And 清單2_dgv.Rows(i).Cells(28).Value.ToString = "" And

  3310.                        清單2_dgv.Rows(i).Cells(19).Value.ToString = "" And 清單2_dgv.Rows(i).Cells(24).Value.ToString = "" Then : Else : DDF += 1

  3311.                             AAS = "(N'" & 清單2_dgv.Rows(i).Cells(50).Value.ToString & "', N'" & 清單2_dgv.Rows(i).Cells(15).Value.ToString & "', N'" & 清單2_dgv.Rows(i).Cells(16).Value.ToString & "', 

  3312.                         N'" & 清單2_dgv.Rows(i).Cells(17).Value.ToString & "', N'" & 清單2_dgv.Rows(i).Cells(18).Value.ToString & "', N'" & 清單2_dgv.Rows(i).Cells(19).Value.ToString & "', 

  3313.                         N'" & 清單2_dgv.Rows(i).Cells(20).Value.ToString & "', N'" & 清單2_dgv.Rows(i).Cells(21).Value.ToString & "', N'" & 清單2_dgv.Rows(i).Cells(22).Value.ToString & "', 

  3314.                         N'" & 清單2_dgv.Rows(i).Cells(23).Value.ToString & "', N'" & 清單2_dgv.Rows(i).Cells(24).Value.ToString & "', N'" & 清單2_dgv.Rows(i).Cells(25).Value.ToString & "', 

  3315.                         N'" & 清單2_dgv.Rows(i).Cells(26).Value.ToString & "', N'" & 清單2_dgv.Rows(i).Cells(27).Value.ToString & "', N'" & 清單2_dgv.Rows(i).Cells(28).Value.ToString & "', 

  3316.                         N'" & 星8_bt.Text & "')"

  3317.                         End If : If DDF = -1 Then : ElseIf DDF = 0 Then : SQL2 = AAS : Else : SQL2 = SQL2 & "," & AAS : End If

  3318.                     Next

  3319.                     SQL_虛擬考勤明細表新增()

  3320.                 End If : 可以存檔 = False

  3321.                 For i As Integer = 0 To 清單3_dgv.Rows.Count - 1

  3322.                     If 清單3_dgv.Rows(i).Cells(15).Value.ToString = "" And 清單3_dgv.Rows(i).Cells(20).Value.ToString = "" And 清單3_dgv.Rows(i).Cells(25).Value.ToString = "" And

  3323.                    清單3_dgv.Rows(i).Cells(16).Value.ToString = "" And 清單3_dgv.Rows(i).Cells(21).Value.ToString = "" And 清單3_dgv.Rows(i).Cells(26).Value.ToString = "" And

  3324.                    清單3_dgv.Rows(i).Cells(17).Value.ToString = "" And 清單3_dgv.Rows(i).Cells(22).Value.ToString = "" And 清單3_dgv.Rows(i).Cells(27).Value.ToString = "" And

  3325.                    清單3_dgv.Rows(i).Cells(18).Value.ToString = "" And 清單3_dgv.Rows(i).Cells(23).Value.ToString = "" And 清單3_dgv.Rows(i).Cells(28).Value.ToString = "" And

  3326.                    清單3_dgv.Rows(i).Cells(19).Value.ToString = "" And 清單3_dgv.Rows(i).Cells(24).Value.ToString = "" Then : Else : 可以存檔 = True : End If

  3327.                 Next

  3328.                 If 可以存檔 = True Then

  3329.                     Dim AAS As String = "" : PA45 = 星15_bt.Text : SQL_虛擬考勤明細表刪除() : DDF = -1

  3330.                     For i As Integer = 0 To 清單3_dgv.Rows.Count - 1

  3331.                         If 清單3_dgv.Rows(i).Cells(15).Value.ToString = "" And 清單3_dgv.Rows(i).Cells(20).Value.ToString = "" And 清單3_dgv.Rows(i).Cells(25).Value.ToString = "" And

  3332.                        清單3_dgv.Rows(i).Cells(16).Value.ToString = "" And 清單3_dgv.Rows(i).Cells(21).Value.ToString = "" And 清單3_dgv.Rows(i).Cells(26).Value.ToString = "" And

  3333.                        清單3_dgv.Rows(i).Cells(17).Value.ToString = "" And 清單3_dgv.Rows(i).Cells(22).Value.ToString = "" And 清單3_dgv.Rows(i).Cells(27).Value.ToString = "" And

  3334.                        清單3_dgv.Rows(i).Cells(18).Value.ToString = "" And 清單3_dgv.Rows(i).Cells(23).Value.ToString = "" And 清單3_dgv.Rows(i).Cells(28).Value.ToString = "" And

  3335.                        清單3_dgv.Rows(i).Cells(19).Value.ToString = "" And 清單3_dgv.Rows(i).Cells(24).Value.ToString = "" Then : Else : DDF += 1

  3336.                             AAS = "(N'" & 清單3_dgv.Rows(i).Cells(50).Value.ToString & "', N'" & 清單3_dgv.Rows(i).Cells(15).Value.ToString & "', N'" & 清單3_dgv.Rows(i).Cells(16).Value.ToString & "', 

  3337.                         N'" & 清單3_dgv.Rows(i).Cells(17).Value.ToString & "', N'" & 清單3_dgv.Rows(i).Cells(18).Value.ToString & "', N'" & 清單3_dgv.Rows(i).Cells(19).Value.ToString & "', 

  3338.                         N'" & 清單3_dgv.Rows(i).Cells(20).Value.ToString & "', N'" & 清單3_dgv.Rows(i).Cells(21).Value.ToString & "', N'" & 清單3_dgv.Rows(i).Cells(22).Value.ToString & "', 

  3339.                         N'" & 清單3_dgv.Rows(i).Cells(23).Value.ToString & "', N'" & 清單3_dgv.Rows(i).Cells(24).Value.ToString & "', N'" & 清單3_dgv.Rows(i).Cells(25).Value.ToString & "', 

  3340.                         N'" & 清單3_dgv.Rows(i).Cells(26).Value.ToString & "', N'" & 清單3_dgv.Rows(i).Cells(27).Value.ToString & "', N'" & 清單3_dgv.Rows(i).Cells(28).Value.ToString & "', 

  3341.                         N'" & 星15_bt.Text & "')"

  3342.                         End If : If DDF = -1 Then : ElseIf DDF = 0 Then : SQL2 = AAS : Else : SQL2 = SQL2 & "," & AAS : End If

  3343.                     Next

  3344.                     SQL_虛擬考勤明細表新增()

  3345.                 End If : 可以存檔 = False

  3346.                 For i As Integer = 0 To 清單4_dgv.Rows.Count - 1

  3347.                     If 清單4_dgv.Rows(i).Cells(15).Value.ToString = "" And 清單4_dgv.Rows(i).Cells(20).Value.ToString = "" And 清單4_dgv.Rows(i).Cells(25).Value.ToString = "" And

  3348.                    清單4_dgv.Rows(i).Cells(16).Value.ToString = "" And 清單4_dgv.Rows(i).Cells(21).Value.ToString = "" And 清單4_dgv.Rows(i).Cells(26).Value.ToString = "" And

  3349.                    清單4_dgv.Rows(i).Cells(17).Value.ToString = "" And 清單4_dgv.Rows(i).Cells(22).Value.ToString = "" And 清單4_dgv.Rows(i).Cells(27).Value.ToString = "" And

  3350.                    清單4_dgv.Rows(i).Cells(18).Value.ToString = "" And 清單4_dgv.Rows(i).Cells(23).Value.ToString = "" And 清單4_dgv.Rows(i).Cells(28).Value.ToString = "" And

  3351.                    清單4_dgv.Rows(i).Cells(19).Value.ToString = "" And 清單4_dgv.Rows(i).Cells(24).Value.ToString = "" Then : Else : 可以存檔 = True : End If

  3352.                 Next

  3353.                 If 可以存檔 = True Then

  3354.                     Dim AAS As String = "" : PA45 = 星22_bt.Text : SQL_虛擬考勤明細表刪除() : DDF = -1

  3355.                     For i As Integer = 0 To 清單4_dgv.Rows.Count - 1

  3356.                         If 清單4_dgv.Rows(i).Cells(15).Value.ToString = "" And 清單4_dgv.Rows(i).Cells(20).Value.ToString = "" And 清單4_dgv.Rows(i).Cells(25).Value.ToString = "" And

  3357.                        清單4_dgv.Rows(i).Cells(16).Value.ToString = "" And 清單4_dgv.Rows(i).Cells(21).Value.ToString = "" And 清單4_dgv.Rows(i).Cells(26).Value.ToString = "" And

  3358.                        清單4_dgv.Rows(i).Cells(17).Value.ToString = "" And 清單4_dgv.Rows(i).Cells(22).Value.ToString = "" And 清單4_dgv.Rows(i).Cells(27).Value.ToString = "" And

  3359.                        清單4_dgv.Rows(i).Cells(18).Value.ToString = "" And 清單4_dgv.Rows(i).Cells(23).Value.ToString = "" And 清單4_dgv.Rows(i).Cells(28).Value.ToString = "" And

  3360.                        清單4_dgv.Rows(i).Cells(19).Value.ToString = "" And 清單4_dgv.Rows(i).Cells(24).Value.ToString = "" Then : Else : DDF += 1

  3361.                             AAS = "(N'" & 清單4_dgv.Rows(i).Cells(50).Value.ToString & "', N'" & 清單4_dgv.Rows(i).Cells(15).Value.ToString & "', N'" & 清單4_dgv.Rows(i).Cells(16).Value.ToString & "', 

  3362.                         N'" & 清單4_dgv.Rows(i).Cells(17).Value.ToString & "', N'" & 清單4_dgv.Rows(i).Cells(18).Value.ToString & "', N'" & 清單4_dgv.Rows(i).Cells(19).Value.ToString & "', 

  3363.                         N'" & 清單4_dgv.Rows(i).Cells(20).Value.ToString & "', N'" & 清單4_dgv.Rows(i).Cells(21).Value.ToString & "', N'" & 清單4_dgv.Rows(i).Cells(22).Value.ToString & "', 

  3364.                         N'" & 清單4_dgv.Rows(i).Cells(23).Value.ToString & "', N'" & 清單4_dgv.Rows(i).Cells(24).Value.ToString & "', N'" & 清單4_dgv.Rows(i).Cells(25).Value.ToString & "', 

  3365.                         N'" & 清單4_dgv.Rows(i).Cells(26).Value.ToString & "', N'" & 清單4_dgv.Rows(i).Cells(27).Value.ToString & "', N'" & 清單4_dgv.Rows(i).Cells(28).Value.ToString & "', 

  3366.                         N'" & 星22_bt.Text & "')"

  3367.                         End If : If DDF = -1 Then : ElseIf DDF = 0 Then : SQL2 = AAS : Else : SQL2 = SQL2 & "," & AAS : End If

  3368.                     Next

  3369.                     SQL_虛擬考勤明細表新增()

  3370.                 End If : 可以存檔 = False

  3371.                 For i As Integer = 0 To 清單5_dgv.Rows.Count - 1

  3372.                     If 清單5_dgv.Rows(i).Cells(15).Value.ToString = "" And 清單5_dgv.Rows(i).Cells(20).Value.ToString = "" And 清單5_dgv.Rows(i).Cells(25).Value.ToString = "" And

  3373.                    清單5_dgv.Rows(i).Cells(16).Value.ToString = "" And 清單5_dgv.Rows(i).Cells(21).Value.ToString = "" And 清單5_dgv.Rows(i).Cells(26).Value.ToString = "" And

  3374.                    清單5_dgv.Rows(i).Cells(17).Value.ToString = "" And 清單5_dgv.Rows(i).Cells(22).Value.ToString = "" And 清單5_dgv.Rows(i).Cells(27).Value.ToString = "" And

  3375.                    清單5_dgv.Rows(i).Cells(18).Value.ToString = "" And 清單5_dgv.Rows(i).Cells(23).Value.ToString = "" And 清單5_dgv.Rows(i).Cells(28).Value.ToString = "" And

  3376.                    清單5_dgv.Rows(i).Cells(19).Value.ToString = "" And 清單5_dgv.Rows(i).Cells(24).Value.ToString = "" Then : Else : 可以存檔 = True : End If

  3377.                 Next

  3378.                 If 可以存檔 = True Then

  3379.                     Dim AAS As String = "" : PA45 = 星29_bt.Text : SQL_虛擬考勤明細表刪除() : DDF = -1

  3380.                     For i As Integer = 0 To 清單5_dgv.Rows.Count - 1

  3381.                         If 清單5_dgv.Rows(i).Cells(15).Value.ToString = "" And 清單5_dgv.Rows(i).Cells(20).Value.ToString = "" And 清單5_dgv.Rows(i).Cells(25).Value.ToString = "" And

  3382.                        清單5_dgv.Rows(i).Cells(16).Value.ToString = "" And 清單5_dgv.Rows(i).Cells(21).Value.ToString = "" And 清單5_dgv.Rows(i).Cells(26).Value.ToString = "" And

  3383.                        清單5_dgv.Rows(i).Cells(17).Value.ToString = "" And 清單5_dgv.Rows(i).Cells(22).Value.ToString = "" And 清單5_dgv.Rows(i).Cells(27).Value.ToString = "" And

  3384.                        清單5_dgv.Rows(i).Cells(18).Value.ToString = "" And 清單5_dgv.Rows(i).Cells(23).Value.ToString = "" And 清單5_dgv.Rows(i).Cells(28).Value.ToString = "" And

  3385.                        清單5_dgv.Rows(i).Cells(19).Value.ToString = "" And 清單5_dgv.Rows(i).Cells(24).Value.ToString = "" Then : Else : DDF += 1

  3386.                             AAS = "(N'" & 清單5_dgv.Rows(i).Cells(50).Value.ToString & "', N'" & 清單5_dgv.Rows(i).Cells(15).Value.ToString & "', N'" & 清單5_dgv.Rows(i).Cells(16).Value.ToString & "', 

  3387.                         N'" & 清單5_dgv.Rows(i).Cells(17).Value.ToString & "', N'" & 清單5_dgv.Rows(i).Cells(18).Value.ToString & "', N'" & 清單5_dgv.Rows(i).Cells(19).Value.ToString & "', 

  3388.                         N'" & 清單5_dgv.Rows(i).Cells(20).Value.ToString & "', N'" & 清單5_dgv.Rows(i).Cells(21).Value.ToString & "', N'" & 清單5_dgv.Rows(i).Cells(22).Value.ToString & "', 

  3389.                         N'" & 清單5_dgv.Rows(i).Cells(23).Value.ToString & "', N'" & 清單5_dgv.Rows(i).Cells(24).Value.ToString & "', N'" & 清單5_dgv.Rows(i).Cells(25).Value.ToString & "', 

  3390.                         N'" & 清單5_dgv.Rows(i).Cells(26).Value.ToString & "', N'" & 清單5_dgv.Rows(i).Cells(27).Value.ToString & "', N'" & 清單5_dgv.Rows(i).Cells(28).Value.ToString & "', 

  3391.                         N'" & 星29_bt.Text & "')"

  3392.                         End If : If DDF = -1 Then : ElseIf DDF = 0 Then : SQL2 = AAS : Else : SQL2 = SQL2 & "," & AAS : End If

  3393.                     Next

  3394.                     SQL_虛擬考勤明細表新增()

  3395.                 End If : 可以存檔 = False

  3396.                 For i As Integer = 0 To 清單6_dgv.Rows.Count - 1

  3397.                     If 清單6_dgv.Rows(i).Cells(15).Value.ToString = "" And 清單6_dgv.Rows(i).Cells(20).Value.ToString = "" And 清單6_dgv.Rows(i).Cells(25).Value.ToString = "" And

  3398.                    清單6_dgv.Rows(i).Cells(16).Value.ToString = "" And 清單6_dgv.Rows(i).Cells(21).Value.ToString = "" And 清單6_dgv.Rows(i).Cells(26).Value.ToString = "" And

  3399.                    清單6_dgv.Rows(i).Cells(17).Value.ToString = "" And 清單6_dgv.Rows(i).Cells(22).Value.ToString = "" And 清單6_dgv.Rows(i).Cells(27).Value.ToString = "" And

  3400.                    清單6_dgv.Rows(i).Cells(18).Value.ToString = "" And 清單6_dgv.Rows(i).Cells(23).Value.ToString = "" And 清單6_dgv.Rows(i).Cells(28).Value.ToString = "" And

  3401.                    清單6_dgv.Rows(i).Cells(19).Value.ToString = "" And 清單6_dgv.Rows(i).Cells(24).Value.ToString = "" Then : Else : 可以存檔 = True : End If

  3402.                 Next

  3403.                 If 可以存檔 = True Then

  3404.                     Dim AAS As String = "" : PA45 = 星36_bt.Text : SQL_虛擬考勤明細表刪除() : DDF = -1

  3405.                     For i As Integer = 0 To 清單6_dgv.Rows.Count - 1

  3406.                         If 清單6_dgv.Rows(i).Cells(15).Value.ToString = "" And 清單6_dgv.Rows(i).Cells(20).Value.ToString = "" And 清單6_dgv.Rows(i).Cells(25).Value.ToString = "" And

  3407.                        清單6_dgv.Rows(i).Cells(16).Value.ToString = "" And 清單6_dgv.Rows(i).Cells(21).Value.ToString = "" And 清單6_dgv.Rows(i).Cells(26).Value.ToString = "" And

  3408.                        清單6_dgv.Rows(i).Cells(17).Value.ToString = "" And 清單6_dgv.Rows(i).Cells(22).Value.ToString = "" And 清單6_dgv.Rows(i).Cells(27).Value.ToString = "" And

  3409.                        清單6_dgv.Rows(i).Cells(18).Value.ToString = "" And 清單6_dgv.Rows(i).Cells(23).Value.ToString = "" And 清單6_dgv.Rows(i).Cells(28).Value.ToString = "" And

  3410.                        清單6_dgv.Rows(i).Cells(19).Value.ToString = "" And 清單6_dgv.Rows(i).Cells(24).Value.ToString = "" Then : Else : DDF += 1

  3411.                             AAS = "(N'" & 清單6_dgv.Rows(i).Cells(50).Value.ToString & "', N'" & 清單6_dgv.Rows(i).Cells(15).Value.ToString & "', N'" & 清單6_dgv.Rows(i).Cells(16).Value.ToString & "', 

  3412.                         N'" & 清單6_dgv.Rows(i).Cells(17).Value.ToString & "', N'" & 清單6_dgv.Rows(i).Cells(18).Value.ToString & "', N'" & 清單6_dgv.Rows(i).Cells(19).Value.ToString & "', 

  3413.                         N'" & 清單6_dgv.Rows(i).Cells(20).Value.ToString & "', N'" & 清單6_dgv.Rows(i).Cells(21).Value.ToString & "', N'" & 清單6_dgv.Rows(i).Cells(22).Value.ToString & "', 

  3414.                         N'" & 清單6_dgv.Rows(i).Cells(23).Value.ToString & "', N'" & 清單6_dgv.Rows(i).Cells(24).Value.ToString & "', N'" & 清單6_dgv.Rows(i).Cells(25).Value.ToString & "', 

  3415.                         N'" & 清單6_dgv.Rows(i).Cells(26).Value.ToString & "', N'" & 清單6_dgv.Rows(i).Cells(27).Value.ToString & "', N'" & 清單6_dgv.Rows(i).Cells(28).Value.ToString & "', 

  3416.                         N'" & 星36_bt.Text & "')"

  3417.                         End If : If DDF = -1 Then : ElseIf DDF = 0 Then : SQL2 = AAS : Else : SQL2 = SQL2 & "," & AAS : End If

  3418.                     Next

  3419.                     SQL_虛擬考勤明細表新增()

  3420.                 End If

  3421.                 Dim HGF As Integer = 沖帳金額_nud.Value

  3422.                 Set_使用者清單() : 沖帳金額_nud.Value = HGF

  3423.             End If

  3424.         End If

  3425.         If 採購計算_ch.Checked = True Then

  3426.             Dim AAS As String : Dim DDF As Integer : DDF = -1

  3427.             For i As Integer = 0 To 控制表_dgv.Rows.Count - 1

  3428.                 If 控制表_dgv.Rows(i).Cells(0).Value.ToString <> "" Then : DDF += 1

  3429.                     AAS = "(N'" & 控制表_dgv.Rows(i).Cells(0).Value.ToString & "', N'" & 控制表_dgv.Rows(i).Cells(1).Value.ToString & "', N'" & 控制表_dgv.Rows(i).Cells(2).Value.ToString & "', 

  3430.                             N'" & 控制表_dgv.Rows(i).Cells(3).Value.ToString & "', N'" & 控制表_dgv.Rows(i).Cells(4).Value.ToString & "', N'" & 控制表_dgv.Rows(i).Cells(5).Value.ToString & "', 

  3431.                             N'" & 控制表_dgv.Rows(i).Cells(6).Value.ToString & "', N'" & 控制表_dgv.Rows(i).Cells(7).Value.ToString & "', N'" & 控制表_dgv.Rows(i).Cells(8).Value.ToString & "', 

  3432.                             N'" & 控制表_dgv.Rows(i).Cells(9).Value.ToString & "', N'" & 控制表_dgv.Rows(i).Cells(10).Value.ToString & "', N'" & 控制表_dgv.Rows(i).Cells(11).Value.ToString & "', 

  3433.                             N'" & 控制表_dgv.Rows(i).Cells(12).Value.ToString & "', N'" & 控制表_dgv.Rows(i).Cells(13).Value.ToString & "', N'" & 控制表_dgv.Rows(i).Cells(14).Value.ToString & "', 

  3434.                             N'" & 控制表_dgv.Rows(i).Cells(15).Value.ToString & "', N'" & 控制表_dgv.Rows(i).Cells(16).Value.ToString & "', N'" & 控制表_dgv.Rows(i).Cells(17).Value.ToString & "',

  3435.                             N'" & 控制表_dgv.Rows(i).Cells(18).Value.ToString & "', N'" & 控制表_dgv.Rows(i).Cells(19).Value.ToString & "', N'" & 控制表_dgv.Rows(i).Cells(20).Value.ToString & "',

  3436.                             N'" & 控制表_dgv.Rows(i).Cells(21).Value.ToString & "', N'" & 控制表_dgv.Rows(i).Cells(22).Value.ToString & "', N'" & 控制表_dgv.Rows(i).Cells(23).Value.ToString & "',

  3437.                             N'" & 控制表_dgv.Rows(i).Cells(24).Value.ToString & "', N'" & 控制表_dgv.Rows(i).Cells(25).Value.ToString & "', N'True')"

  3438.                     If DDF = -1 Then : ElseIf DDF = 0 Then : SQL2 = AAS : Else : SQL2 = SQL2 & "," & AAS : End If

  3439.                 End If

  3440.             Next : SQL_虛擬採購控制表新增()

  3441.             DDF = -1

  3442.             For i As Integer = 0 To 明細表_dgv.Rows.Count - 1

  3443.                 If 明細表_dgv.Rows(i).Cells(0).Value.ToString <> "" Then : DDF += 1

  3444.                     AAS = "(N'" & 明細表_dgv.Rows(i).Cells(0).Value.ToString & "', N'" & 明細表_dgv.Rows(i).Cells(1).Value.ToString & "', N'" & 明細表_dgv.Rows(i).Cells(2).Value.ToString & "', 

  3445.                             N'" & 明細表_dgv.Rows(i).Cells(3).Value.ToString & "', N'" & 明細表_dgv.Rows(i).Cells(4).Value.ToString & "', N'" & 明細表_dgv.Rows(i).Cells(5).Value.ToString & "', 

  3446.                             N'" & 明細表_dgv.Rows(i).Cells(6).Value.ToString & "', N'" & 明細表_dgv.Rows(i).Cells(7).Value.ToString & "', N'" & 明細表_dgv.Rows(i).Cells(8).Value.ToString & "', 

  3447.                             N'" & 明細表_dgv.Rows(i).Cells(9).Value.ToString & "', N'" & 明細表_dgv.Rows(i).Cells(10).Value.ToString & "', N'" & 明細表_dgv.Rows(i).Cells(11).Value.ToString & "', 

  3448.                             N'" & 明細表_dgv.Rows(i).Cells(12).Value.ToString & "', N'" & 明細表_dgv.Rows(i).Cells(13).Value.ToString & "', N'" & 明細表_dgv.Rows(i).Cells(14).Value.ToString & "', 

  3449.                             N'" & 明細表_dgv.Rows(i).Cells(15).Value.ToString & "', N'" & 明細表_dgv.Rows(i).Cells(16).Value.ToString & "')"

  3450.                     If DDF = -1 Then : ElseIf DDF = 0 Then : SQL2 = AAS : Else : SQL2 = SQL2 & "," & AAS : End If

  3451.                 End If

  3452.             Next : SQL_虛擬採購明細表新增()

  3453.         End If : 虛擬存檔()

  3454.         MGB(系統語言字典("H509-126-" & 語言), 1) : 首次開啟 = False

  3455.     End Sub

  3456.     Private Sub 虛擬存檔()

  3457.         PA = 年份2_cb.Text & 月份2_cb.Text : PA1 = 取得總數2_nud.Value : SQL_財務零用金紀錄_查詢()

  3458.         If dr.Read Then : SQL_財務零用金紀錄_修改() : Else : SQL_財務零用金紀錄_新增() : End If

  3459.     End Sub

  3460. End Class