基于C语言实现计算生辰八字五行的示例详解

本文介绍生辰八字和八字五行的一种算法。站内有人在查询生辰八字的算法,此题本人也感兴趣。故以此文以续貂尾。

生辰八字计算要点是节气日,年柱以立春起,月柱以是月节气日起,故先要计算月首的节气日。本节气算法的节气时刻精度差些,但确定节气日是可以的。程序启动时先计算干支表和对应的五行表。具体的计算方法参阅程序的注释。算法很简单,一看就明白。要注意的是,八字的时柱先输出的是起时,生日时辰十二个时辰对应下面的起时表计算。程序列示文本打印输出和图片显示输出二种方法供参考。

本文主要介绍生辰八字的算法,没有计算农历日期,农历计算较为复杂,加农历算法,加月历打印输出成了万年历了。

以下是计算方法的源码:

Canvas cs ;
string sBarDes[10];   //按钮
int nBarId[10];
float src[4];  //ClearDraw (cls) clear screen
int ds[3] ;
 int i,j,t,k;    //t = times
string fname;  //filename 加底图
int sx, sy, x0, y0 ;
int alln,alln1;
int ns,leap;
double nleap,nleapd;  //农历闰月,0无闰,闰月大小
int n,n0,n1,n2 ;
string s,s0,ss,s5,s6 ;
string s1,s2,s3,s4;
 string s11, s12, s13, s14 ;

int wd ;
string wds,wdss;  //weekday
 double dy0,dy1,dm1,dd1;
 int dy, dm, dd ;
 string dy2, dm2, dd2 ;   //日期输入dy2
double hh1,mm1,ss1;
  string hh2,mm2,ss2;
int gzy,gzm,gzd,gzh;  //干支 yy mm dd hh
string gzys,gzms,gzds,gzhs;
int gzn1;
int yz,mz; //年柱  月柱
string gzs, bzs ;  //八字
string whss, g12ss,st28ss; //五行 十二建 二十八宿
string tgs, dzs, whs, whs1, whs2 ;  //计算五行
int dzd0,dzd1;  //冬至日

 string jqnames ;      //节气中文名称
 string t1, t2, t3 ;       //计算时间串 hh;mm;ss
double jd;            //计算节气
double juD,tht,yrD;
double sD;    //shouD
double vs,dalt;     //solar

int jqdn ;        //节气计算
int jqd1,jqd2 ;
 string jqs1,jqs2;
 string jqss1,jqss2;
 string jnum,jname1, jname2 ;

main(){
setDisplay(1);
  cs.SetBackground(240,240,240);
  cs.Active();
   sBarDes[0]="输入日期";
   nBarId[0]=100;
   sBarDes[1]="    ";
   nBarId[1]=101;
   sBarDes[2]="文本显示";
   nBarId[2]=102;
   sBarDes[3]="图片显示";
   nBarId[3]=103;
   sBarDes[4]="退出程序";
   nBarId[4]=104;
   sBarDes[5]="...";
   nBarId[5]=105;
   setToolBarHeight(6);
   setButtonTextSize(14);
   setToolBarBackgroundColor(255,220,220,220);
   setButtonColor(255,240,240,240);
   setButtonTextColor(255,0,0,120);
   setToolBar(100,myToolBarProc,sBarDes,nBarId,6);
  setTitle("生辰八字五行计算   ");
//**********
   jqnames="小寒大寒立春雨水惊蛰春分清明谷雨立夏小满芒种夏至小暑大暑立秋处暑白露秋分寒露霜降立冬小雪大雪冬至";
  wdss="星期日星期一星期二星期三星期四星期五星期六" ;
whss="海中金炉中火大林木路旁土剑锋金山头火洞下水城墙土白腊金杨柳木泉中水屋上土霹雷火松柏木长流水沙中金山下火平地木壁上土金箔金佛灯火天河水大驿土钗钏金桑松木大溪水沙中土天上火石榴木大海水";
g12ss="建除满平定执破危成收开闭";
st28ss="角亢氐房心尾箕斗牛女虚危室壁奎娄胃昴毕觜参井鬼柳星张翼轸";

      setDisplay (0);
      print " 请选择:输入日期 " ;
      bzwh ( ) ;    //八字五行计算
 while (){}
 }//main ()

