Option Explicit '乙欄適用源泉所得税計算クラス 'プロパティの実体 Private mdblZei As Double '税額 Public Property Get Zei() As Double Zei = mdblZei End Property Public Property Let Zei(ByVal dblZei As Double) mdblZei = dblZei End Property Public Sub CalculateZei(ByVal lngKazei As Long) '引数[lngKazei]：課税給与額 Const dblZeiritu1 As Double = 0.05 '87000円未満 Const dblZeiritu2 As Double = 0.35 '1130000円超 Const dblTeigaku As Double = 1130000 '1130000円超の計算基礎額 Const dblTeigakuZei As Double = 392800 '1130000円超の計算基礎税額 Select Case lngKazei Case Is < 87000 mdblZei = CDbl(Int(lngKazei * dblZeiritu1 / 100) * 100) Case lngKazei = 87000 To 90999 mdblZei = CDbl(4900) Case lngKazei = 91000 To 91999 mdblZei = CDbl(5000) Case lngKazei = 92000 To 93999 mdblZei = CDbl(5100) Case lngKazei = 94000 To 94999 mdblZei = CDbl(5200) Case lngKazei = 95000 To 96999 mdblZei = CDbl(5300) Case lngKazei = 97000 To 97888 mdblZei = CDbl(5400) Case lngKazei = 98000 To 100999 mdblZei = CDbl(5500) Case lngKazei = 101000 To 102999 mdblZei = CDbl(5700) Case lngKazei = 103000 To 104999 mdblZei = CDbl(5800) Case lngKazei = 105000 To 106999 mdblZei = CDbl(5900) Case lngKazei = 107000 To 108999 mdblZei = CDbl(6000) Case lngKazei = 109000 To 110999 mdblZei = CDbl(6100) Case lngKazei = 111000 To 112999 mdblZei = CDbl(6200) Case lngKazei = 113000 To 114999 mdblZei = CDbl(6300) Case lngKazei = 115000 To 116999 mdblZei = CDbl(6400) Case lngKazei = 117000 To 118999 mdblZei = CDbl(6600) Case lngKazei = 119000 To 120999 mdblZei = CDbl(6700) Case lngKazei = 121000 To 122999 mdblZei = CDbl(6800) Case lngKazei = 123000 To 124999 mdblZei = CDbl(6900) Case lngKazei = 125000 To 126999 mdblZei = CDbl(7100) Case lngKazei = 127000 To 128999 mdblZei = CDbl(7300) Case lngKazei = 129000 To 130999 mdblZei = CDbl(7400) Case lngKazei = 131000 To 132999 mdblZei = CDbl(7600) Case lngKazei = 133000 To 134999 mdblZei = CDbl(7700) Case lngKazei = 135000 To 136999 mdblZei = CDbl(7900) Case lngKazei = 137000 To 138999 mdblZei = CDbl(8000) Case lngKazei = 139000 To 140999 mdblZei = CDbl(8200) Case lngKazei = 141000 To 142999 mdblZei = CDbl(8300) Case lngKazei = 143000 To 144999 mdblZei = CDbl(8500) Case lngKazei = 145000 To 146999 mdblZei = CDbl(8600) Case lngKazei = 147000 To 148999 mdblZei = CDbl(8800) Case lngKazei = 149000 To 150999 mdblZei = CDbl(8900) Case lngKazei = 151000 To 152999 mdblZei = CDbl(9100) Case lngKazei = 153000 To 154999 mdblZei = CDbl(9200) Case lngKazei = 155000 To 156999 mdblZei = CDbl(9400) Case lngKazei = 157000 To 158999 mdblZei = CDbl(9500) Case lngKazei = 159000 To 160999 mdblZei = CDbl(9700) Case lngKazei = 161000 To 162999 mdblZei = CDbl(9800) Case lngKazei = 163000 To 164999 mdblZei = CDbl(10000) Case lngKazei = 165000 To 166999 mdblZei = CDbl(10100) Case lngKazei = 167000 To 168999 mdblZei = CDbl(10300) Case lngKazei = 169000 To 170999 mdblZei = CDbl(10400) Case lngKazei = 171000 To 172999 mdblZei = CDbl(10600) Case lngKazei = 173000 To 174999 mdblZei = CDbl(10700) Case lngKazei = 175000 To 176999 mdblZei = CDbl(10900) Case lngKazei = 177000 To 178999 mdblZei = CDbl(11200) Case lngKazei = 179000 To 180999 mdblZei = CDbl(11700) Case lngKazei = 181000 To 182999 mdblZei = CDbl(12200) Case lngKazei = 183000 To 184999 mdblZei = CDbl(12700) Case lngKazei = 185000 To 186999 mdblZei = CDbl(13100) Case lngKazei = 187000 To 188999 mdblZei = CDbl(13600) Case lngKazei = 189000 To 190999 mdblZei = CDbl(14100) Case lngKazei = 191000 To 192999 mdblZei = CDbl(14500) Case lngKazei = 193000 To 194999 mdblZei = CDbl(15000) Case lngKazei = 195000 To 196999 mdblZei = CDbl(15500) Case lngKazei = 197000 To 198999 mdblZei = CDbl(16000) Case lngKazei = 199000 To 200999 mdblZei = CDbl(16400) Case lngKazei = 201000 To 202999 mdblZei = CDbl(16900) Case lngKazei = 203000 To 204999 mdblZei = CDbl(17300) Case lngKazei = 205000 To 206999 mdblZei = CDbl(17800) Case lngKazei = 207000 To 208999 mdblZei = CDbl(18200) Case lngKazei = 209000 To 210999 mdblZei = CDbl(18700) Case lngKazei = 211000 To 212999 mdblZei = CDbl(19100) Case lngKazei = 213000 To 214999 mdblZei = CDbl(19600) Case lngKazei = 215000 To 216999 mdblZei = CDbl(20000) Case lngKazei = 217000 To 218999 mdblZei = CDbl(20500) Case lngKazei = 219000 To 220999 mdblZei = CDbl(20900) Case lngKazei = 221000 To 223999 mdblZei = CDbl(21400) Case lngKazei = 224000 To 226999 mdblZei = CDbl(22200) Case lngKazei = 227000 To 229999 mdblZei = CDbl(23000) Case lngKazei = 230000 To 232999 mdblZei = CDbl(23800) Case lngKazei = 233000 To 235999 mdblZei = CDbl(24600) Case lngKazei = 236000 To 238999 mdblZei = CDbl(25400) Case lngKazei = 239000 To 241999 mdblZei = CDbl(26200) Case lngKazei = 242000 To 244999 mdblZei = CDbl(27000) Case lngKazei = 245000 To 247999 mdblZei = CDbl(27700) Case lngKazei = 248000 To 250999 mdblZei = CDbl(28500) Case lngKazei = 251000 To 253999 mdblZei = CDbl(29300) Case lngKazei = 254000 To 256999 mdblZei = CDbl(30100) Case lngKazei = 257000 To 259999 mdblZei = CDbl(30900) Case lngKazei = 260000 To 262999 mdblZei = CDbl(31700) Case lngKazei = 263000 To 265999 mdblZei = CDbl(32500) Case lngKazei = 266000 To 268999 mdblZei = CDbl(33300) Case lngKazei = 269000 To 271999 mdblZei = CDbl(34100) Case lngKazei = 272000 To 274999 mdblZei = CDbl(34900) Case lngKazei = 275000 To 277999 mdblZei = CDbl(35700) Case lngKazei = 278000 To 280999 mdblZei = CDbl(36500) Case lngKazei = 281000 To 283999 mdblZei = CDbl(37300) Case lngKazei = 284000 To 286999 mdblZei = CDbl(38000) Case lngKazei = 287000 To 289999 mdblZei = CDbl(38800) Case lngKazei = 290000 To 292999 mdblZei = CDbl(39600) Case lngKazei = 293000 To 295999 mdblZei = CDbl(40400) Case lngKazei = 296000 To 298999 mdblZei = CDbl(40900) Case lngKazei = 299000 To 301999 mdblZei = CDbl(41400) Case lngKazei = 302000 To 304999 mdblZei = CDbl(41900) Case lngKazei = 305000 To 307999 mdblZei = CDbl(42400) Case lngKazei = 308000 To 310999 mdblZei = CDbl(42900) Case lngKazei = 311000 To 313999 mdblZei = CDbl(43400) Case lngKazei = 314000 To 316999 mdblZei = CDbl(44000) Case lngKazei = 317000 To 319999 mdblZei = CDbl(44500) Case lngKazei = 320000 To 322999 mdblZei = CDbl(45000) Case lngKazei = 323000 To 325999 mdblZei = CDbl(45500) Case lngKazei = 326000 To 328999 mdblZei = CDbl(46000) Case lngKazei = 329000 To 331999 mdblZei = CDbl(46500) Case lngKazei = 332000 To 334999 mdblZei = CDbl(47000) Case lngKazei = 335000 To 337999 mdblZei = CDbl(47500) Case lngKazei = 338000 To 340999 mdblZei = CDbl(48100) Case lngKazei = 341000 To 343999 mdblZei = CDbl(48600) Case lngKazei = 344000 To 346999 mdblZei = CDbl(49200) Case lngKazei = 347000 To 349999 mdblZei = CDbl(49800) Case lngKazei = 350000 To 352999 mdblZei = CDbl(50300) Case lngKazei = 353000 To 355999 mdblZei = CDbl(51200) Case lngKazei = 356000 To 358999 mdblZei = CDbl(52000) Case lngKazei = 359000 To 361999 mdblZei = CDbl(52900) Case lngKazei = 362000 To 364999 mdblZei = CDbl(53700) Case lngKazei = 365000 To 367999 mdblZei = CDbl(54600) Case lngKazei = 368000 To 370999 mdblZei = CDbl(55400) Case lngKazei = 371000 To 373999 mdblZei = CDbl(56200) Case lngKazei = 374000 To 376999 mdblZei = CDbl(56900) Case lngKazei = 377000 To 379999 mdblZei = CDbl(57700) Case lngKazei = 380000 To 382999 mdblZei = CDbl(58500) Case lngKazei = 383000 To 385999 mdblZei = CDbl(59300) Case lngKazei = 386000 To 388999 mdblZei = CDbl(60000) Case lngKazei = 389000 To 391999 mdblZei = CDbl(60900) Case lngKazei = 392000 To 394999 mdblZei = CDbl(62400) Case lngKazei = 395000 To 397999 mdblZei = CDbl(63900) Case lngKazei = 398000 To 400999 mdblZei = CDbl(65300) Case lngKazei = 401000 To 403999 mdblZei = CDbl(66800) Case lngKazei = 404000 To 406999 mdblZei = CDbl(68300) Case lngKazei = 407000 To 409999 mdblZei = CDbl(69800) Case lngKazei = 410000 To 412999 mdblZei = CDbl(71300) Case lngKazei = 413000 To 415999 mdblZei = CDbl(72800) Case lngKazei = 416000 To 418999 mdblZei = CDbl(74300) Case lngKazei = 419000 To 421999 mdblZei = CDbl(75800) Case lngKazei = 422000 To 424999 mdblZei = CDbl(77300) Case lngKazei = 425000 To 427999 mdblZei = CDbl(78700) Case lngKazei = 428000 To 430999 mdblZei = CDbl(80200) Case lngKazei = 431000 To 433999 mdblZei = CDbl(81700) Case lngKazei = 434000 To 436999 mdblZei = CDbl(83200) Case lngKazei = 437000 To 439999 mdblZei = CDbl(84700) Case lngKazei = 440000 To 442999 mdblZei = CDbl(86200) Case lngKazei = 443000 To 445999 mdblZei = CDbl(87700) Case lngKazei = 446000 To 448999 mdblZei = CDbl(89200) Case lngKazei = 449000 To 451999 mdblZei = CDbl(90700) Case lngKazei = 452000 To 454999 mdblZei = CDbl(92200) Case lngKazei = 455000 To 457999 mdblZei = CDbl(93600) Case lngKazei = 458000 To 460999 mdblZei = CDbl(95100) Case lngKazei = 461000 To 463999 mdblZei = CDbl(96600) Case lngKazei = 461000 To 463999 mdblZei = CDbl(98100) Case lngKazei = 464000 To 466999 mdblZei = CDbl(98100) Case lngKazei = 467000 To 469999 mdblZei = CDbl(99600) Case lngKazei = 470000 To 472999 mdblZei = CDbl(101100) Case lngKazei = 473000 To 475999 mdblZei = CDbl(102600) Case lngKazei = 476000 To 478999 mdblZei = CDbl(104100) Case lngKazei = 479000 To 481999 mdblZei = CDbl(105600) Case lngKazei = 482000 To 484999 mdblZei = CDbl(107000) Case lngKazei = 485000 To 487999 mdblZei = CDbl(108500) Case lngKazei = 488000 To 490999 mdblZei = CDbl(110000) Case lngKazei = 491000 To 493999 mdblZei = CDbl(111500) Case lngKazei = 494000 To 496999 mdblZei = CDbl(113000) Case lngKazei = 497000 To 499999 mdblZei = CDbl(114500) Case lngKazei = 500000 To 502999 mdblZei = CDbl(116000) Case lngKazei = 503000 To 505999 mdblZei = CDbl(117500) Case lngKazei = 506000 To 508999 mdblZei = CDbl(119000) Case lngKazei = 509000 To 511999 mdblZei = CDbl(120500) Case lngKazei = 512000 To 514999 mdblZei = CDbl(121900) Case lngKazei = 515000 To 517999 mdblZei = CDbl(123400) Case lngKazei = 518000 To 520999 mdblZei = CDbl(124900) Case lngKazei = 521000 To 523999 mdblZei = CDbl(126400) Case lngKazei = 524000 To 526999 mdblZei = CDbl(127900) Case lngKazei = 527000 To 529999 mdblZei = CDbl(129400) Case lngKazei = 530000 To 532999 mdblZei = CDbl(130900) Case lngKazei = 533000 To 535999 mdblZei = CDbl(132400) Case lngKazei = 536000 To 538999 mdblZei = CDbl(133900) Case lngKazei = 539000 To 541999 mdblZei = CDbl(135300) Case lngKazei = 542000 To 544999 mdblZei = CDbl(136800) Case lngKazei = 545000 To 547999 mdblZei = CDbl(138300) Case lngKazei = 548000 To 550999 mdblZei = CDbl(139800) Case lngKazei = 551000 To 553999 mdblZei = CDbl(141300) Case lngKazei = 554000 To 556999 mdblZei = CDbl(142800) Case lngKazei = 557000 To 559999 mdblZei = CDbl(144300) Case lngKazei = 560000 To 562999 mdblZei = CDbl(145700) Case lngKazei = 563000 To 565999 mdblZei = CDbl(147200) Case lngKazei = 566000 To 568999 mdblZei = CDbl(148600) Case lngKazei = 569000 To 571999 mdblZei = CDbl(150100) Case lngKazei = 572000 To 574999 mdblZei = CDbl(151500) Case lngKazei = 575000 To 577999 mdblZei = CDbl(153000) Case lngKazei = 578000 To 580999 mdblZei = CDbl(154400) Case lngKazei = 581000 To 583999 mdblZei = CDbl(155900) Case lngKazei = 584000 To 586999 mdblZei = CDbl(157300) Case lngKazei = 587000 To 589999 mdblZei = CDbl(158600) Case lngKazei = 590000 To 592999 mdblZei = CDbl(159900) Case lngKazei = 593000 To 595999 mdblZei = CDbl(161200) Case lngKazei = 596000 To 598999 mdblZei = CDbl(162500) Case lngKazei = 599000 To 601999 mdblZei = CDbl(163700) Case lngKazei = 602000 To 604999 mdblZei = CDbl(165000) Case lngKazei = 605000 To 607999 mdblZei = CDbl(166300) Case lngKazei = 608000 To 610999 mdblZei = CDbl(167600) Case lngKazei = 611000 To 613999 mdblZei = CDbl(168900) Case lngKazei = 614000 To 616999 mdblZei = CDbl(170200) Case lngKazei = 617000 To 619999 mdblZei = CDbl(171400) Case lngKazei = 620000 To 622999 mdblZei = CDbl(172700) Case lngKazei = 623000 To 625999 mdblZei = CDbl(174000) Case lngKazei = 626000 To 628999 mdblZei = CDbl(175300) Case lngKazei = 629000 To 631999 mdblZei = CDbl(176600) Case lngKazei = 632000 To 624999 mdblZei = CDbl(177800) Case lngKazei = 635000 To 637999 mdblZei = CDbl(179100) Case lngKazei = 638000 To 640999 mdblZei = CDbl(180400) Case lngKazei = 641000 To 643999 mdblZei = CDbl(181700) Case lngKazei = 644000 To 646999 mdblZei = CDbl(183000) Case lngKazei = 647000 To 649999 mdblZei = CDbl(184300) Case lngKazei = 650000 To 652999 mdblZei = CDbl(185300) Case lngKazei = 653000 To 655999 mdblZei = CDbl(186100) Case lngKazei = 656000 To 658999 mdblZei = CDbl(187000) Case lngKazei = 659000 To 661999 mdblZei = CDbl(187800) Case lngKazei = 662000 To 664999 mdblZei = CDbl(188700) Case lngKazei = 665000 To 667999 mdblZei = CDbl(189500) Case lngKazei = 668000 To 670999 mdblZei = CDbl(190400) Case lngKazei = 671000 To 673999 mdblZei = CDbl(191200) Case lngKazei = 674000 To 676999 mdblZei = CDbl(192100) Case lngKazei = 677000 To 679999 mdblZei = CDbl(192900) Case lngKazei = 680000 To 682999 mdblZei = CDbl(193800) Case lngKazei = 683000 To 685999 mdblZei = CDbl(194700) Case lngKazei = 696000 To 688999 mdblZei = CDbl(195500) Case lngKazei = 689000 To 691999 mdblZei = CDbl(196400) Case lngKazei = 692000 To 694999 mdblZei = CDbl(197200) Case lngKazei = 695000 To 697999 mdblZei = CDbl(198100) Case lngKazei = 698000 To 700999 mdblZei = CDbl(198900) Case lngKazei = 701000 To 703999 mdblZei = CDbl(199800) Case lngKazei = 704000 To 706999 mdblZei = CDbl(200600) Case lngKazei = 707000 To 709999 mdblZei = CDbl(201900) Case lngKazei = 710000 To 712999 mdblZei = CDbl(203300) Case lngKazei = 713000 To 715999 mdblZei = CDbl(204600) Case lngKazei = 716000 To 718999 mdblZei = CDbl(206000) Case lngKazei = 719000 To 721999 mdblZei = CDbl(207300) Case lngKazei = 722000 To 724999 mdblZei = CDbl(208700) Case lngKazei = 725000 To 727999 mdblZei = CDbl(210000) Case lngKazei = 728000 To 730999 mdblZei = CDbl(211400) Case lngKazei = 731000 To 733999 mdblZei = CDbl(212700) Case lngKazei = 734000 To 736999 mdblZei = CDbl(214100) Case lngKazei = 737000 To 739999 mdblZei = CDbl(215400) Case lngKazei = 740000 To 742999 mdblZei = CDbl(216800) Case lngKazei = 743000 To 745999 mdblZei = CDbl(218100) Case lngKazei = 746000 To 748999 mdblZei = CDbl(219500) Case lngKazei = 749000 To 751999 mdblZei = CDbl(220900) Case lngKazei = 752000 To 754999 mdblZei = CDbl(222200) Case lngKazei = 755000 To 757999 mdblZei = CDbl(223600) Case lngKazei = 758000 To 760999 mdblZei = CDbl(224900) Case lngKazei = 761000 To 763999 mdblZei = CDbl(226300) Case lngKazei = 764000 To 766999 mdblZei = CDbl(227600) Case lngKazei = 767000 To 769999 mdblZei = CDbl(229000) Case lngKazei = 770000 To 772999 mdblZei = CDbl(230300) Case lngKazei = 773000 To 775999 mdblZei = CDbl(231700) Case lngKazei = 776000 To 778999 mdblZei = CDbl(233000) Case lngKazei = 779000 To 781999 mdblZei = CDbl(234400) Case lngKazei = 782000 To 784999 mdblZei = CDbl(235700) Case lngKazei = 785000 To 787999 mdblZei = CDbl(237100) Case lngKazei = 788000 To 790999 mdblZei = CDbl(238500) Case lngKazei = 791000 To 793999 mdblZei = CDbl(239800) Case lngKazei = 794000 To 796999 mdblZei = CDbl(241200) Case lngKazei = 797000 To 799999 mdblZei = CDbl(242500) Case lngKazei = 800000 To 802999 mdblZei = CDbl(243900) Case lngKazei = 803000 To 805999 mdblZei = CDbl(245200) Case lngKazei = 806000 To 808999 mdblZei = CDbl(246600) Case lngKazei = 809000 To 811999 mdblZei = CDbl(247900) Case lngKazei = 812000 To 814999 mdblZei = CDbl(249300) Case lngKazei = 815000 To 817999 mdblZei = CDbl(250600) Case lngKazei = 818000 To 820999 mdblZei = CDbl(252000) Case lngKazei = 821000 To 823999 mdblZei = CDbl(253300) Case lngKazei = 824000 To 826999 mdblZei = CDbl(254700) Case lngKazei = 827000 To 829999 mdblZei = CDbl(256100) Case lngKazei = 830000 To 832999 mdblZei = CDbl(257400) Case lngKazei = 833000 To 835999 mdblZei = CDbl(258800) Case lngKazei = 836000 To 838999 mdblZei = CDbl(260100) Case lngKazei = 839000 To 841999 mdblZei = CDbl(261500) Case lngKazei = 842000 To 844999 mdblZei = CDbl(262800) Case lngKazei = 845000 To 847999 mdblZei = CDbl(264200) Case lngKazei = 848000 To 850999 mdblZei = CDbl(265500) Case lngKazei = 851000 To 853999 mdblZei = CDbl(266900) Case lngKazei = 854000 To 856999 mdblZei = CDbl(268200) Case lngKazei = 857000 To 859999 mdblZei = CDbl(269600) Case lngKazei = 860000 To 862999 mdblZei = CDbl(270900) Case lngKazei = 863000 To 865999 mdblZei = CDbl(272300) Case lngKazei = 866000 To 868999 mdblZei = CDbl(273600) Case lngKazei = 869000 To 871999 mdblZei = CDbl(275000) Case lngKazei = 872000 To 874999 mdblZei = CDbl(276400) Case lngKazei = 875000 To 877999 mdblZei = CDbl(277700) Case lngKazei = 878000 To 880999 mdblZei = CDbl(279100) Case lngKazei = 881000 To 883999 mdblZei = CDbl(280400) Case lngKazei = 884000 To 886999 mdblZei = CDbl(281800) Case lngKazei = 887000 To 889999 mdblZei = CDbl(283100) Case lngKazei = 890000 To 892999 mdblZei = CDbl(284500) Case lngKazei = 893000 To 895999 mdblZei = CDbl(285800) Case lngKazei = 896000 To 898999 mdblZei = CDbl(287200) Case lngKazei = 899000 To 901999 mdblZei = CDbl(288500) Case lngKazei = 902000 To 904999 mdblZei = CDbl(289900) Case lngKazei = 905000 To 907999 mdblZei = CDbl(291200) Case lngKazei = 908000 To 910999 mdblZei = CDbl(292600) Case lngKazei = 911000 To 913999 mdblZei = CDbl(294000) Case lngKazei = 914000 To 916999 mdblZei = CDbl(295300) Case lngKazei = 917000 To 919999 mdblZei = CDbl(296700) Case lngKazei = 920000 To 922999 mdblZei = CDbl(298000) Case lngKazei = 923000 To 925999 mdblZei = CDbl(299400) Case lngKazei = 926000 To 928999 mdblZei = CDbl(300700) Case lngKazei = 929000 To 931999 mdblZei = CDbl(302100) Case lngKazei = 932000 To 934999 mdblZei = CDbl(303400) Case lngKazei = 935000 To 937999 mdblZei = CDbl(304800) Case lngKazei = 938000 To 940999 mdblZei = CDbl(306100) Case lngKazei = 941000 To 943999 mdblZei = CDbl(307500) Case lngKazei = 944000 To 946999 mdblZei = CDbl(308800) Case lngKazei = 947000 To 949999 mdblZei = CDbl(310200) Case lngKazei = 950000 To 952999 mdblZei = CDbl(311600) Case lngKazei = 953000 To 955999 mdblZei = CDbl(312900) Case lngKazei = 956000 To 958999 mdblZei = CDbl(314300) Case lngKazei = 959000 To 961999 mdblZei = CDbl(315600) Case lngKazei = 962000 To 964999 mdblZei = CDbl(317000) Case lngKazei = 965000 To 967999 mdblZei = CDbl(318300) Case lngKazei = 968000 To 970999 mdblZei = CDbl(319700) Case lngKazei = 971000 To 973999 mdblZei = CDbl(321000) Case lngKazei = 974000 To 976999 mdblZei = CDbl(322400) Case lngKazei = 977000 To 979999 mdblZei = CDbl(323700) Case lngKazei = 980000 To 982999 mdblZei = CDbl(325100) Case lngKazei = 983000 To 985999 mdblZei = CDbl(326400) Case lngKazei = 986000 To 988999 mdblZei = CDbl(327800) Case lngKazei = 989000 To 991999 mdblZei = CDbl(329200) Case lngKazei = 992000 To 994999 mdblZei = CDbl(330500) Case lngKazei = 995000 To 997999 mdblZei = CDbl(331900) Case lngKazei = 998000 To 1000999 mdblZei = CDbl(333200) Case lngKazei = 1001000 To 1003999 mdblZei = CDbl(334600) Case lngKazei = 1004000 To 1006999 mdblZei = CDbl(335900) Case lngKazei = 1007000 To 1009999 mdblZei = CDbl(337300) Case lngKazei = 1010000 To 1012999 mdblZei = CDbl(338600) Case lngKazei = 1013000 To 1015999 mdblZei = CDbl(340000) Case lngKazei = 1016000 To 1018999 mdblZei = CDbl(341300) Case lngKazei = 1019000 To 1021999 mdblZei = CDbl(342700) Case lngKazei = 1022000 To 1024999 mdblZei = CDbl(344000) Case lngKazei = 1025000 To 1027999 mdblZei = CDbl(345400) Case lngKazei = 1028000 To 1030999 mdblZei = CDbl(346800) Case lngKazei = 1031000 To 1033999 mdblZei = CDbl(348100) Case lngKazei = 1034000 To 1036999 mdblZei = CDbl(349500) Case lngKazei = 1037000 To 1039999 mdblZei = CDbl(350800) Case lngKazei = 1040000 To 1042999 mdblZei = CDbl(352200) Case lngKazei = 1043000 To 1045999 mdblZei = CDbl(353500) Case lngKazei = 1046000 To 1048999 mdblZei = CDbl(354900) Case lngKazei = 1049000 To 1051999 mdblZei = CDbl(356200) Case lngKazei = 1052000 To 1054999 mdblZei = CDbl(357600) Case lngKazei = 1055000 To 1057999 mdblZei = CDbl(358900) Case lngKazei = 1058000 To 1060999 mdblZei = CDbl(360300) Case lngKazei = 1061000 To 1063999 mdblZei = CDbl(361600) Case lngKazei = 1064000 To 1066999 mdblZei = CDbl(363000) Case lngKazei = 1067000 To 1069999 mdblZei = CDbl(364400) Case lngKazei = 1070000 To 1072999 mdblZei = CDbl(365700) Case lngKazei = 1073000 To 1075999 mdblZei = CDbl(367100) Case lngKazei = 1076000 To 1078999 mdblZei = CDbl(368400) Case lngKazei = 1079000 To 1081999 mdblZei = CDbl(369800) Case lngKazei = 1082000 To 1084999 mdblZei = CDbl(371100) Case lngKazei = 1085000 To 1087999 mdblZei = CDbl(372500) Case lngKazei = 1088000 To 1090999 mdblZei = CDbl(373800) Case lngKazei = 1091000 To 1093999 mdblZei = CDbl(375200) Case lngKazei = 1094000 To 1096999 mdblZei = CDbl(376500) Case lngKazei = 1097000 To 1099999 mdblZei = CDbl(377900) Case lngKazei = 1100000 To 1102999 mdblZei = CDbl(379200) Case lngKazei = 1103000 To 1105999 mdblZei = CDbl(380600) Case lngKazei = 1106000 To 1108999 mdblZei = CDbl(381900) Case lngKazei = 1109000 To 1111999 mdblZei = CDbl(383300) Case lngKazei = 1112000 To 1114999 mdblZei = CDbl(384700) Case lngKazei = 1115000 To 1117999 mdblZei = CDbl(386000) Case lngKazei = 1118000 To 1120999 mdblZei = CDbl(387400) Case lngKazei = 1121000 To 1123999 mdblZei = CDbl(388700) Case lngKazei = 1124000 To 1126999 mdblZei = CDbl(390100) Case lngKazei = 1127000 To 1129999 mdblZei = CDbl(391400) Case lngKazei = 1130000 mdblZei = CDbl(392800) Case Is > 1130000 mdblZei = dblTeigakuZei + CDbl((Int((lngKazei - dblTeigaku) / 1000) * 1000) * dblZeiritu2) Case Else mdblZei = CDbl(0) End Select End Sub