标题：时间相减的书写格式

1楼

zhangchi96 发表于：2023/10/11 15:42:00

由于对日期的格式了解少，请教一个日期的计算表达：

( 在 DataColChanded 事件中)

e.DataRow("年龄") = DateDiff( 'y' , # '08/31/' & Vars("年度") # , e.DataRow("出生日期"))

其中：

Vars("年度"): 全局变量

e.DataRow("年龄") ：是整数列

e.DataRow("出生日期") ：是日期时间型

'y' ：希望返回一个两个日期的间隔的年月日的结果中的年份

请大师多多指教！

2楼

有点蓝 发表于：2023/10/11 15:44:00

3楼

zhangchi96 发表于：2023/10/11 16:13:00

谢谢蓝老师！！

我写成这样，计算成功了

Dim y,m,d As Integer

DateYMD( e.DataRow("出生日期") ,# 08/31/2023 # ,y,m,d )

e.DataRow("年龄") = y

但其中的 # 08/31/2023 #，我想用 # 08/31/ & Vars("年度") # 来表示，请问规范写法是哪样？

4楼

有点蓝 发表于：2023/10/11 16:14:00

DateYMD( e.DataRow("出生日期") ,new date(Vars("年度"),8,31) ,y,m,d )

[此贴子已经被作者于2023/10/11 17:03:01编辑过]

5楼

zhangchi96 发表于：2023/10/11 16:59:00

我改为了： DateYMD( e.DataRow("出生日期") , cdate( Vars("年度") & "-8-31" ) , y , m , d )

结果是有效的。

谢谢蓝老师！！！

共5 条记录, 每页显示 10 条, 页签: [1]