[](https://travis-ci.com/worthmine/Business-Tax-Withholding-JP) [](https://metacpan.org/release/Business-Tax-Withholding-JP) # NAME Business::Tax::Withholding::JP - auto calculation for Japanese tax and withholding Business::Tax::Withholding::JP - 日本ã®æ¶ˆè²»ç¨Žã¨æºæ³‰å¾´åŽã®ã‚„ã‚„ã“ã—ã„計算を自動化ã—ã¾ã™ã€‚ # SYNOPSIS use Business::Tax::Withholding::JP; my $tax = Business::Tax::Withholding::JP->new( price => 10000 ); $tax->net(); # 10000 $tax->tax(); # 800 $tax->full(); # 10800 $tax->withholding(); # 1021 $tax->total(); # 9779 # Or you can set the date in period of special tax being expired $tax = Business::Tax::Withholding::JP->new( date => '2038-01-01' ); $tax->price(10000); $tax->withholding(); # 1000 $tax->total(); # 9800 # And you may ignore the withholings $tax = Business::Tax::Withholding::JP->new( no_wh => 1 ); $tax->price(10000); $tax->tax(); # 800 $tax->withholding(); # 0 $tax->total(); # 10800 # DESCRIPTION Business::Tax::Withholding::JP is useful calculator for long term in Japanese Business. You can get correctly taxes and withholdings from price in your context without worrying about the special tax for reconstructing from the Earthquake. the consumption tax **rate is 8%** You can also ignore the withholings. It means this module can be a tax calculator Business::Tax::Withholding::JP ã¯æ—¥æœ¬ã®ãƒ“ジãƒã‚¹ã§é•·æœŸçš„ã«ä½¿ãˆã‚‹ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã§ã™ã€‚ 特別復興所得税ã®æœŸé™ã‚’心é…ã™ã‚‹ã“ã¨ãªãã€è«‹æ±‚ä¾¡æ ¼ã‹ã‚‰æ£ã—ã税金é¡ã¨æºæ³‰å¾´åŽé¡ã‚’計算ã§ãã¾ã™ã€‚ ãªãŠã€æºæ³‰å¾´åŽã‚’ã—ãªã„経ç†ã«ã‚‚対応ã—ã¾ã™ã€‚**消費税率ã¯8ï¼…** ã§ã™ã€‚ ## Constructor ### new( price => _Int_, date => _Date_, no\_wh => _Bool_ ); You can omit these paramators. パラメータã¯æŒ‡å®šã—ãªãã¦æ§‹ã„ã¾ã›ã‚“。 - price price of your products will be set. defaults 0. ç¨ŽæŠœä¾¡æ ¼ã‚’æŒ‡å®šã—ã¦ãã ã•ã„。指定ã—ãªã‘ã‚Œã°0ã§ã™ã€‚ - date You can set payday. the net of withholding depends on this. default is today. 支払日を指定ã—ã¦ãã ã•ã„。æºæ³‰å¾´åŽé¡ãŒå¤‰å‹•ã™ã‚‹ã“ã¨ãŒã‚ã‚Šã¾ã™ã€‚指定ã—ãªã‘ã‚Œã°ä»Šæ—¥ã¨ã—ã¦è¨ˆç®—ã—ã¾ã™ã€‚ - no\_wh If you set this flag, the all you can get is only tax and total. defaults 0 and this is read-only. ã“ã®ãƒ•ãƒ©ã‚°ã‚’ç«‹ã¦ã‚‹ã¨ã“ã®ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã®é•·æ‰€ã‚’å°ç„¡ã—ã«ã§ãã¾ã™ã€‚åˆæœŸå€¤ã¯ã‚‚ã¡ã‚ã‚“0ã§ã€ã‚ã¨ã‹ã‚‰å¤‰ãˆã‚‹ã“ã¨ã¯ã§ãã¾ã›ã‚“。 ## Methods and subroutine - price You can reset the price. price ã«å€¤ã‚’代入å¯èƒ½ã§ã™ã€‚ - date You can reset the payday like 'YYYY-MM-DD' date ã«ã‚‚値を代入å¯èƒ½ã§ã™ã€‚フォーマットã¯'YYYY-MM-DD'(-区切り)ã§ã™ã€‚ - net You can get the net of your pay. it's equal to the price. So it's the alias of price(). net 㯠price ã¨åŒã˜åƒãã‚’ã—ã¾ã™ã€‚ - tax You can get the net of your tax. 税é¡ã®ã¿ã‚’å–å¾—ã—ãŸã„å ´åˆã¯ã“ã¡ã‚‰ã‚’ - full You can get the net of your pay including tax. 税込金é¡ã‚’知りãŸã„å ´åˆã¯ã“ã¡ã‚‰ã‚’ - withholding You can get the net of your withholding from your pay. æºæ³‰å¾´åŽé¡ã‚’知りãŸã„å ´åˆã¯ã“ã¡ã‚‰ã‚’ - total You can get the total of your pay including tax without withholding æºæ³‰å¾´åŽé¡ã‚’å·®ã—引ã„ãŸç¨Žè¾¼æ”¯æ‰•é¡ã‚’知りãŸã„å ´åˆã¯ã“ã¡ã‚‰ã‚’ãŠä½¿ã„ãã ã•ã„。 # LICENSE Copyright (C) worthmine. This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself. # AUTHOR worthmine <worthmine@cpan.org>