bzwh ( ){        //八字干支表gzs五行表 whs
int n1,n2 ;
    tgs="甲乙丙丁戊己庚辛壬癸" ;
   dzs="子丑寅卯辰巳午未申酉戌亥" ;
   whs1="木木火火土土金金水水" ;
   whs2="水土木木土火火土金金土水" ;
           setDisplay (0);
      for (i=0; i<60; i++){
           n1=i-i/10*10 ;   n2=i-i/12*12 ;
           s1=subString (tgs, n1, 1) ;
           s2=subString (dzs, n2, 1) ;
           s3=subString (whs1, n1, 1) ;
           s4=subString (whs2, n2, 1) ;
               gzs=gzs+s1+s2 ;           //建八字表
               whs=whs+s3+s4 ;    }   //建五行表
}//bzwh ()

test (){  //  生辰八字计算,测试
       cs.ClearDraw (0,src);     //清屏
       clearOutput () ;
          cs.SetTextSize (30);
          cs.SetColor (255,0,0,150) ;
    fname="/storage/emulated/0/tutu.jpg";
    cs.DrawBitmap(fname,0,2);  //加底图
           sx=60 ;   sy=100 ;
    ss="InputDate = "+dy2+"-"+dm2+"-"+dd2;
       cs.DrawText (ss, sx, sy-60);
       print ss ;

    ss= "是日为:"+wds ;
        print ss ;
        cs.DrawText (ss, sx, sy-30);
    print "   " ;
    print "all days = ",alln,"    ",alln1;

   // 计算节气日,年柱以立春日起算
   // 计算节气日,月柱以月节气日起算
//**** calculate solarterm    //show 节气
          dy2=intToString(dy);    //show 节气
          dm2=intToString(dm);
          dy1=stringToDouble(dy2);
          dm1=stringToDouble(dm2);
           dy0=dy1;
          n=dm*2-1;
          caljq();      //节气计算
          jqd1=(int)(dd1);
          jqs1=subString(jname2,0,2);
          cs.DrawText (jname2,sx,sy+20);
                jqss1=jname2;
          n=dm*2;
          caljq ();      //节气计算
          jqd2=(int)(dd1);
          jqs2=subString(jname2,0,2);
          cs.DrawText(jname2,sx,sy+50);
               jqss2=jname2;
          print jqss1 ;
          print jqss2 ;

//calculate GZ,gzy,gzm,gzd,alln
      ss= "节气日 :  " +intToString(jqd1) ;
         print ss ;
         cs.DrawText(ss, sx, sy+90);
         print "  " ;
         print "  " ;
      ss= "八字五行计算如下:" ;
          print ss ;
          print " " ;
          cs.DrawText(ss, sx, sy+150);
  //计算天数,dy+2096,算公元前避免出现负数
    alln1=alln1+dd-1;       //all days
    n=(dy+2096);
    if(dm<2)n=n-1;
    if(dm==2&&dd<jqd1)n=n-1;
    gzy=n-(int)(n/60*60);
        s1=subString(gzs,gzy*2,2);   //年柱
    if(dd<jqd1){mz=1;}else{mz=0;}
    gzn1=(dy+2096)*12+dm-mz;
    gzm=gzn1-(int)(gzn1/60*60);
        s2=subString (gzs,gzm*2,2);  //月柱
    n1=alln1+9;
    gzd=n1-(int)(n1/60*60);
        s3=subString(gzs,gzd*2,2);    //日柱
    gzh=(gzd-(int)(gzd/5*5))*12;
         s4=subString(gzs,gzh*2,2);    //时柱
     dd2=intToString(dd);  //this day $
     if(len(dd2)==1)dd2="0"+dd2;    //format
     s="日期:"+dy2+" 年 "+dm2+" 月 "+dd2+ " 日";
         //cs.SetTextSize (27);
         cs.DrawText(s,sx, sy+200);
         print s ;
     bzs="八字:"+s1+" "+s2+" "+s3+" "+s4;
         cs.DrawText(bzs,sx , sy+230);
         print bzs ;
  string wh ;
        s11=subString (whs,gzy*2,2);
        s12=subString (whs,gzm*2,2);
        s13=subString (whs,gzd*2,2);
        s14=subString (whs,gzh*2,2);
        wh=s11+" "+s12+" "+s13+" "+s14 ;
         wh="五行:"+wh ;
        cs.DrawText(wh, sx, sy+260);    //output
        print wh ;
        print "  " ;

 //八字五行十二建二十八宿
        s=" " ; ss=" " ;
    s11=subString (whss,(gzy/2)*3,3);
    s12=subString (whss,(gzm/2)*3,3);
    s13=subString (whss,(gzd/2)*3,3);
    s14=subString (whss,(gzh/2)*3,3);
    s="年 : "+s1+s11;       //show 五行
    cs.DrawText (s,sx, sy+320);
         print "年: "+s1+s11 ;
    s="月 : "+s2+s12;
    cs.DrawText (s, sx, sy+350);
         print "月: "+s2+s12 ;

        n=alln1+3;             //print 二十八宿
         n1=n-n/28*28;
         s5=subString (st28ss,n1,1);
     cs.DrawText (ss, sx+190, sy+380);
         n=alln1-(dy-1900)*12-dm+10;    // 12建日
         if (dd>=jqd1)n=n-1;
         n1=n-n/12*12;
         s6=s5+subString(g12ss,n1,1);
      cs.DrawText (s6, sx+200, sy+380);
    s="日 : "+s3+s13 ;
    cs.DrawText (s, sx, sy+380);
         print "日: "+s3+s13+s6 ;
    s="时 : "+s4+s14;
    cs.DrawText (s, sx, sy+410);
          print "时: "+s4+s14 ;

 //** 八字起时 ,十二时辰对照表 *************
         x0=60;
         y0=600;
         cs.SetTextSize(24);
         s="起时 : ";
         cs.DrawText(s,x0,y0-30);
         s="23 - 1              11 - 13";
         cs.DrawText(s,x0,y0-5);
         s=" 1 -  3              13 - 15";
         cs.DrawText(s,x0,y0+20);
         s=" 3 -  5              15 - 17";
         cs.DrawText(s,x0,y0+45);
         s=" 5 -  7              17 - 19";
         cs.DrawText(s,x0,y0+70);
         s=" 7 -  9              19 - 21";
         cs.DrawText(s,x0,y0+95);
         s=" 9 - 11             21 - 23";
         cs.DrawText(s,x0,y0+120);
    for(i=0;i<6;i++){
          s5=subString(gzs,(gzh+i)*2,2);
          s6=subString(gzs,(gzh+6+i)*2,2);
          s=s5+"                  "+s6;
         cs.DrawText(s,x0+80,y0-5+i*25);     }
 string wh1, wh2, h1, h2 ;
    wh1=" ";  wh2=" ";  h1=" ";  h2=" ";
         n=gzh ;
    for(i=n ; i<n+6; i++){
         whs1=subString (whs, i*2, 2) ;
         whs2=subString (whs, (i+6)*2, 2) ;
         wh1=wh1+whs1+" " ;
         wh2=wh2+whs2+" " ;
         s5=subString(gzs, i*2,2);
         s6=subString(gzs, (i+6)*2,2);
         h1=h1+s5+" " ;
         h2=h2+s6+" " ;          }
          wh1="23 - 11  "+wh1 ;
          wh2="11 - 23  "+wh2 ;
       cs.SetTextSize (24);
        print "  " ;
        print "起时:" ;
       cs.DrawText (wh1,50,760) ;
       cs.DrawText (wh2,50,790) ;
         print "  " ;
         print "23 - 11  ", h1 ;
         print wh1 ;
         print "  " ;
         print "11 - 23  ", h2 ;
         print wh2 ;

      cs.Update () ;
}//test ( )

inputDate (){ //输入日期
string sDat[101];
     getDate(ds);    //getDate = today
     pickDate("输入日期:",ds);       //input date
        dy=ds[0];
        dm=ds[1];
        dd=ds[2];
      dy2=intToString(dy);  //this year
      dm2=intToString(dm);  //this month
      if (dm<10) dm2="0"+dm2 ;
      dd2=intToString(dd);  //this day
      if (dd<10) dd2="0"+dd2 ;
  //print "InputDate = ",dy2+"-",dm2+"-"+dd2;
      getWeekday () ;
}//inputDate()

getWeekday () {

//传人dy dm dd , 输出星期wds , 天数alln1
//计算月首日星期几 alln=... +1+1 ;
//计算当日或输入 是日 alln=... +1+dd ;
int ty, tm ;
      ty=dy;
      tm=dm;
      if (dm<3){
          ty=dy-1;
          tm=dm+12;   }
  //first day=1 this month
  //iWeek=(d+2*m+3*(m+1)/5+y+y/4-y/100+y/400)
  //mod 7   基姆拉尔森公式
      alln=2*tm+3*(tm+1)/5+ty+(int)(ty/4);
      alln=alln-(int)(ty/100)+(int)(ty/400)+1+dd;
      wd=alln-alln/7*7;      //mod (alln,7)
      wds=subString(wdss,wd*3,3);
 string yds;     //计算天数
 string ydds;
 double tms;
 yds="000031059090120151181212243273304334";

ydds=subString(yds,(dm-1)*3,3);
  tms=stringToDouble(ydds);
  alln1=(dy-1900)*365+((dy-1900-1)/4)+(int)(tms)+1;
  if ((dy-dy/4*4)==0&&dm>2)alln1=alln1+1;
      // return weekday = wds , alln1
     test () ;
}//getWeekday ()

myToolBarProc(int nBtn,int nContext){
      if(nBtn==100){//input date
            setDisplay (0);
            inputDate ( ) ;
                   }
      if(nBtn==101){//test  input
             inputDate ( ) ;
                    }
      if(nBtn==102){//关闭图板文本打印输出
            setDisplay (0);
               }
      if(nBtn==103){//显示图板
           setDisplay (1);
               }
      if(nBtn==104){//退出程序
         clearOutput();
         cs.ClearDraw (0,src);
         setDisplay (0);
          exit (0);
               }
     if(nBtn==105){//@testdraw
          setDisplay (1);
                }
}//myToolBar ()

caljq(){//calculate solar ** return jname2

  //传入dy0, n节气序数,输出节气时间
  juD=dy0*(365.2423112-0.000000000000064
     *(dy0-100)*(dy0-100)- 0.00000003047
     *(dy0-100))+15.218427*n+1721050.71301;
tht=0.0003*dy0-0.372781384-0.2617913325*n;
yrD=(1.945*sin(tht)-0.01206*sin(2*tht))
        *(1.048994-0.00002583 *dy0);
sD=-0.0018*sin(2.313908653*dy0
        -0.439822951-3.0443*n);
  //'vs = juD          '** 平气
vs = (juD + yrD + sD);  //   '** 定气
dalt=-15+(juD-2382148)*(juD-2382148)/41048480;
//print dalt;
dalt = dalt/86400;
//print dalt;
 jd = vs - 0.5 - dalt-0.025;
int gg;
gg=n-(int)(n/2*2);

jdtoGD ();
jqs1=subString (jqnames,(n-1)*2,2);
//print "jqs1 = ",jqs1;
s=jqs1+" " +jname2;
//print jname2;
}//caljq() ****************************

//calculate jd to GD ** return jname2  *****
jdtoGD(){
double a,b,c,d,e;
double F;
double allss;
F=jd-(int)(jd);
//print "   ";
//print " JD =  ",jd;
//print " 时分秒 日小数 =  ",F;
 a=(int)(jd+0.5);
 b=a+1537;
 c=(int)((b-122.1)/365.25);
 d=(int)(365.25*c);
 e=(int)((b-d)/30.6001);
dd1=b-d-(int)(30.6001*e);
dm1=e-1-(int)((e/14)*12);
dy1=c-4715-(int)((7+dm1)/10);
//print a," ",b,"  ",c,"  ",d,"  ",e;
dy2=intToString (dy);
dm2=intToString (dm);
dd2=doubleToString (dd1);
if (len(dm2)==1)dm2="0"+dm2;
if (dd1<10)dd2="0"+dd2;
dd2=subString (dd2,0,2);
//print dy2+" 年 "+dm2+" 月 "+dd2+" 日 ";
if(n==24)jqdn=(int)(dd1);
if (n==24&&dm1<3)jqdn=jqdn+1;

   //日allss 的小数转为时分秒
  allss=(int)((jd-a)*86400+43200.5);
//print "allss = ", allss;
  hh1=(int)(allss/3600);
  mm1=(int)((allss-hh1*3600)/60);
  ss1=(int)(allss-hh1*3600-mm1*60);
   if(ss1>=60){
        ss1=ss1-60;
        mm1=mm1+1;}
   if(mm1>=60){
        mm1=mm1-60;
        hh1=hh1+1;}
//print "JD  转为 GD,计算结果:”;
    hh2=doubleToString(hh1);
    mm2=doubleToString(mm1);
    ss2=doubleToString(ss1);
    if(hh1<10){
        hh2="0"+doubleToString(hh1);}
    if(mm1<10){
        mm2="0"+doubleToString(mm1);}
    if(ss1<10){
        ss2="0"+doubleToString(ss1);}
    hh2=subString (hh2,0,2);
    mm2=subString (mm2,0,2);
    ss2=subString (ss2,0,2);
    jname1=subString(jqnames,(n-1)*2,2);
    //print "节气 :  ",jname1;
     jname2=jname1+": "+dm2+"-"+dd2+"  "+hh2+":"+mm2+":"+ss2;
     //return jname2;
}//jdtoGD() **************

//**** END ****

到此这篇关于基于C语言实现计算生辰八字五行的示例详解的文章就介绍到这了,更多相关C语言计算生辰八字五行内容请搜索我们以前的文章或继续浏览下面的相关文章希望大家以后多多支持我们!

(0)

