以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  求助,使用年限的表达式公式?  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=163339)

--  作者:wusim
--  发布时间:2021/4/23 20:40:00
--  求助,使用年限的表达式公式?
表达式列:当前年份-Convert(Substring([设备注册代码],11,4), \'System.Int32\')  请问当前年是什么公式?还有当算好使用年限后,当小于1年,表达式列等于“Y1”,如此计算,当大于等于15年,表达式列等于“Y15

Y1

1Y5

5Y10

10Y15

Y15

[此贴子已经被作者于2021/4/23 21:25:15编辑过]

--  作者:有点蓝
--  发布时间:2021/4/24 9:17:00
--  
表达式无法获取当前年。要使用代码计算,比如:http://www.foxtable.com/webhelp/topics/1452.htm
--  作者:wusim
--  发布时间:2021/4/24 10:19:00
--  
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:使用年限计算.table


请问不用表达式列怎样写代码? 如果使用年限以月份计算写代码? 如:当前年月:2021年4月 使用时间“2020年3月, 使用年限是1年。

还有问题统计怎样可以做到图片的统计?

图片点击可在新窗口打开查看此主题相关图片如下:2021-04-24_103841.jpg
图片点击可在新窗口打开查看

[此贴子已经被作者于2021/4/24 10:41:01编辑过]

--  作者:有点蓝
--  发布时间:2021/4/24 11:03:00
--  
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:使用年限计算.zip


--  作者:wusim
--  发布时间:2021/4/24 11:23:00
--  
如果按月计算公式是怎样编写?设备注册代码35004401042019060002 201906表示2019年6月 开始使用设备。满12个朋是1年,如:使用23个月是1年,24个朋是2年。还有问题统计怎样方式处理统计?
[此贴子已经被作者于2021/4/24 11:30:20编辑过]

--  作者:有点蓝
--  发布时间:2021/4/24 11:32:00
--  
参考:http://www.foxtable.com/webhelp/topics/2648.htm

If e.DataCol.Name = "设备注册代码"  Then
    If e.DataRow.IsNull("设备注册代码") Then
        e.DataRow("使用年限1") = Nothing
    Else
        Dim d1 As Date = cdate(e.NewValue.Substring(10,6).Insert(4,"-") & "-01")
        Dim y,m,d As Integer
        DateYMD(d1,Date.Today,y,m,d)
        e.DataRow("使用年限1") = y
    End  If
End  If

--  作者:wusim
--  发布时间:2021/4/24 11:55:00
--  
年限的问题解决了,还差问题统计,  问题项目字段内把设备的问题全部填写到同一字段,现在要求把存在的问题要求统计,统计格式类似图片

图片点击可在新窗口打开查看此主题相关图片如下:202142410405526218.jpg
图片点击可在新窗口打开查看
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:问题统计.table

[此贴子已经被作者于2021/4/24 11:58:24编辑过]

--  作者:有点蓝
--  发布时间:2021/4/24 12:13:00
--  
参考:http://www.foxtable.com/webhelp/topics/2400.htm
--  作者:wusim
--  发布时间:2021/4/24 12:45:00
--  
解决不了,帮助的例子中,实际我需求是统计,每个员工加工产品的种类的数量。我的实际应用:统计每个问题出现的次数。
[此贴子已经被作者于2021/4/24 13:19:40编辑过]

--  作者:y2287958
--  发布时间:2021/4/24 13:54:00
--  
DataTables("表A").DataCols("使用年限1").Expression = Date.Today.Year & " - Convert(Substring([设备注册代码],11,4), \'System.Int32\')"