Delphi最简求六十花甲子纳音代码

笔记 专栏收录该内容
14 篇文章 0 订阅

甲1…癸10,子1…亥12
function 定纳音(某天干:T天干;某地支:T地支):string;
const
纳音:array[1…30] of string=(
‘海中金’,‘炉中火’,‘大林木’,
‘路旁土’,‘剑锋金’,‘山头火’,
‘涧下水’,‘城墙土’,‘白腊金’,
‘杨柳木’,‘泉中水’,‘屋上土’,
‘霹雷火’,‘松柏木’,‘常流水’,
‘沙中金’,‘山下火’,‘平地木’,
‘壁上土’,‘金箔金’,‘覆灯火’,
‘天河水’,‘大驿土’,‘钗钏金’,
‘桑松木’,‘大溪水’,‘沙中土’,
‘天上火’,‘石榴木’,‘大海水’);

var i:integer;
begin
i:=-1;
REPEAT
i:=i+1 ;
until (((i+1) mod 10)+1=某天干.序数) and (((i+1) mod 12)+1=某地支.序数);
result:=纳音[i];

end;

  • 0
    点赞
  • 6
    评论
  • 0
    收藏
  • 一键三连
    一键三连
  • 扫一扫,分享海报

©️2021 CSDN 皮肤主题: 深蓝海洋 设计师:CSDN官方博客 返回首页
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、C币套餐、付费专栏及课程。

余额充值