[分享]批处理计算理财产品区间年化

77七

实用脚本

1. @echo off
   
2. title 区间年化计算器
   
3. 
   
4. :MAIN
   
5. cls
   
6. echo ========================================
   
7. echo            区间年化计算器
   
8. echo ========================================
   
9. echo.
   
10. echo 日期可输入：
    
11. echo   0803
    
12. echo   803
    
13. echo   8.3
    
14. echo   8-3
    
15. echo   8/3
    
16. echo.
    
17. echo 跨年自动识别，例如：1228 到 0105
    
18. echo 输入 Q 退出
    
19. echo.
    
20. 
    
21. set "SD="
    
22. set "ED="
    
23. set "SN="
    
24. set "EN="
    
25. 
    
26. set /p "SD=开始日期："
    
27. if /i "%SD%"=="Q" exit /b
    
28. 
    
29. set /p "SN=开始净值："
    
30. 
    
31. set /p "ED=结束日期："
    
32. if /i "%ED%"=="Q" exit /b
    
33. 
    
34. set /p "EN=结束净值："
    
35. 
    
36. set "START_DATE=%SD%"
    
37. set "END_DATE=%ED%"
    
38. set "START_NAV=%SN%"
    
39. set "END_NAV=%EN%"
    
40. 
    
41. echo.
    
42. echo ----------------------------------------
    
43. 
    
44. powershell.exe -NoProfile -Command "$ErrorActionPreference='Stop';function ParseMD([string]$v){$v=$v.Trim();if($v -match '^(\d{1,2})[./-](\d{1,2})$'){return @([int]$Matches[1],[int]$Matches[2])};if($v -match '^\d{4}$'){return @([int]$v.Substring(0,2),[int]$v.Substring(2,2))};if($v -match '^\d{3}$'){return @([int]$v.Substring(0,1),[int]$v.Substring(1,2))};throw '日期格式错误'};try{$a=ParseMD $env:START_DATE;$b=ParseMD $env:END_DATE;$sm=$a[0];$sd=$a[1];$em=$b[0];$ed=$b[1];$y=(Get-Date).Year;$ey=$y;if(($em -lt $sm)-or(($em -eq $sm)-and($ed -lt $sd))){$ey++};$sdt=Get-Date -Year $y -Month $sm -Day $sd -Hour 0 -Minute 0 -Second 0;$edt=Get-Date -Year $ey -Month $em -Day $ed -Hour 0 -Minute 0 -Second 0;$days=[int]($edt-$sdt).TotalDays;if($days -le 0){throw '结束日期必须晚于开始日期'};$ci=[Globalization.CultureInfo]::InvariantCulture;$sv=[double]::Parse($env:START_NAV,$ci);$ev=[double]::Parse($env:END_NAV,$ci);if($sv -le 0 -or $ev -le 0){throw '净值必须大于0'};$r=$ev/$sv-1;$simple=$r*365/$days*100;$compound=([Math]::Pow($ev/$sv,365.0/$days)-1)*100;$pct=[char]37;$lines=@(('区间：{0:yyyy-MM-dd} 到 {1:yyyy-MM-dd}' -f $sdt,$edt),('区间天数：{0} 天' -f $days),('区间收益率：{0:F4}{1}' -f ($r*100),$pct),('简单年化：{0:F4}{1}' -f $simple,$pct),('复利年化：{0:F4}{1}' -f $compound,$pct));$lines|ForEach-Object{Write-Host $_}}catch{Write-Host ('错误：'+$_.Exception.Message) -ForegroundColor Red}"
    
45. 
    
46. echo ----------------------------------------
    
47. echo.
    
48. pause
    
49. goto MAIN

复制代码