相关推荐

  • C#编写的生辰八字计算程序

    作者故意删除了注释,读不懂代码的,就加作者QQ721159175咨询吧,作者很乐意与你分享并解答~ 复制代码 代码如下: using System; using System.Collections.Generic; using System.Text; namespace ConsoleApplication1 {     class Program     {         static void Main(string[] args)         {             //假设

  • C# 实现计算生辰八字

    Form1.cs using System; using System.Collections.Generic; using System.ComponentModel; using System.Data; using System.Drawing; using System.Linq; using System.Text; using System.Windows.Forms; namespace BrithdayEigth { public partial class Form1 : F

  • 基于C语言实现计算生辰八字五行的示例详解

    本文介绍生辰八字和八字五行的一种算法.站内有人在查询生辰八字的算法,此题本人也感兴趣.故以此文以续貂尾. 生辰八字计算要点是节气日,年柱以立春起,月柱以是月节气日起,故先要计算月首的节气日.本节气算法的节气时刻精度差些,但确定节气日是可以的.程序启动时先计算干支表和对应的五行表.具体的计算方法参阅程序的注释.算法很简单,一看就明白.要注意的是,八字的时柱先输出的是起时,生日时辰十二个时辰对应下面的起时表计算.程序列示文本打印输出和图片显示输出二种方法供参考. 本文主要介绍生辰八字的算法,没有计算

  • Go语言中循环语句使用的示例详解

    目录 一.概述 1. 循环控制语句 2. 无限循环 二.Go 语言 for 循环 1. 语法 2. for语句执行过程 3. 示例 4. For-each range 循环 三.循环嵌套 1. 语法 2. 示例 四.break 语句 1. 语法 2. 示例 五. continue 语句 1. 语法 2. 示例 六.goto 语句 1. 语法 2. 示例 一.概述 在不少实际问题中有许多具有规律性的重复操作,因此在程序中就需要重复执行某些语句. 循环程序的流程图: Go 语言提供了以下几种类型循环

  • Go语言defer的一些神奇规则示例详解

    目录 测试题 分析 规则一当defer被声明时,其参数就会被实时解析 规则二 defer可能操作主函数的具名返回值 规则三 延迟函数执行按后进先出顺序执行 坑实例 测试题 defer有一些规则,如果不了解,代码实现的最终结果会与预期不一致.对于这些规则,你了解吗? 这是关于defer使用的代码,可以先考虑一下返回值. package main import ( "fmt" ) /** * @Author: Jason Pang * @Description: 快照 */ func de

  • Go语言题解LeetCode888公平糖果交换示例详解

    目录 一 描述 二 分析 三 答案 一 描述 888. 公平的糖果交换 - 力扣(LeetCode) (leetcode-cn.com) 爱丽丝和鲍勃拥有不同总数量的糖果.给你两个数组 aliceSizes 和 bobSizes ,aliceSizes[i] 是爱丽丝拥有的第 i 盒糖果中的糖果数量,bobSizes[j] 是鲍勃拥有的第 j 盒糖果中的糖果数量. 两人想要互相交换一盒糖果,这样在交换之后,他们就可以拥有相同总数量的糖果.一个人拥有的糖果总数量是他们每盒糖果数量的总和. 返回一个

  • C语言中文件常见操作的示例详解

    目录 文件打开和关闭 文件写入 文件读取 fseek函数 ftell函数 Demo示例 解决读取乱码 FILE为C语言提供的文件类型,它是一个结构体类型,用于存放文件的相关信息.文件打开成功时,对它作了内存分配和初始化. 每当打开一个文件的时候,系统会根据文件的情况自动创建一个FILE结构的变量,并填充其中的信息,使用者不必关心细节. 一般都是通过一个FILE的指针来维护这个FILE结构的变量,这样使用起来更加方便. 文件打开和关闭 C语言的安全文件打开函数为_wfopen_s和_fopen_s

  • Java 语言守护线程 Daemon Thread使用示例详解

    目录 守护线程 用户线程设为守护线程 守护线程 在Java语言中有两类线程:用户线程和守护线程.我们通俗的讲,任意一个守护线程都是整个JVM中所有线程的"大管家":只要当前Java虚拟机中还有任意一个非守护线程没有结束,它们的守护线程就不能结束,要持续工作:只有当最后一个非守护线程结束时,守护线程才随着Java虚拟机一起结束工作. 其作用就是为其他线程的运行提供服务,就像是一个护道者,保证其他线程的顺利运行 用户线程设为守护线程 我们将用户线程设为守护线程的办法就是Thread类的se

  • Go语言中的字符串处理方法示例详解

    1 概述 字符串,string,一串固定长度的字符连接起来的字符集合.Go语言的字符串是使用UTF-8编码的.UTF-8是Unicode的实现方式之一. Go语言原生支持字符串.使用双引号("")或反引号(``)定义. 双引号:"", 用于单行字符串. 反引号:``,用于定义多行字符串,内部会原样解析. 示例: // 单行 "心有猛虎,细嗅蔷薇" // 多行 ` 大风歌 大风起兮云飞扬. 威加海内兮归故乡. 安得猛士兮守四方! ` 字符串支持转义

  • 基于gin的golang web开发:路由示例详解

    Gin是一个用Golang编写的HTTP网络框架.它的特点是类似于Martini的API,性能更好.在golang web开发领域是一个非常热门的web框架. 启动一个Gin web服务器 使用下面的命令安装Gin go get -u github.com/gin-gonic/gin 在代码里添加依赖 import "github.com/gin-gonic/gin" 快速启动一个Gin服务器的代码如下 package main import "github.com/gin-

  • Go语言基础设计模式之策略模式示例详解

    目录 概述 针对同一类型问题的多种处理方式 一.不使用策略模式 二.策略模式 UML 总结 示例 概述 定义一系列算法,将每个算法封装起来.并让它们能够相互替换.策略模式让算法独立于使用它的客户而变化. 针对同一类型问题的多种处理方式 一.不使用策略模式 package main import "fmt" type User struct { Name string } func (this User) travel(t string) { switch t { case "

  • Go语言基础函数基本用法及示例详解

    目录 概述 语法 函数定义 一.函数参数 无参数无返回 有参数有返回 函数值传递 函数引用传递 可变参数列表 无默认参数 函数作为参数 二.返回值 多个返回值 跳过返回值 匿名函数 匿名函数可以赋值给一个变量 为函数类型添加方法 总结 示例 概述 函数是基本的代码块,用于执行一个任务 语法 函数定义 func 函数名称( 参数列表] ) (返回值列表]){ 执行语句 } 一.函数参数 无参数无返回 func add() 有参数有返回 func add(a, b int) int 函数值传递 fu

随机推荐