在网站上找了一些软件时钟程序，在秒时与日历转换时，大多是逐年计算，计算周期会随着年份增加，而增多。于是自己写了一个简化的秒时与日历转换程序，按闰年周期进行除法运算，计算周期固定，不随秒时与基础年时间差增长而增长，效率明显提高。
程序带有闰年计算与星期计算，基础年为2001年1月1日0时0分0秒，算法可支持到3200年2月28日23时59分59秒。但由于RTC计数器是32位，所以硬件只能支持到2137年2月7日6时28分15秒，也足够使用了。
+ t6 U) c/ P4 |: b0 r以下为程序代码：
/****************************************************************************
* 函数名: GetRTCWeek
* 功  能: 计算Week
# z1 H, Y6 t- ~% ]& j* 输  入: 秒时
* 输  出: 无.
8 h4 {7 d7 B7 F# E8 E* 返  回: 星期
7 F) @5 b. z1 [- C*/
//u8 GetRTCWeek(RTC_T *_tRtc)
u8 GetRTCWeek(u32 lDay)
" a1 n+ J/ B# p0 u% x6 o; [5 u5 K2 p{
 //u32 lDay;
 //lDay = GetSecondFromDateTime(_tRtc)/SECOND_OF_DAY;
 lDay /= SECOND_OF_DAY;
0 l: A$ g6 Z# s/ L lDay += RTC_BASE_WEEK;
. V8 A# ?8 ~4 ?& K0 L$ H  `) J( V lDay %= 7;
" ~' ?7 i) J" u5 N. D: X. T" k return (u8)lDay;
}
+ V9 s0 Y. e$ V7 r6 M0 a9 F/****************************************************************************
( N; G( X. Y& {5 i* n* 函数名: GetSecondFromDateTime
* 功  能: 基于2001/1/1/00:00:00的日期计算秒时
* 输  入: RTC_T 日期时间结构体
# Y% p7 e+ ]( E5 }5 r. o  O5 n* 输  出: 无.
* 返  回: 秒时
*/
3 n' ^" F) i+ m4 J: Wuint32_t GetSecondFromDateTime(RTC_T *_tRtc)
{
 u32 y,sec,fy;
 const u32 *ptr;
 y = (u32)((_tRtc->year - (u16)RTC_BASE_YEAR)&0x0000FFFF);
 fy = y / 4;
 sec = fy * DAY_OF_FOURYEAR;
 if(y/100){//百年不润
      sec -= y/100;
 }
# l2 o- K' K9 d( ` if(y/400){//四百年再润
      sec += y/400;
 }
+ s. j, n/ F  S' S y %= 4;
 sec += y * DAY_OF_YEAR;
" C3 q, A' L" F- Y) R9 u, J ptr = DayOfCurrentMonthNormal;
; T- _+ |! y5 X# S if(y == 3 && _tRtc->month > 2 && IsRTCLeapYear(_tRtc->year)){//当前年为润年，并且月份已过2月，天数加1
% O$ u9 k! u7 l; `, t' j/ g- A5 Z      ptr = DayOfCurrentMonthLeap;
   }
5 R( R. F  ~% L8 d sec += ptr[_tRtc->month]; 
9 T' A8 k3 v4 p5 R& _( M sec += _tRtc->day - 1;
 sec *= 24;
' ]/ p' ]# c9 ^' r sec += _tRtc->hour;
5 B  X. q# i1 G8 j: | sec *= 60;
( Z( M! L- K! w# e# m. l$ b sec += _tRtc->minute;
0 \% ^( u' _- e& S sec *= 60;
 sec += _tRtc->second;
 return sec;
}
- @1 e. B+ D8 `9 M9 R/****************************************************************************
* 函数名: GetDateTimeFromSecond
. }- L" m- `9 t4 U+ R* 功  能: 由秒时计算基?001/1/1/00:00:00的日期
* 输  入: RTC_T 日期时间结构体
$ v, N6 P4 y2 ~# n5 r& c% J* 输  出: 无.
* 返  回: 无
*/
! K7 [% j- Y4 K# \4 g3 tvoid GetDateTimeFromSecond(u32 lSec, RTC_T *_tRtc)
9 _1 W, V/ A# r& ?5 F4 Q& ~+ X{
# B% Z% `8 m4 K  |) J# z! Y   uint16_t y,m;
   u32 lDay;
 const u32 *ptr;
   
   lDay = lSec / SECOND_OF_DAY;        /* 转为基于天的时间 */
  r$ |( y* |$ H: O _tRtc->year = RTC_BASE_YEAR;//基数年份
 y = lDay / DAY_OF_FOURYEAR;
 y *= 4;
 _tRtc->year += y;
3 Q: S- L; y! e: D, S lDay %= DAY_OF_FOURYEAR;
 if(y/100){//百年不润
  lDay += y/100;
2 O# E0 q9 x6 F& e1 S1 J }
 if(y/400){//四百年再润
) c; H0 d; k" y" ]) c. h+ z1 b( U, ~1 Y  lDay -= y/400;
: j9 R& N1 f2 A% l0 G. Z }
 y = lDay / DAY_OF_YEAR;
 _tRtc->year += y;  /* 得到年份 */
 lDay %= DAY_OF_YEAR;
 ptr = DayOfCurrentMonthNormal;
 if(y == 3 && IsRTCLeapYear(_tRtc->year)){//当前年为润年，并且月份已过2月，天数加1
+ z# ^. w$ ?9 x' w4 G  p; A  ptr = DayOfCurrentMonthLeap;
$ D3 X* e' r# l$ @! ]8 P }
 for(m=12;m>1;m--){    /* 查询月份 */
  if(lDay >= ptr[m]) {
   lDay -= ptr[m];
   break;
% Y0 O: k7 d$ D1 \  }
) z/ ^# x/ p) ^- V9 K: u }
 _tRtc->month = m;
( O, S: F* y$ J& F# {% z+ [ _tRtc->day  = lDay+1;
 _tRtc->week = GetRTCWeek(lSec);
& ^, s  V; ]% l- W/ X 
. o, x' B8 C: u/ T( U1 E% ~2 Y1 i lSec = lSec % SECOND_OF_DAY;
7 D2 ]1 z6 z' B1 l2 R _tRtc->hour = lSec / SECOND_OF_HOUR;
 lSec %= SECOND_OF_HOUR;
 _tRtc->minute  = lSec / SECOND_OF_MINUTE;
) [' D0 J$ ^8 u+ |$ C& ~5 H. w _tRtc->second  = lSec % SECOND_OF_MINUTE; 
}
9 p6 ], l$ i. A RTC.rar (3.88 KB, 下载次数: 17)

2013-9-18 13:27 上传

点击文件名下载附件