当前位置:  技术问答>java相关

有谁知道JSP写的阴阳历转换的程序

    来源: 互联网  发布时间：2015-01-24

    本文导语:  | visit my site: http://ago.4y4y.net for example package calaction; import java.sql.*; import java.util.*; public class hercal{   int[] ConvDate={0,0,0,0,0,0,0,0,0,0};   int[] tagLunarCal={0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0};   int[][] LunarCal={ { 23,  3, ...


|
visit my site: http://ago.4y4y.net for example

package calaction;
import java.sql.*;
import java.util.*;
public class hercal{
  int[] ConvDate={0,0,0,0,0,0,0,0,0,0};
  int[] tagLunarCal={0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0};
  int[][] LunarCal={
{ 23,  3, 2, 17, 1, 0, 0, 1, 0, 0, 1, 1, 0, 1, 1, 1, 0 },  /* 1936 */
{ 41,  0, 4, 23, 1, 0, 0, 1, 0, 0, 1, 0, 1, 1, 1, 0, 1 },
{ 30,  7, 5, 28, 1, 1, 0, 0, 1, 0, 0, 1, 0, 1, 1, 0, 1 },
{ 49,  0, 6, 33, 1, 1, 0, 0, 1, 0, 0, 1, 0, 1, 0, 1, 1 },
{ 38,  0, 0, 38, 1, 1, 0, 1, 0, 1, 0, 0, 1, 0, 1, 0, 1 },  /* 1940 */
{ 26,  6, 2, 44, 1, 1, 0, 1, 1, 0, 1, 0, 0, 1, 0, 1, 0 },
{ 45,  0, 3, 49, 1, 0, 1, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0 },
{ 35,  0, 4, 54, 0, 1, 0, 1, 0, 1, 1, 0, 1, 0, 1, 0, 1 },
{ 24,  4, 5, 59, 1, 0, 1, 0, 1, 0, 1, 0, 1, 1, 0, 1, 1 },  /* 1944 */
{ 43,  0, 0,  5, 0, 0, 1, 0, 0, 1, 0, 1, 1, 1, 0, 1, 1 },
{ 32,  0, 1, 10, 1, 0, 0, 1, 0, 0, 1, 0, 1, 1, 0, 1, 1 },
{ 21,  2, 2, 15, 1, 1, 0, 0, 1, 0, 0, 1, 0, 1, 0, 1, 1 },
{ 40,  0, 3, 20, 1, 0, 1, 0, 1, 0, 0, 1, 0, 1, 0, 1, 1 },  /* 1948 */
{ 28,  7, 5, 26, 1, 0, 1, 1, 0, 1, 0, 0, 1, 0, 1, 0, 1 },
{ 47,  0, 6, 31, 0, 1, 1, 0, 1, 1, 0, 0, 1, 0, 1, 0, 1 },
{ 36,  0, 0, 36, 1, 0, 1, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0 },
{ 26,  5, 1, 41, 0, 1, 0, 1, 0, 1, 0, 1, 1, 0, 1, 0, 1 },  /* 1952 */
{ 44,  0, 3, 47, 0, 1, 0, 0, 1, 1, 0, 1, 1, 0, 1, 0, 1 },
{ 33,  0, 4, 52, 1, 0, 1, 0, 0, 1, 0, 1, 1, 0, 1, 1, 0 },
{ 23,  3, 5, 57, 0, 1, 0, 1, 0, 0, 1, 0, 1, 0, 1, 1, 1 },
{ 42,  0, 6,  2, 0, 1, 0, 1, 0, 0, 1, 0, 1, 0, 1, 1, 1 },  /* 1956 */
{ 30,  8, 1,  8, 1, 0, 1, 0, 1, 0, 0, 1, 0, 1, 0, 1, 0 },
{ 48,  0, 2, 13, 1, 1, 1, 0, 1, 0, 0, 1, 0, 1, 0, 1, 0 },
{ 38,  0, 3, 18, 0, 1, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1 },
{ 27,  6, 4, 23, 1, 0, 1, 0, 1, 1, 0, 1, 0, 1, 0, 1, 0 },  /* 1960 */
{ 45,  0, 6, 29, 1, 0, 1, 0, 1, 0, 1, 1, 0, 1, 0, 1, 0 },
{ 35,  0, 0, 34, 0, 1, 0, 0, 1, 0, 1, 1, 0, 1, 1, 0, 1 },
{ 24,  4, 1, 39, 1, 0, 1, 0, 0, 1, 0, 1, 0, 1, 1, 1, 0 },
{ 43,  0, 2, 44, 1, 0, 1, 0, 0, 1, 0, 1, 0, 1, 1, 1, 0 },  /* 1964 */
{ 32,  0, 4, 50, 0, 1, 0, 1, 0, 0, 1, 0, 0, 1, 1, 0, 1 },
{ 20,  3, 5, 55, 1, 1, 1, 0, 1, 0, 0, 1, 0, 0, 1, 1, 0 },
{ 39,  0, 6,  0, 1, 1, 0, 1, 1, 0, 0, 1, 0, 1, 0, 1, 0 },
{ 29,  7, 0,  5, 0, 1, 0, 1, 1, 0, 1, 0, 1, 0, 1, 0, 1 },  /* 1968 */
{ 47,  0, 2, 11, 0, 1, 0, 1, 0, 1, 1, 0, 1, 0, 1, 0, 1 },
{ 36,  0, 3, 16, 1, 0, 0, 1, 0, 1, 1, 0, 1, 1, 0, 1, 0 },
{ 26,  5, 4, 21, 0, 1, 0, 0, 1, 0, 1, 0, 1, 1, 1, 0, 1 },
{ 45,  0, 5, 26, 0, 1, 0, 0, 1, 0, 1, 0, 1, 1, 0, 1, 1 },  /* 1972 */
{ 33,  0, 0, 32, 1, 0, 1, 0, 0, 1, 0, 0, 1, 1, 0, 1, 1 },
{ 22,  4, 1, 37, 1, 1, 0, 1, 0, 0, 1, 0, 0, 1, 1, 0, 1 },
{ 41,  0, 2, 42, 1, 1, 0, 1, 0, 0, 1, 0, 0, 1, 0, 1, 1 },
{ 30,  8, 3, 47, 1, 1, 0, 1, 0, 1, 0, 1, 0, 0, 1, 0, 1 },  /* 1976 */
{ 48,  0, 5, 53, 1, 0, 1, 1, 0, 1, 0, 1, 0, 1, 0, 0, 1 },
{ 37,  0, 6, 58, 1, 0, 1, 1, 0, 1, 1, 0, 1, 0, 1, 0, 1 },
{ 27,  6, 0,  3, 1, 0, 0, 1, 0, 1, 1, 0, 1, 1, 0, 1, 0 },
{ 46,  0, 1,  8, 1, 0, 0, 1, 0, 1, 0, 1, 1, 0, 1, 1, 0 },  /* 1980 */
{ 35,  0, 3, 14, 0, 1, 0, 0, 1, 0, 0, 1, 1, 0, 1, 1, 1 },
{ 24,  4, 4, 19, 1, 0, 1, 0, 0, 1, 0, 0, 1, 0, 1, 1, 1 },
{ 43,  0, 5, 24, 1, 0, 1, 0, 0, 1, 0, 0, 1, 0, 1, 1, 1 },
{ 32, 10, 6, 29, 1, 0, 1, 1, 0, 0, 1, 0, 0, 1, 0, 1, 1 },  /* 1984 */
{ 50,  0, 1, 35, 0, 1, 1, 0, 1, 0, 1, 0, 0, 1, 0, 1, 0 },
{ 39,  0, 2, 40, 0, 1, 1, 0, 1, 1, 0, 1, 0, 1, 0, 0, 1 },
{ 28,  6, 3, 45, 1, 0, 1, 0, 1, 1, 0, 1, 1, 0, 1, 0, 0 },
{ 47,  0, 4, 50, 1, 0, 1, 0, 1, 0, 1, 1, 0, 1, 1, 0, 1 },  /* 1988 */
{ 36,  0, 6, 56, 1, 0, 0, 1, 0, 0, 1, 1, 0, 1, 1, 1, 0 },
{ 26,  5, 0,  1, 0, 1, 0, 0, 1, 0, 0, 1, 0, 1, 1, 1, 1 },
{ 45,  0, 1,  6, 0, 1, 0, 0, 1, 0, 0, 1, 0, 1, 1, 1, 0 },
{ 34,  0, 2, 11, 0, 1, 1, 0, 0, 1, 0, 0, 1, 0, 1, 1, 0 },  /* 1992 */
{ 22,  3, 4, 17, 0, 1, 1, 0, 1, 0, 1, 0, 0, 1, 0, 1, 0 },
{ 40,  0, 5, 22, 1, 1, 1, 0, 1, 0, 1, 0, 0, 1, 0, 1, 0 },
{ 30,  8, 6, 27, 0, 1, 1, 0, 1, 0, 1, 1, 0, 0, 1, 0, 1 },
{ 49,  0, 0, 32, 0, 1, 0, 1, 1, 0, 1, 0, 1, 1, 0, 0, 1 },  /* 1996 */
{ 37,  0, 2, 38, 1, 0, 1, 0, 1, 0, 1, 1, 0, 1, 1, 0, 1 },
{ 27,  5, 3, 43, 1, 0, 0, 1, 0, 0, 1, 1, 0, 1, 1, 0, 1 },
{ 46,  0, 4, 48, 1, 0, 0, 1, 0, 0, 1, 0, 1, 1, 1, 0, 1 },
{ 35,  0, 5, 53, 1, 1, 0, 0, 1, 0, 0, 1, 0, 1, 1, 0, 1 },  /* 2000 */
{ 23,  4, 0, 59, 1, 1, 0, 1, 0, 1, 0, 0, 1, 0, 1, 0, 1 },
{ 42,  0, 1,  4, 1, 1, 0, 1, 0, 1, 0, 0, 1, 0, 1, 0, 1 },
{ 31,  0, 2,  9, 1, 1, 0, 1, 1, 0, 1, 0, 0, 1, 0, 1, 0 },
{ 21,  2, 3, 14, 0, 1, 0, 1, 1, 0, 1, 0, 1, 0, 1, 0, 1 },  /* 2004 */
{ 39,  0, 5, 20, 0, 1, 0, 1, 0, 1, 1, 0, 1, 0, 1, 0, 1 },
{ 28,  7, 6, 25, 1, 0, 1, 0, 1, 0, 1, 0, 1, 1, 0, 1, 1 },
{ 48,  0, 0, 30, 0, 0, 1, 0, 0, 1, 0, 1, 1, 1, 0, 1, 1 },
{ 37,  0, 1, 35, 1, 0, 0, 1, 0, 0, 1, 0, 1, 1, 0, 1, 1 },  /* 2008 */
{ 25,  5, 3, 41, 1, 1, 0, 0, 1, 0, 0, 1, 0, 1, 0, 1, 1 },
{ 44,  0, 4, 46, 1, 0, 1, 0, 1, 0, 0, 1, 0, 1, 0, 1, 1 },
{ 33,  0, 5, 51, 1, 0, 1, 1, 0, 1, 0, 0, 1, 0, 1, 0, 1 },
{ 22,  4, 6, 56, 1, 0, 1, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0 },  /* 2012 */
{ 40,  0, 1,  2, 1, 0, 1, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0 },
{ 30,  9, 2,  7, 0, 1, 0, 1, 0, 1, 0, 1, 1, 0, 1, 0, 1 },
{ 49,  0, 3, 12, 0, 1, 0, 0, 1, 0, 1, 1, 1, 0, 1, 0, 1 },
{ 38,  0, 4, 17, 1, 0, 1, 0, 0, 1, 0, 1, 1, 0, 1, 1, 0 },  /* 2016 */
{ 27,  6, 6, 23, 0, 1, 0, 1, 0, 0, 1, 0, 1, 0, 1, 1, 1 },
{ 46,  0, 0, 28, 0, 1, 0, 1, 0, 0, 1, 0, 1, 0, 1, 1, 0 },
{ 35,  0, 1, 33, 0, 1, 1, 0, 1, 0, 0, 1, 0, 0, 1, 1, 0 },
{ 24,  4, 2, 38, 0, 1, 1, 1, 0, 1, 0, 0, 1, 0, 1, 0, 1 },  /* 2020 */
{ 42,  0, 4, 44, 0, 1, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1 },
{ 31,  0, 5, 49, 1, 0, 1, 0, 1, 1, 0, 1, 0, 1, 0, 1, 0 },
{ 21,  2, 6, 54, 0, 1, 0, 1, 0, 1, 0, 1, 1, 0, 1, 0, 1 },
{ 40,  0, 0, 59, 0, 1, 0, 0, 1, 0, 1, 1, 0, 1, 1, 0, 1 },  /* 2024 */
{ 28,  6, 2,  5, 1, 0, 1, 0, 0, 1, 0, 1, 0, 1, 1, 1, 0 },
{ 47,  0, 3, 10, 1, 0, 1, 0, 0, 1, 0, 0, 1, 1, 1, 0, 1 },
{ 36,  0, 4, 15, 1, 1, 0, 1, 0, 0, 1, 0, 0, 1, 1, 0, 1 },
{ 25,  5, 5, 20, 1, 1, 1, 0, 1, 0, 0, 1, 0, 0, 1, 1, 0 },  /* 2028 */
{ 43,  0, 0, 26, 1, 1, 0, 1, 0, 1, 0, 1, 0, 0, 1, 0, 1 },
{ 32,  0, 1, 31, 1, 1, 0, 1, 1, 0, 1, 0, 1, 0, 1, 0, 0 },
{ 22,  3, 2, 36, 0, 1, 1, 0, 1, 0, 1, 1, 0, 1, 0, 1, 0 } };
  int FIRSTYEAR=1936;  /* The first year in LunarCal[] */
  int LASTYEAR=2031;//#define LASTYEAR (FIRSTYEAR+sizeof(LunarCal)/sizeof(struct tagLunarCal)-1)
  /* 西历年每月之日数 */
  int SolarCal[] = { 31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31 };

