建立自由的会计日期的报表

2016-02-19 16:48 9 1 收藏

想不想get新技能酷炫一下,今天图老师小编就跟大家分享个简单的建立自由的会计日期的报表教程,一起来看看吧!超容易上手~

【 tulaoshi.com - 编程语言 】

  Microsoft Access 的报表提供按日期分组的统计,可是只能是完整的年、月、日等,也就是说比如要统计一个月的数据就必须是从月初到月底。

  我们编写程序,有许多是工作中的统计系统,而单位的各项统计又以会计日期为准,会计日期不一定从1日到31日,有的公司就是从上个月的26日到这个月的25日算一个月,这样用 Access 的报表向导自动生成的报表就不成了。当然,还是我们自己动手实现吧,其实很简单,一学就会。

  1.认识几个有关时间的函数

  1.Cdate(日期表达式)

(本文来源于图老师网站,更多请访问http://www.tulaoshi.com/bianchengyuyan/)

  将日期表达式转换成日期类型的数据。

  日期表达式是任何可以解释成日期的表达式,包含日期文字,可以看作日期的字符串以及从函数返回的日期。

  比如:myDate = CDate("99-5-20")  ,这样的日期表达式必须加双引号,否则结果不可预料。

  CDate 依据系统上的区域设置来决定日期的格式。如果提供的格式为不可识别的日期设置,则不能正确判断年、月、日的顺序。

  2.Now()

  返回当前计算机系统设置的日期和时间。

  3.Year(日期表达式)

  返回表示年份的整数。

  比如:Year("00-6-15") = 2000

  4.Month(日期表达式)

  返回 1 到 12 之间的整数,表示一年中的某月。

  比如:Month("00-6-15") = 6

  5.DateAdd(interval, number, date)

  返回一个日期,这一日期加上了一段时间间隔。可以用 DateAdd 来计算距今天为三十天的日期;或者计算距现在为 45 分钟的时间。

  DataAdd 函数参数参数

  说明

interval字符串表达式,是所要加上去的时间间隔的单位。number数值表达式,是要加上的时间间隔的数目。其数值可以为正数(得到未来的日期),也可以为负数(得到过去的日期)。date日期表达式,这一日期还加上了时间间隔。

  interval 参数设定值值说明yyyy年q季m月y一年的日数d日w一周的日数ww周h时n分钟s秒

  比如:

  DateAdd("d",10,"2000-6-18") = 2000-06-28

  DateAdd("m",-1,"2000-6-18") = 2000-05-18

  2.创建让用户选择日期窗体

  创建一个窗体,添加以下控件:一个年组合框,一个月组合框,一个开始日期文本框,一个结束日期文本框。如果添加组合框时出现控件向导,取消向导。

  把年组合框的数据属性设置如上图,这样用户就只能选择1999-2002年,当然还可以再增加年份。默认值为当前日期的年份。

  和年组合框类似,把月组合框的数据属性设置如上图,这样用户就只能选择1-12月。默认值为当前日期的月份。

(本文来源于图老师网站,更多请访问http://www.tulaoshi.com/bianchengyuyan/)

  3.根据用户选择的日期自动计算期初和期末日期

  在开始日期文本框的控件

来源:http://www.tulaoshi.com/n/20160219/1613158.html

延伸阅读
类似EXCEL的报表类库 作者:朱志雄 下载源代码 此代码是一个电子表格类库,还不是很完善,希望大家给多点意见和建议,我会尽快把相应功能丰富进去的。我的信箱:zzxiong@citiz.net现在这个sample不是很完整,我也正在完善中,相应的函数接口到时我会整理成一个文档发布给大家。 声明:对于此代码中可能引用了...
以下是引用片段: Dim db As ADODB.Connection   Dim i As Integer '用来标记前一个控件的编号   Dim ii As Integer '用来标记目前控件的标号   Dim path As String   Set db = New ADODB.Connection       db.CursorLocation = adUseClient '设置游标引擎的位置为客户游标。  &...
控制项的 window handle 是在 CreateWnd 方法中建立的。如果你想要在建立 window handle 後接着做某些动作那麽你应该改写 CreateWnd 方法: procedure TMyClass.CreateWnd;begin// 现在还没取得 window handleinherited CreateWnd;// 呼叫 inherited 以取得 window handle// 在这里撰写你想要执行的动作end
标签: PHP
  这几天突然有很多的人问这样的问题,就是如何在PHP中实现在VB中的DateAdd的函数,呵呵!这个可是问个正着。 本来这个问题是 豆腐 去 华为 应聘的时候的一个考试题,不过当时是用C++实现的。没有想到这样的大公司,竟 然用这样的小儿科来考试:),后来我没有去,这两天 应 http://www.chinaspx.com 的 网友--》运气,用PHP重新 写了这个...
  环境:Win2000,vb.net 2002,.net framework 1.0,sql server 2000 在默认情况下DATAGRID显示的SQL SERVER 2000中的日期时间列时,只显示了日期部分,下法可显示长日 期格式(yyyy-mm-dd hh:mm:ss)             Dim myDataGridTableStyle As New DataGridTableStyle()  &nbs...

经验教程

514

收藏

90
微博分享 QQ分享 QQ空间 手机页面 收藏网站 回到头部