HotWC3(V1.02)网上在线工具升级支持多种星期算法

2万 · 2011-7-18 23:26

本帖最后由 hotpower 于 2012-10-26 23:18 编辑

菜农为增加对各种星期算法及公式的验证，特意升级HotWC3。
点击直接网上运行：http://www.hotpage.net.cn/HotAjax/HotPower_HotAjax.html

菜农有关星期网文：

菜农星期公式揭秘及蔡勒公式推想

菜农与蔡勒和基姆拉尔森三个星期公式之揭秘与推想

菜农与蔡勒和基姆拉尔森三个星期公式的继续繁衍

HotWC3有关算法程序片段：

复制

 

function getweek(century, year, month, day)

{

var week, dateval, table;

if (month <= 2)//1,2月变为去年的13,14月

{

  year --;

  if (year < 0)

  {

   year = 99;

   century --; 

      if (century < 0)

      {

      century = 99;

   }

  }

  month |= 4;//1,2月查5,6月表

//  month += 12;//去年的13,14月

}

switch(weeksele.selectedIndex)

{

   case 0:

/*

菜农星期算法

星期=(百年%4*5+年+年/4+(13*月+8)/5+日)%7

*/

     week = ((century & 3) * 5 + year + (year >> 2) + Math.floor((13 * month + 8) / 5) + day) % 7;

     break;

   case 1:

/*

蔡勒星期算法

星期=百年/4+203-2*百年+年+年/4+(13*月+8)/5+日)%7

*/

     week = (Math.floor(century / 4) + 203 - 2 * century + year + (year >> 2) + Math.floor((13 * month + 8) / 5) + day) % 7;

     break;

   case 2:

/*

基姆星期算法

星期=(百年/4+百年*5+年+年/4+(13*月+8)/5+日)%7

*/

     week = (Math.floor(century / 4) + century * 5 + year + (year >> 2) + Math.floor((13 * month + 8) / 5) + day) % 7;

     break;

   case 3:

/*

菜农第二星期算法

星期=((百年*5)%20+年+年/4+(13*月+8)/5+日)%7

*/

     week = ((century * 5) % 20 + year + (year >> 2) + Math.floor((13 * month + 8) / 5) + day) % 7;

     break;

   case 4:

/*

菜农第二星期算法

星期=(((日期/100)*5)%20+日期%100+(日期%100)4+(13*月+8)/5+日)%7

*/

     dateval = century * 100 + year;

     week = ((Math.floor(dateval / 100) * 5) % 20 + year + (year >> 2) + Math.floor((13 * month + 8) / 5) + day) % 7;

     break;

   case 5:

/*

星期算法月表

星期=(百年%4*5+年+年/4+星期月表+日)%7

*/

   table = "2503514620";//3月为基月，3~12月,1,2月查5,6月表

     week = ((century & 3) * 5 + year + (year >> 2) + parseInt(table.substr(month-3, 1), 10) + day) % 7;

     break;

}

return week;

}

HotWC3网页运行贴图：

只看该作者 · 2011-7-19 08:26

沙发

只看该作者 · 2011-7-19 08:26

好好和大叔学习
大叔啥时候授课呢

2万 · 2011-7-19 09:40

准备结合rtc的例程讲讲星期公式的实际应用

只看该作者 · 2011-7-19 11:01

期待。。。
先提前学习之

2万 · 2011-7-19 11:05

实际还有GPS等星期算法的必须应用。

只看该作者 · 2011-7-19 12:43

期待大叔讲课啊

2万 · 2011-7-19 23:24

先学习基础知识

2万 · 2011-7-20 09:39

复制



void rtc_t::SetWeek(uint32_t Year, uint32_t Month, uint32_t Day)

{

        uint32_t DayOfWeek;

//月表=(13*Month+8)/5

        static const char WeekTable[]="\x2\x5\x0\x3\x5\x1\x4\x6\x2\x0";

        if (WriteEnable())

        {

                if (Month < 2)

                {

//去年

                        if (Year > 0) Year --;//2000.3~2099.12

                        else Year = 9999;

//今年的1月2月是去年的13月14月

//                        Month += 12;

//今年的1月2月是去年的5月6月

                        Month += 4;        

                }

//世纪内星期算法

//            DayOfWeek = ((Year%100)+((Year%100)>>2)+(13*Month+8)/5+Day)%7;



//菜农星期表格=(百年%4*5+年+年/4+月表+日)%7

//月表=(13*Month+8)/5

//工程编译长度合计3484个字节

            DayOfWeek = (((Year/100)&3)*5+(Year%100)+((Year%100)>>2)+WeekTable[Month-3]+Day)%7;



//菜农星期公式=((百年&3)*5+年+(年>>2)+(13*月+8)/5+日)%7

//工程编译长度合计3492个字节

//            DayOfWeek = (((Year/100)&3)*5+(Year%100)+((Year%100)>>2)+(13*Month+8)/5+Day)%7;



//基姆拉尔森星期公式=(百年/4+百年*5+年+年/4+(13*月+8)/5+日)%7

//工程编译长度合计3508个字节

//            DayOfWeek = (Year/400+(Year/100)*5+(Year%100)+((Year%100)>>2)+(13*Month+8)/5+Day)%7;



//蔡勒完整星期公式=(203+百年/4-2*百年+年+年/4+(13*月+3)/5+日+1)%7

//工程编译长度合计3508个字节

//            DayOfWeek = (203+Year/400-(Year/100)*2+(Year%100)+((Year%100)>>2)+(13*Month+8)/5+Day)%7;



//蔡勒星期公式=(百年/4-2*百年+年+年/4+(13*月+3)/5+日+1)%7

//工程编译长度合计3500个字节

//            DayOfWeek = (Year/400-(Year/100)*2+(Year%100)+((Year%100)>>2)+(13*Month+8)/5+Day)%7;



#if LOOK_H == 0

                RTCs.DWR.Bits.DWR = DayOfWeek;

#else

                RTC.DWR().DWR = DayOfWeek;

#endif

                rtc_t::DayOfWeek = DayOfWeek;

        }

}