新手问一问题?
销售管理软件版1楼: 一张日数据表,怎样生成月数据表,要求是自动实时动态生成的,即根据日数据表的随时更新情况,来自动生成月数据表。我们知道每年每个月的天数都不一样,我们总不能简单地理解为:月=日*30吧[:)]
begin
if (Month = 2) and (((Year mod 4 = 0) and (Year mod 100 <> 0)) or (Year mod 400 = 0)) then
Result := 29
else Result := MonthDays[Month];
end;
2楼: 不明白,日期里面不是有月信息吗?比如xxx年x月x日,这样不就可以统计了吗?楼主的日没有存这个信息?如果存了取子字符串就可以了, 或者干脆点直接取一个日期里面的月的天数,DateUtils单元里面有,记不得是哪个了管家婆财务软件官网
3楼: uses DateUtils;
function DayOfTheMonth(const AValue: TDateTime): Word;
通过日期得到这个月的天数。是这个意思吗?
4楼: 你的日報表里應該有日期信息吧,統計時根據月份統計不就好了
select * from tablename where Year(日期)=''2005'' and Month(日期)=''9''
5楼: 取得每月天数好办,其它没看明白
type
TMonth = 1..12;
const
MonthDays: array[TMonth] of Integer = (31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31);
function GetMonthDay(const Year: LongWord; const Month: TMonth): Word;
begin
if (Month = 2) and (((Year mod 4 = 0) and (Year mod 100 <> 0)) or (Year mod 400 = 0)) then
Result := 29
else Result := MonthDays[Month];
end;
6楼: 是呀,就是大致的意思自动计算出天数,自动按每月生成一个月数据表,比如有一张记帐表
这张表供客户操作,每日都有出帐入帐的记录,现在我要到年末的时候要系统自动对这张表自动统计出每月的数据,来看出这年每月出入帐的数据;并能随时根据日记帐的更新状况来实时统计出月表,当然这个过程只在后台自动运行。
销售管理软件版7楼: 多人接受答案了。