以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  9月8日的更新可以下载了  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=358)
--  作者：狐狸爸爸
--  发布时间：2008/9/8 13:44:00
--  9月8日的更新可以下载了
1、增加农历和公历转换功能
2、数据表也可以Clear方法清除所有行。
3、增加一个CompactAccessFile函数。
4、修正了上10个bug。

农历日期

Foxtable提供了一个Lunar类型，专门用于农历和公历之间的转换。

LunarDate的属性包括：

属性 说明
Year 返回农历年
Month 返回农历月，由于可能存在闰月，所以值在1到13之间，例如某年闰7月，那么该年闰7月的Month属性为8，8月的Month属性为9
Day 返回农历日
LeapMonth 如果给定的日期在闰年，则返回第几个月是闰月，例如2007年是闰7月，等于是第8个月是闰月，所以LeapMonth属性为8
IsLeapMonth 逻辑型，给定的日期如果在闰月，则返回True
IsLeapYear 逻辑型，给定的日期如果在闰年，则返回True
SolarDate 日期型，返回公历日期
LunarDate 字符型，返回农历日期的字符表示

定义一个Lunar的语法有两种。

语法一

New Lunar(Date)

Date: 公历如期

示例

\'输出2002年3月17日对应的农历日期
Dim ln As New Lunar(#3/17/2002#)
output.show(ln.LunarDate)
\'输出2006年8月25日对应的农历日期
ln = New Lunar(#8/25/2006#)
Output.show(ln.LunarDate)
If ln.IsLeapMonth Then
    Output.Show("这是闰月!")
End If

语法二

New Lunar(Year, Month, Day, Leap)

Year： 农历年
Month: 农历月
Day:   农历日
Leap:  逻辑型，是否闰月

示例

\'获得农历2008年8月15日(中秋节)对应的阳历日期
Dim ln As New Lunar(2008,8,15,False)
output.show(ln.SolarDate)
\'获得2006年闰7月15日对应的阳历日期
ln  = New Lunar(2006,7,15,true)
output.show(ln.SolarDate)



CompactAccessFile

压缩指定的Access文件。

语法：

CompactAccessFile(File, PassWord)

File:     要压缩的Access文件名，含路径。
Password: 可选参数，用于设置Access文件的密码。

示例

CompactAccessFile("C:\\Data\\订单.mdb","123")


Clear

清除所有数据。
此命令对于查询表无效，关于查询表，后续章节会介绍。

例如：

DataTables("统计").DataRows.Clear()

如果表中有大量数据，那么清除之后，应该执行压缩数据库的命令。

如果是内部表，压缩命令为：

Syscmd.Project.Compact(False)

如果是Access格式的外部数据源，请参考：

CompactAccessFile

对于SQL Server的数据源，Foxtable没有提供压缩功能，但是SQL Server本身通过设置，可以定期自动完成此项工作。
--  作者：bjljb
--  发布时间：2008/9/8 14:02:00
--  
效率够高的！
--  作者：czy
--  发布时间：2008/9/8 14:13:00
--  
只能说声谢谢了。
--  作者：kylin
--  发布时间：2008/9/8 14:16:00
--  
敬佩牺牲午睡的精神！
--  作者：擎天柱
--  发布时间：2008/9/8 14:26:00
--  
清明节这天，能否用函数算出是几月几号？
--  作者：cuiler
--  发布时间：2008/9/8 14:37:00
--  
帮助文件也要同步更新
--  作者：擎天柱
--  发布时间：2008/9/8 14:47:00
--  
Date: 公历如期 Date: 公历日期
--  作者：lxl
--  发布时间：2008/9/8 14:49:00
--  
以下是引用擎天柱在2008-9-8 14:26:00的发言：
清明节这天，能否用函数算出是几月几号？

24节气  阴阳历都不固定
大概都是阳历4月4日、4月5日
二十四节气歌不是有两句：
每月两节不变更，最多相差一两天。
--  作者：还不错
--  发布时间：2008/9/8 15:00:00
--  
下载，试用。希望狐表越来越好。
--  作者：擎天柱
--  发布时间：2008/9/8 15:18:00
--  
以下是引用lxl在2008-9-8 14:49:00的发言：

24节气  阴阳历都不固定
大概都是阳历4月4日、4月5日
二十四节气歌不是有两句：
每月两节不变更，最多相差一两天。

有点麻烦了