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.03 '87000円未満 Const dblZeiritu2 As Double = 0.38 '1010000円超 Const dblTeigaku As Double = 1010000 '1010000円超の計算基礎額 Const dblTeigakuZei As Double = 367400 '1010000円超の計算基礎税額 Select Case lngKazei Case Is < 88000 mdblZei = CDbl(Int(lngKazei * dblZeiritu1 / 100) * 100) Case lngKazei = 88000 To 91999 mdblZei = CDbl(3100) Case lngKazei = 92000 To 94999 mdblZei = CDbl(3200) Case lngKazei = 95000 To 96999 mdblZei = CDbl(3300) Case lngKazei = 97000 To 98999 mdblZei = CDbl(3400) Case lngKazei = 99000 To 102999 mdblZei = CDbl(3500) Case lngKazei = 103000 To 104999 mdblZei = CDbl(3600) Case lngKazei = 105000 To 108999 mdblZei = CDbl(3700) Case lngKazei = 109000 To 110999 mdblZei = CDbl(3800) Case lngKazei = 111000 To 112999 mdblZei = CDbl(3900) Case lngKazei = 113000 To 116999 mdblZei = CDbl(4000) Case lngKazei = 117000 To 118999 mdblZei = CDbl(4100) Case lngKazei = 119000 To 120999 mdblZei = CDbl(4200) Case lngKazei = 121000 To 122999 mdblZei = CDbl(4400) Case lngKazei = 123000 To 124999 mdblZei = CDbl(4700) Case lngKazei = 125000 To 126999 mdblZei = CDbl(5000) Case lngKazei = 127000 To 128999 mdblZei = CDbl(5300) Case lngKazei = 129000 To 130999 mdblZei = CDbl(5600) Case lngKazei = 131000 To 132999 mdblZei = CDbl(5900) Case lngKazei = 133000 To 134999 mdblZei = CDbl(6200) Case lngKazei = 135000 To 136999 mdblZei = CDbl(6500) Case lngKazei = 137000 To 138999 mdblZei = CDbl(6700) Case lngKazei = 139000 To 140999 mdblZei = CDbl(7000) Case lngKazei = 141000 To 142999 mdblZei = CDbl(7300) Case lngKazei = 143000 To 144999 mdblZei = CDbl(7600) Case lngKazei = 145000 To 146999 mdblZei = CDbl(7900) Case lngKazei = 147000 To 148999 mdblZei = CDbl(8200) Case lngKazei = 149000 To 150999 mdblZei = CDbl(8500) Case lngKazei = 151000 To 152999 mdblZei = CDbl(8800) Case lngKazei = 153000 To 154999 mdblZei = CDbl(9100) Case lngKazei = 155000 To 156999 mdblZei = CDbl(9400) Case lngKazei = 157000 To 158999 mdblZei = CDbl(9700) Case lngKazei = 159000 To 160999 mdblZei = CDbl(10000) Case lngKazei = 161000 To 162999 mdblZei = CDbl(10300) Case lngKazei = 163000 To 164999 mdblZei = CDbl(10600) Case lngKazei = 165000 To 166999 mdblZei = CDbl(10900) Case lngKazei = 167000 To 168999 mdblZei = CDbl(11200) Case lngKazei = 169000 To 170999 mdblZei = CDbl(11500) Case lngKazei = 171000 To 172999 mdblZei = CDbl(11800) Case lngKazei = 173000 To 174999 mdblZei = CDbl(12100) Case lngKazei = 175000 To 176999 mdblZei = CDbl(12400) Case lngKazei = 177000 To 178999 mdblZei = CDbl(12900) Case lngKazei = 179000 To 180999 mdblZei = CDbl(13600) Case lngKazei = 181000 To 182999 mdblZei = CDbl(14300) Case lngKazei = 183000 To 184999 mdblZei = CDbl(15000) Case lngKazei = 185000 To 186999 mdblZei = CDbl(15700) Case lngKazei = 187000 To 188999 mdblZei = CDbl(16400) Case lngKazei = 189000 To 190999 mdblZei = CDbl(17100) Case lngKazei = 191000 To 192999 mdblZei = CDbl(17700) Case lngKazei = 193000 To 194999 mdblZei = CDbl(18400) Case lngKazei = 195000 To 196999 mdblZei = CDbl(19100) Case lngKazei = 197000 To 198999 mdblZei = CDbl(19800) Case lngKazei = 199000 To 200999 mdblZei = CDbl(20500) Case lngKazei = 201000 To 202999 mdblZei = CDbl(21100) Case lngKazei = 203000 To 204999 mdblZei = CDbl(21700) Case lngKazei = 205000 To 206999 mdblZei = CDbl(22200) Case lngKazei = 207000 To 208999 mdblZei = CDbl(22800) Case lngKazei = 209000 To 210999 mdblZei = CDbl(23400) Case lngKazei = 211000 To 212999 mdblZei = CDbl(23900) Case lngKazei = 213000 To 214999 mdblZei = CDbl(24500) Case lngKazei = 215000 To 216999 mdblZei = CDbl(25000) Case lngKazei = 217000 To 218999 mdblZei = CDbl(25600) Case lngKazei = 219000 To 220999 mdblZei = CDbl(26200) Case lngKazei = 221000 To 223999 mdblZei = CDbl(26800) Case lngKazei = 224000 To 226999 mdblZei = CDbl(27800) Case lngKazei = 227000 To 229999 mdblZei = CDbl(28700) Case lngKazei = 230000 To 232999 mdblZei = CDbl(29700) Case lngKazei = 233000 To 235999 mdblZei = CDbl(30700) Case lngKazei = 236000 To 238999 mdblZei = CDbl(31700) Case lngKazei = 239000 To 241999 mdblZei = CDbl(32700) Case lngKazei = 242000 To 244999 mdblZei = CDbl(33700) Case lngKazei = 245000 To 247999 mdblZei = CDbl(34700) Case lngKazei = 248000 To 250999 mdblZei = CDbl(35700) Case lngKazei = 251000 To 253999 mdblZei = CDbl(36700) Case lngKazei = 254000 To 256999 mdblZei = CDbl(37700) Case lngKazei = 257000 To 259999 mdblZei = CDbl(38600) Case lngKazei = 260000 To 262999 mdblZei = CDbl(39600) Case lngKazei = 263000 To 265999 mdblZei = CDbl(40600) Case lngKazei = 266000 To 268999 mdblZei = CDbl(41600) Case lngKazei = 269000 To 271999 mdblZei = CDbl(42600) Case lngKazei = 272000 To 274999 mdblZei = CDbl(43600) Case lngKazei = 275000 To 277999 mdblZei = CDbl(44600) Case lngKazei = 278000 To 280999 mdblZei = CDbl(45600) Case lngKazei = 281000 To 283999 mdblZei = CDbl(46600) Case lngKazei = 284000 To 286999 mdblZei = CDbl(47600) Case lngKazei = 287000 To 289999 mdblZei = CDbl(48500) Case lngKazei = 290000 To 292999 mdblZei = CDbl(49500) Case lngKazei = 293000 To 295999 mdblZei = CDbl(50500) Case lngKazei = 296000 To 298999 mdblZei = CDbl(51200) Case lngKazei = 299000 To 301999 mdblZei = CDbl(51800) Case lngKazei = 302000 To 304999 mdblZei = CDbl(52400) Case lngKazei = 305000 To 307999 mdblZei = CDbl(53100) Case lngKazei = 308000 To 310999 mdblZei = CDbl(53700) Case lngKazei = 311000 To 313999 mdblZei = CDbl(54300) Case lngKazei = 314000 To 317999 mdblZei = CDbl(54900) Case lngKazei = 317000 To 319999 mdblZei = CDbl(55600) Case lngKazei = 320000 To 332999 mdblZei = CDbl(56500) Case lngKazei = 323000 To 325999 mdblZei = CDbl(57300) Case lngKazei = 326000 To 328999 mdblZei = CDbl(58100) Case lngKazei = 329000 To 331999 mdblZei = CDbl(59000) Case lngKazei = 332000 To 334999 mdblZei = CDbl(59800) Case lngKazei = 335000 To 337999 mdblZei = CDbl(60700) Case lngKazei = 338000 To 340999 mdblZei = CDbl(61600) Case lngKazei = 341000 To 343999 mdblZei = CDbl(62500) Case lngKazei = 344000 To 346999 mdblZei = CDbl(63400) Case lngKazei = 347000 To 349999 mdblZei = CDbl(64400) Case lngKazei = 350000 To 352999 mdblZei = CDbl(65300) Case lngKazei = 353000 To 356999 mdblZei = CDbl(66200) Case lngKazei = 356000 To 358999 mdblZei = CDbl(67100) Case lngKazei = 359000 To 361999 mdblZei = CDbl(68000) Case lngKazei = 362000 To 364999 mdblZei = CDbl(69000) Case lngKazei = 365000 To 367999 mdblZei = CDbl(69900) Case lngKazei = 368000 To 370999 mdblZei = CDbl(70800) Case lngKazei = 371000 To 373999 mdblZei = CDbl(71600) Case lngKazei = 374000 To 376999 mdblZei = CDbl(72400) Case lngKazei = 377000 To 379999 mdblZei = CDbl(73200) Case lngKazei = 380000 To 382999 mdblZei = CDbl(74100) Case lngKazei = 383000 To 385999 mdblZei = CDbl(74900) Case lngKazei = 386000 To 388999 mdblZei = CDbl(75700) Case lngKazei = 389000 To 391999 mdblZei = CDbl(76600) Case lngKazei = 392000 To 394999 mdblZei = CDbl(78100) Case lngKazei = 395000 To 397999 mdblZei = CDbl(79700) Case lngKazei = 398000 To 400999 mdblZei = CDbl(81200) Case lngKazei = 401000 To 403999 mdblZei = CDbl(82800) Case lngKazei = 404000 To 406999 mdblZei = CDbl(84300) Case lngKazei = 407000 To 409999 mdblZei = CDbl(85900) Case lngKazei = 410000 To 412999 mdblZei = CDbl(87400) Case lngKazei = 413000 To 415999 mdblZei = CDbl(88900) Case lngKazei = 416000 To 418999 mdblZei = CDbl(90500) Case lngKazei = 419000 To 421999 mdblZei = CDbl(92000) Case lngKazei = 422000 To 424999 mdblZei = CDbl(93600) Case lngKazei = 425000 To 427999 mdblZei = CDbl(95100) Case lngKazei = 428000 To 430999 mdblZei = CDbl(96600) Case lngKazei = 431000 To 433999 mdblZei = CDbl(98200) Case lngKazei = 434000 To 436999 mdblZei = CDbl(99700) Case lngKazei = 437000 To 439999 mdblZei = CDbl(101300) Case lngKazei = 440000 To 442999 mdblZei = CDbl(102800) Case lngKazei = 443000 To 445999 mdblZei = CDbl(104400) Case lngKazei = 446000 To 448999 mdblZei = CDbl(105900) Case lngKazei = 449000 To 451999 mdblZei = CDbl(107400) Case lngKazei = 452000 To 454999 mdblZei = CDbl(109000) Case lngKazei = 455000 To 457999 mdblZei = CDbl(110500) Case lngKazei = 458000 To 460999 mdblZei = CDbl(112100) Case lngKazei = 461000 To 463999 mdblZei = CDbl(113600) Case lngKazei = 464000 To 466999 mdblZei = CDbl(115100) Case lngKazei = 467000 To 469999 mdblZei = CDbl(116700) Case lngKazei = 470000 To 472999 mdblZei = CDbl(118200) Case lngKazei = 473000 To 475999 mdblZei = CDbl(119800) Case lngKazei = 476000 To 478999 mdblZei = CDbl(121300) Case lngKazei = 479000 To 481999 mdblZei = CDbl(122800) Case lngKazei = 482000 To 484999 mdblZei = CDbl(124400) Case lngKazei = 485000 To 487999 mdblZei = CDbl(125900) Case lngKazei = 488000 To 490999 mdblZei = CDbl(127500) Case lngKazei = 491000 To 493999 mdblZei = CDbl(129000) Case lngKazei = 494000 To 496999 mdblZei = CDbl(130600) Case lngKazei = 497000 To 499999 mdblZei = CDbl(132100) Case lngKazei = 500000 To 502999 mdblZei = CDbl(133600) Case lngKazei = 503000 To 505999 mdblZei = CDbl(135200) Case lngKazei = 506000 To 508999 mdblZei = CDbl(136700) Case lngKazei = 509000 To 511999 mdblZei = CDbl(138300) Case lngKazei = 512000 To 514999 mdblZei = CDbl(139800) Case lngKazei = 515000 To 517999 mdblZei = CDbl(141300) Case lngKazei = 518000 To 520999 mdblZei = CDbl(142900) Case lngKazei = 521000 To 523999 mdblZei = CDbl(144400) Case lngKazei = 524000 To 526999 mdblZei = CDbl(146000) Case lngKazei = 527000 To 529999 mdblZei = CDbl(147500) Case lngKazei = 530000 To 532999 mdblZei = CDbl(148900) Case lngKazei = 533000 To 535999 mdblZei = CDbl(150300) Case lngKazei = 536000 To 538999 mdblZei = CDbl(151700) Case lngKazei = 539000 To 541999 mdblZei = CDbl(153200) Case lngKazei = 552000 To 544999 mdblZei = CDbl(154600) Case lngKazei = 545000 To 547999 mdblZei = CDbl(156000) Case lngKazei = 548000 To 550999 mdblZei = CDbl(157400) Case lngKazei = 551000 To 553999 mdblZei = CDbl(158800) Case lngKazei = 554000 To 556999 mdblZei = CDbl(160300) Case lngKazei = 557000 To 559999 mdblZei = CDbl(161700) Case lngKazei = 560000 To 562999 mdblZei = CDbl(163000) Case lngKazei = 563000 To 565999 mdblZei = CDbl(164400) Case lngKazei = 566000 To 568999 mdblZei = CDbl(165800) Case lngKazei = 569000 To 571999 mdblZei = CDbl(167100) Case lngKazei = 572000 To 574999 mdblZei = CDbl(168500) Case lngKazei = 575000 To 577999 mdblZei = CDbl(169900) Case lngKazei = 578000 To 580999 mdblZei = CDbl(171200) Case lngKazei = 581000 To 583999 mdblZei = CDbl(172600) Case lngKazei = 584000 To 586999 mdblZei = CDbl(174000) Case lngKazei = 587000 To 589999 mdblZei = CDbl(175300) Case lngKazei = 590000 To 592999 mdblZei = CDbl(176700) Case lngKazei = 593000 To 595999 mdblZei = CDbl(178100) Case lngKazei = 596000 To 598999 mdblZei = CDbl(179400) Case lngKazei = 599000 To 601999 mdblZei = CDbl(180800) Case lngKazei = 602000 To 605999 mdblZei = CDbl(182200) Case lngKazei = 605000 To 607999 mdblZei = CDbl(183500) Case lngKazei = 608000 To 610999 mdblZei = CDbl(184900) Case lngKazei = 611000 To 613999 mdblZei = CDbl(186300) Case lngKazei = 614000 To 616999 mdblZei = CDbl(187700) Case lngKazei = 617000 To 619999 mdblZei = CDbl(189000) Case lngKazei = 620000 To 622999 mdblZei = CDbl(190400) Case lngKazei = 623000 To 625999 mdblZei = CDbl(191800) Case lngKazei = 626000 To 628999 mdblZei = CDbl(193100) Case lngKazei = 629000 To 631999 mdblZei = CDbl(194500) Case lngKazei = 632000 To 634999 mdblZei = CDbl(195900) Case lngKazei = 635000 To 637999 mdblZei = CDbl(197200) Case lngKazei = 638000 To 640999 mdblZei = CDbl(198600) Case lngKazei = 641000 To 643999 mdblZei = CDbl(200000) Case lngKazei = 644000 To 646999 mdblZei = CDbl(201300) Case lngKazei = 647000 To 649999 mdblZei = CDbl(202700) Case lngKazei = 650000 To 652999 mdblZei = CDbl(203800) Case lngKazei = 653000 To 655999 mdblZei = CDbl(204700) Case lngKazei = 656000 To 658999 mdblZei = CDbl(205700) Case lngKazei = 659000 To 661999 mdblZei = CDbl(206600) Case lngKazei = 662000 To 664999 mdblZei = CDbl(207500) Case lngKazei = 665000 To 667999 mdblZei = CDbl(208500) Case lngKazei = 668000 To 670999 mdblZei = CDbl(209400) Case lngKazei = 671000 To 673999 mdblZei = CDbl(210400) Case lngKazei = 674000 To 676999 mdblZei = CDbl(211300) Case lngKazei = 677000 To 679999 mdblZei = CDbl(212200) Case lngKazei = 680000 To 682999 mdblZei = CDbl(213200) Case lngKazei = 683000 To 685999 mdblZei = CDbl(214100) Case lngKazei = 686000 To 688999 mdblZei = CDbl(215100) Case lngKazei = 689000 To 691999 mdblZei = CDbl(216000) Case lngKazei = 692000 To 694999 mdblZei = CDbl(216900) Case lngKazei = 695000 To 697999 mdblZei = CDbl(217900) Case lngKazei = 698000 To 700999 mdblZei = CDbl(218800) Case lngKazei = 701000 To 703999 mdblZei = CDbl(219800) Case lngKazei = 704000 To 706999 mdblZei = CDbl(220700) Case lngKazei = 707000 To 709999 mdblZei = CDbl(222100) Case lngKazei = 710000 To 712999 mdblZei = CDbl(223500) Case lngKazei = 713000 To 715999 mdblZei = CDbl(224900) Case lngKazei = 716000 To 718999 mdblZei = CDbl(226400) Case lngKazei = 719000 To 721999 mdblZei = CDbl(227800) Case lngKazei = 722000 To 724999 mdblZei = CDbl(229200) Case lngKazei = 725000 To 727999 mdblZei = CDbl(230700) Case lngKazei = 728000 To 730999 mdblZei = CDbl(232100) Case lngKazei = 731000 To 733999 mdblZei = CDbl(233600) Case lngKazei = 734000 To 736999 mdblZei = CDbl(235000) Case lngKazei = 737000 To 739999 mdblZei = CDbl(236400) Case lngKazei = 740000 To 742999 mdblZei = CDbl(237900) Case lngKazei = 743000 To 759999 mdblZei = CDbl(239300) Case lngKazei = 746000 To 748999 mdblZei = CDbl(240800) Case lngKazei = 749000 To 751999 mdblZei = CDbl(242200) Case lngKazei = 752000 To 754999 mdblZei = CDbl(243600) Case lngKazei = 755000 To 757999 mdblZei = CDbl(245100) Case lngKazei = 758000 To 760999 mdblZei = CDbl(146500) Case lngKazei = 761000 To 763999 mdblZei = CDbl(248000) Case lngKazei = 764000 To 766999 mdblZei = CDbl(249400) Case lngKazei = 767000 To 769999 mdblZei = CDbl(250800) Case lngKazei = 770000 To 772999 mdblZei = CDbl(252300) Case lngKazei = 773000 To 775999 mdblZei = CDbl(253700) Case lngKazei = 776000 To 778999 mdblZei = CDbl(255200) Case lngKazei = 779000 To 781999 mdblZei = CDbl(256600) Case lngKazei = 782000 To 784999 mdblZei = CDbl(258000) Case lngKazei = 785000 To 787999 mdblZei = CDbl(259500) Case lngKazei = 788000 To 790999 mdblZei = CDbl(260900) Case lngKazei = 791000 To 793999 mdblZei = CDbl(262300) Case lngKazei = 794000 To 796999 mdblZei = CDbl(263800) Case lngKazei = 797000 To 799999 mdblZei = CDbl(265200) Case lngKazei = 800000 To 802999 mdblZei = CDbl(266700) Case lngKazei = 803000 To 806999 mdblZei = CDbl(268100) Case lngKazei = 806000 To 808999 mdblZei = CDbl(269500) Case lngKazei = 809000 To 811999 mdblZei = CDbl(271000) Case lngKazei = 812000 To 814999 mdblZei = CDbl(272400) Case lngKazei = 815000 To 817999 mdblZei = CDbl(273900) Case lngKazei = 818000 To 820999 mdblZei = CDbl(275300) Case lngKazei = 821000 To 823999 mdblZei = CDbl(276700) Case lngKazei = 824000 To 826999 mdblZei = CDbl(278200) Case lngKazei = 827000 To 829999 mdblZei = CDbl(279600) Case lngKazei = 830000 To 832999 mdblZei = CDbl(281100) Case lngKazei = 833000 To 835999 mdblZei = CDbl(282500) Case lngKazei = 836000 To 838999 mdblZei = CDbl(283900) Case lngKazei = 839000 To 841999 mdblZei = CDbl(285400) Case lngKazei = 842000 To 844999 mdblZei = CDbl(286800) Case lngKazei = 845000 To 847999 mdblZei = CDbl(288300) Case lngKazei = 848000 To 850999 mdblZei = CDbl(289700) Case lngKazei = 851000 To 853999 mdblZei = CDbl(291100) Case lngKazei = 854000 To 856999 mdblZei = CDbl(292600) Case lngKazei = 857000 To 859999 mdblZei = CDbl(294000) Case lngKazei = 860000 To 862999 mdblZei = CDbl(295500) Case lngKazei = 863000 To 865999 mdblZei = CDbl(296900) Case lngKazei = 866000 To 868999 mdblZei = CDbl(298300) Case lngKazei = 869000 To 871999 mdblZei = CDbl(299800) Case lngKazei = 872000 To 874999 mdblZei = CDbl(301200) Case lngKazei = 875000 To 877999 mdblZei = CDbl(302600) Case lngKazei = 878000 To 880999 mdblZei = CDbl(304100) Case lngKazei = 881000 To 883999 mdblZei = CDbl(305500) Case lngKazei = 884000 To 886999 mdblZei = CDbl(307000) Case lngKazei = 887000 To 889999 mdblZei = CDbl(308400) Case lngKazei = 890000 To 892999 mdblZei = CDbl(309800) Case lngKazei = 893000 To 895999 mdblZei = CDbl(311300) Case lngKazei = 896000 To 898999 mdblZei = CDbl(312700) Case lngKazei = 899000 To 901999 mdblZei = CDbl(314200) Case lngKazei = 902000 To 904999 mdblZei = CDbl(315600) Case lngKazei = 905000 To 907999 mdblZei = CDbl(317000) Case lngKazei = 908000 To 910999 mdblZei = CDbl(318500) Case lngKazei = 911000 To 913999 mdblZei = CDbl(319900) Case lngKazei = 914000 To 916999 mdblZei = CDbl(321400) Case lngKazei = 917000 To 919999 mdblZei = CDbl(322800) Case lngKazei = 920000 To 922999 mdblZei = CDbl(324200) Case lngKazei = 923000 To 925999 mdblZei = CDbl(325700) Case lngKazei = 926000 To 928999 mdblZei = CDbl(327100) Case lngKazei = 929000 To 931999 mdblZei = CDbl(328600) Case lngKazei = 932000 To 934999 mdblZei = CDbl(330000) Case lngKazei = 935000 To 937999 mdblZei = CDbl(331400) Case lngKazei = 938000 To 940999 mdblZei = CDbl(332900) Case lngKazei = 941000 To 943999 mdblZei = CDbl(334300) Case lngKazei = 944000 To 946999 mdblZei = CDbl(335800) Case lngKazei = 947000 To 949999 mdblZei = CDbl(337200) Case lngKazei = 950000 To 952999 mdblZei = CDbl(338600) Case lngKazei = 953000 To 955999 mdblZei = CDbl(340100) Case lngKazei = 956000 To 958999 mdblZei = CDbl(341500) Case lngKazei = 959000 To 961999 mdblZei = CDbl(342900) Case lngKazei = 962000 To 964999 mdblZei = CDbl(344400) Case lngKazei = 965000 To 967999 mdblZei = CDbl(345800) Case lngKazei = 968000 To 970999 mdblZei = CDbl(347300) Case lngKazei = 971000 To 973999 mdblZei = CDbl(348700) Case lngKazei = 974000 To 976999 mdblZei = CDbl(350100) Case lngKazei = 977000 To 979999 mdblZei = CDbl(351600) Case lngKazei = 980000 To 982999 mdblZei = CDbl(353000) Case lngKazei = 983000 To 985999 mdblZei = CDbl(354500) Case lngKazei = 986000 To 988999 mdblZei = CDbl(355900) Case lngKazei = 989000 To 991999 mdblZei = CDbl(357300) Case lngKazei = 992000 To 994999 mdblZei = CDbl(358800) Case lngKazei = 995000 To 997999 mdblZei = CDbl(360200) Case lngKazei = 998000 To 1000999 mdblZei = CDbl(361700) Case lngKazei = 1001000 To 1003999 mdblZei = CDbl(363100) Case lngKazei = 1004000 To 1006999 mdblZei = CDbl(364500) Case lngKazei = 1007000 To 1009999 mdblZei = CDbl(366000) Case lngKazei = 1010000 mdblZei = CDbl(367400) Case Is > 1010001 mdblZei = dblTeigakuZei + CDbl((Int((lngKazei - dblTeigaku) / 1000) * 1000) * dblZeiritu2) Case Else mdblZei = CDbl(0) End Select End Sub