  /* 西历年每月之累积日数, 平年与闰年 */
  int SolarDays[][] = {
{ 0, 31, 59, 90, 120, 151, 181, 212, 243, 273, 304, 334, 365, 396 },
{ 0, 31, 60, 91, 121, 152, 182, 213, 244, 274, 305, 335, 366, 397 } };
/* 求此西历年是否为闰年, 返回 0 为平年, 1 为闰年 */

String[] ssFtv = {
"元旦",
"情人节",
"妇女节",
"植树节",
"消费者权益日",
"愚人节",
"劳动节",
"青年节",
"郝维节",
"护士节",
"儿童节",
"建党节 香港回归纪念",
"建军节",
"父亲节",
"燕衔泥节",
"毛泽东逝世纪念aa",
"教师节",
"孔子诞辰",
"国庆节",
"老人节",
"联合国日",
"孙中山诞辰纪念",
"澳门回归纪念",
"圣诞节",
"毛泽东诞辰纪念"};
int[] isFtv = {
101,
214,
308,
312,
315,
401,
501,
504,
509,
512,
601,
701,
801,
808,
816,
909,
910,
928,
1001,
1006,
1024,
1112,
1220,
1225,
1226};



//农历节日 *表示放假日
String[] slFtv = {
"春节、弥勒佛圣诞!",
"定光佛圣诞",
"元宵节",
"释迦牟尼佛出家",
"释迦牟尼佛涅槃",
"海空上师生日!",
"观世音菩萨圣诞",
"普贤菩萨圣诞",
"准提菩萨圣诞",
"文殊菩萨圣诞",
"释迦牟尼佛圣诞",
"佛吉祥日——释迦牟尼佛诞生、成道、涅槃三期同一庆(即南传佛教国家的卫塞节)",
"端午节",
"伽蓝菩萨圣诞",
"护法韦驮尊天菩萨圣诞",
"观世音菩萨成道——此日放生、念佛，功德殊胜",
"七夕情人节",
"大势至菩萨圣诞",
"中元节",
"龙树菩萨圣诞",
"地藏菩萨圣诞",
"中秋节",
"燃灯佛圣诞",
"重阳节",
"观世音菩萨出家纪念日",
"药师琉璃光如来圣诞",
"达摩祖师圣诞",
"阿弥陀佛圣诞",
"释迦如来成道日,腊八节",
"小年",
"华严菩萨圣诞",
"除夕"};
int[] ilFtv = {
101,
106,
115,
208,
215,
209,
219,
221,
316,
404,
408,
415,
505,
513,
603,
619,
707,
713,
715,
724,
801,//not 730???
815,
822,
909,
919,
930,
1005,
1107,
1208,
1224,
1229,
100};



//某月的第几个星期几
String[] swFtv = {
"母亲节",
"合作节",
"被奴役国家周"};
int[] iwFtv = {
0520,
0716,
0730};

String[] sjqFtv={  //农历表示
"处暑",
"白露",
"秋分",
"寒露",
"霜降",
"立冬",
"小雪",
"大雪",
"冬至",
"小寒",
"大寒",
"立春",
"雨水",
"惊蛰",
"春分",
"清明"};
int[] ijqFtv={
705,
720,
807,
822,
907,
922,
1008,
1023,
1108,
1122,
1208,
1223,
108,
123,
208,
223};

int bir=17;
String[] Gan={"甲","乙","丙","丁","戊","己","庚","辛","壬","癸"};
String[] Zhi={"子","丑","寅","卯","辰","巳","午","未","申","酉","戌","亥"};

public int GetLeap( int year )
{
  if ( year % 400 == 0 )
    return 1;
  else if ( year % 100 == 0 )
    return 0;
  else if ( year % 4 == 0 )
    return 1;
  else
    return 0;
}

/* 西历农历转换 */
public int CalConv(int[] cd,int[] tgYearMonth, String[] fesStr)
{
  //tgYearMonth[0][1]:年的干之
  //tgYearMonth[2][3]:月的干之
  //fesStr[0]     :节日
  //fesStr[1]     :戍子年戍子月戍子日
  //fesStr[2]     :蛇年
  //fesStr[3]     :节日(没有
标签)
  int leap, d, sm, y, im, l1, l2, acc, i, lm, kc;
  if ( cd[0] == 0 )  /* Solar */
  {
    if ( cd[1]  LASTYEAR )
      return 1;
    sm = cd[2] - 1;
    if ( sm  11 )
      return 2;
    leap = GetLeap( cd[1] );
    if ( sm == 1 )
      d = leap + 28;
    else
      d = SolarCal[sm];
    if ( cd[3]  d )
      return 3;
    y = cd[1] - FIRSTYEAR;
    acc = SolarDays[leap][sm] + cd[3];
    cd[7] = ( acc + LunarCal[y][2] ) % 7;
    kc = acc + LunarCal[y][3];
    cd[8] = kc % 10;
    cd[9] = kc % 12;
    if ( acc  LunarCal[y][4+lm] + 29 )
      return 3;
    acc = LunarCal[y][0];
    for ( i=0; i=0; i-- )
      if ( acc > SolarDays[leap][i] )
        break;
    cd[3] = acc - SolarDays[leap][i];
    if ( i 

    
 
 

您可能感兴趣的文章:

 
本站(WWW.)旨在分享和传播互联网科技相关的资讯和技术，将尽最大努力为读者提供更好的信息聚合和浏览方式。
本站(WWW.)站内文章除注明原创外，均为转载、整理或搜集自网络。欢迎任何形式的转载，转载请注明出处。












  • 相关文章推荐
  • 请问有谁知：“空格”对应%20, “<“对应%3C，这是几进制或是什么格式的转换？
  • unix有一个工具，可以对自己编写的C程序进行符合各种编码风格的输出转换，谁知道？
  • 谁知道websphere的试用版怎么做掉？
  • 谁知道有类似启动kde的指令startkde，来启动gnome?
  • 谁知道jdbc有什么好一点的书，一定给分
  • 请问JBulider 4的序列号谁知到？能否提供给小弟？谢谢
  • 谁知道jbuilder3的KEY
  • 谁知道在哪儿可以找到Imap 4.5
  • 请问谁知道那有classes.zip for jdk1.2 ?
  • 谁知道哪儿有jbuilder5下载
  • 有谁知道关于Applet中怎么样调用html. 50分全送
  • jbuilder5企业版的序列号谁知道？
  • 谁知道JB的书籍下载？
  • 谁知道websphere4该怎么设置
  • 谁知道java认证的日期？
  • 谁知道Borland application server 5.0的serial number 和 key?
  • 网络技术 iis7站长之家
  • 谁知道如何写脚本，一开机就执行某程序？
  • 谁知道哪里有jbulider4下载，我的机器跑jbulider5很慢！
  • 谁知道如何使用sygate作二级代理〉？？
  • 有谁知道哪有下载 JB6 的地方？谢谢
  • 谁知道MySQL的驱动接口程序在那里下载？


    • 站内导航:


    特别声明:169IT网站部分信息来自互联网,如果侵犯您的权利,请及时告知,本站将立即删除！

    ©2012-2021,,E-mail:www_#163.com(请将#改为@)

    浙ICP备11055608号-3