如题
解决方案 »
- 如何使多个子窗体中的一个始终置顶显示
- 如何从SQL语句中得到里面用到的所有表名?
- Dll 中使用XML出错(MsXML is notInstalled)MsXML 已经安装了 , 但是在EXE中正确
- 怎么获取DBGrid中一列中的最大值?
- 那里有介绍DELPHI概念的文章,是总体的那种
- 如果我给TreeNode.Data指定了一个类的实例,还用在释放时freemem或dispose吗?
- Flash中的fscommand命令该怎么用?
- String1中包含有String2,如何从String1中删除String2,并返回删除后的结果? 在线等待...立即结贴!
- 怎么样能得到com口的数据,很急。谢谢?
- ★★★快来抢100分★★★:请问S3显卡厂家的网址,好象不是www.s3.com,或者s3 virge-dx/gx for windowsMe的驱动程序?
- 继承时的调用问题
- 有哪位知道速达3000PRO的报表是用的什么报表控件吗?3Q
如果不是Tdatetime,可以用systemtimetodatetime(datetime:Tdatetime);把系统日期转换成delphi类型的日期
* º¯ÊýÃû³Æ£º GetDayNums *
* ¹¦ÄÜÃèÊö£º ¼ÆËãÈÎÒâÈÕÆÚÖ®¼äµÄÌìÊý *
* ÊäÈë²ÎÊý£º ÈÕÆÚ×Ö·û´® *
* Êä³ö²ÎÊý£º ÎÞ *
* ·µ »Ø Öµ£º ÌìÊý *
* ÆäËü˵Ã÷£º ÎÞ *
* ÐÞ¸ÄÈÕÆÚ °æ±¾ºÅ ÐÞ¸ÄÈË ÐÞ¸ÄÄÚÈÝ *
* -----------------------------------------------------------------------------*
* 2004.12.04 V1.2.01 kuangsong ´´½¨ *
********************************************************************************/
int GetDayNums(UINT8 acDay_one[3][MAXFIELDLEN], UINT8 acDay_two[3][MAXFIELDLEN])
{
int y1, y2;
int m1, m2;
int d1, d2;
int sum = 0;
y1 = atoi(acDay_one[2]);
y2 = atoi(acDay_two[2]); d1 = atoi(acDay_one[1]);
d2 = atoi(acDay_two[1]); m1 = atoi(acDay_one[0]);
m2 = atoi(acDay_two[0]); sum = abs(y2 - y1 - 1) * 365 + GetDaysOfLeap(y1, y2) +
GetDaysOfSameYear(y1, m1, d1, 12, 31) + GetDaysOfSameYear(y2, 1, 1, m2, d2);
return sum;
}int GetDaysOfSameYear(int y1, int m1, int d1, int m2, int d2)
{
int i;
int count = 0;
for (i = m1; i <= m2 - 1; i++)
{
switch(i)
{
case 1:
case 3:
case 5:
case 7:
case 8:
case 10:
case 12:
{
count = count + 31;
break;
}
case 4:
case 6:
case 9:
case 11:
{
count += 30;
break;
}
case 2:
{
if (IsLeapYear(y1) == 1)
count += 29;
else
count += 28;
break;
}
default:
break; }
//ÏÂÃæËãÁãÊý
if (i == m1)
{
count -= d1;
}
count += d2; //¼ÓÉÏm2ÔµÄd2Ìì
}
return count;
}int GetDaysOfLeap(int y1, int y2)
{
int count = 0;
int i;
for (i = y1; i <= y2; i++)
{
if (IsLeapYear(i) == 1)
count++;
}
return count;
}BOOL IsLeapYear(y)
{
if (((y %4 == 0) &&(y % 100 != 0))||(y % 100 == 0)) //ÈòÄê
return 1;
else
return 0;
}
在DateUnit 单元