# Re: 日期的问题????????????

Posted by John on October 12, 1999 at 11:13:48:

In Reply to: 日期的问题???????????? posted by mirice on October 12, 1999 at 09:40:54:

: 我想在报表上，显示每月份的1号和最后号，不知如何写出。

每个月的1号都是固定的,而每月的最后一天不是固定的,如闰年的2月就不固定,因此可以用dateadd涵数去计算每月的最后一天

以下的程式不保证可以执行,只是提供观念
宣告一个变数txtYear为年
只要输入某一西元年,阵列就可以存放月的第一天及最后一天

dim i as integer
dim txtYear as string
dim MonthFirth(12) as string '存放每月的第一天阵列
dim MonthLast(12) as string'存放每月的最后一天阵列

for i=0 to 11
if i=0 then
MonthFirth(i)=txtYear+"01/01" '每年的一月1号
MonthLath(i)=txtYear+"12/31" '每年的一月31号
else
'以每年的1/1去计算另外11个月的1号
MonthFirth(i)=dateadd("m",i,txtYear+"/01/01")
'以每年的1/31去计算另外11个月的最后一天
MonthLast(i)=dateadd("m",i,txtYear+"01/31)
end if
next

Follow Ups: