金蝶K3的BOS单据，设置时间差

锁匙isthekey

已于 2023-01-14 15:56:39 修改

阅读量217

点赞数

分类专栏：金蝶K3 文章标签：制造

于 2023-01-14 15:51:56 首次发布

版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。

本文链接：https://blog.csdn.net/weixin_44819434/article/details/128685823

版权

金蝶K3 专栏收录该内容

27 篇文章 1 订阅

订阅专栏

在金蝶BOS系统中，处理日期差和时间差可以通过单据值更新事件来实现。关键在于设置小数位数为6位，并在后台公式中将差值乘以60x24以得到正确结果，否则可能会得到不预期的0.000694444。

摘要由CSDN通过智能技术生成

如果是日期差，可以参考金蝶BOS单据值更新事件实现计算日期差中的设置。
时间差方法相同，但差值需要选择“小数”，小数位数设置成6位，然后值更新事件后台更新时，公式中的差值要x60x24，否则结果会是0.000694444。
小数位是6位
小数位数为6位

在这里插入图片描述

关注

0
点赞
踩
1

收藏

觉得还不错? 一键收藏
0
评论
复制链接

分享到 QQ

分享到新浪微博

扫一扫

专栏目录

CSDN认证博客专家 CSDN认证企业博客

码龄5年

61: 原创

17万+: 周排名

3万+: 总排名

3万+: 访问

: 等级

751: 积分

109: 粉丝

120: 获赞

11: 评论

134: 收藏

私信

关注

热门文章

分类专栏

EXCEL 24篇
金蝶K3 27篇
其他 2篇
SQL
PB 2篇

最新评论

K3 装配日志（BOS插件）V2
CSDN-Ada助手: 不知道 Java 技能树是否可以帮到你：https://edu.csdn.net/skill/java?utm_source=AI_act_java
VBA：库存变化的数值，按不同时期库存数设置不同底色用以区分
CSDN-Ada助手: 不知道 Java 技能树是否可以帮到你：https://edu.csdn.net/skill/java?utm_source=AI_act_java
VBA 做临时工艺流转卡（涉及连接SQLSERVER）
锁匙isthekey: 优化其中的代码： '''''''''''''''''''''''''''''''''''''''' '方法一：数据量大时速度较慢 ' '执行查询并获取结果集 ' Set objRec = objConn.Execute(sqlstr) ' ' ' '将结果集保存到工作表 ' Set ws = ThisWorkbook.Worksheets(sheetName) ' ' '将标题写入工作表 ' For I = 0 To objRec.Fields.Count - 1 ' ws.Cells(1, I + 1).Value = objRec.Fields(I).Name ' Next I ' ActiveSheet.Range("A2").CopyFromRecordset objRec ''''''''''''''''''''''''''''''''''''''' '方法二：速度比方法一快，且自带标题 ' 执行查询并将结果存储在记录集对象中 objRec.Open sqlstr, objConn ' 设置工作表对象 Set WS = ThisWorkbook.Sheets(sheetName) ' 可以更改为你要写入数据的工作表名称 ' 将数据写入工作表 With WS.QueryTables.Add(Connection:=objRec, Destination:=WS.Range("A1")) ' .TextFileParseType = xlDelimited ' .TextFileCommaDelimiter = True ' 根据需要更改分隔符，这里使用逗号作为分隔符 .Refresh ' 或使用 .Execute，然后在下一行添加总计行（如果有）并刷新查询表格以获取数据。 End With ''''''''''''''''''''''''''''''''
VBA 在制物料任务查询（涉及引用他表、筛选、复制、赋值、格式调整、进度条、连接SQLSERVER）
锁匙isthekey: 其中一部分更改： If rowsnum > 0 Then '''''''''''''''''''''''''''''''''''''''''''''''''''' ' ' Set RGE1 = rng.Range("A1:H" & rowsnum) ' Set RGE2 = rng.Range("M1:M" & rowsnum) ' Set RGE3 = rng.Range("Z1:Z" & rowsnum) ' Set RGE4 = rng.Range("AC1:AC" & rowsnum) ' Set RGE5 = rng.Range("AF1:AF" & rowsnum) ' Set unionRGE = Union(RGE1, RGE2, RGE3, RGE4, RGE5) '合并多区域 ' '' unionRGE.Select '选择数据区域 '' Selection.Copy '复制数据 ' Sheets("查询汇总").Select '转到“查询汇总”表 ' With Sheets("查询汇总") ' .Range("A10").Select '选择A4单元格 '' .Paste '粘贴数据 ' End With ' unionRGE.Copy ' '''''''''''''''''''''''''''''''''''''''''''''''''''''''' '20231104:原本使用上面这个方法，选取每列再合并，但后来数据源不知怎么搞的， '取不来数据，因此改成此方法，将数据先复制过去后，再将没用的数据删除 Dim rngnew As Range Set rngnew = ActiveSheet.UsedRange.SpecialCells(xlCellTypeVisible) Sheets("查询汇总").Select '转到“查询汇总”表 With Sheets("查询汇总") .Range("A10").Select '选择A4单元格 rngnew.Copy .Range("A10")
PB 将数据窗口中需要的数据复制到剪切板
CSDN-Ada助手: 恭喜您完成了第20篇博客！非常高兴看到您持续创作，并分享关于PB如何将数据窗口中所需数据复制到剪切板的内容。这篇博客无疑为读者提供了有用的技巧和知识。在下一步的创作中，或许您可以考虑探讨PB中其他有趣的功能或者更深入的技术细节。您的经验和见解无疑会对我们这些正在学习和使用PB的读者有所帮助。期待您继续分享您的知识，谦虚的语气和专业的写作风格无疑会让您的博客更加受欢迎。祝愿您在下一篇的创作中取得更大的成功！

最新文章

目录

评论

被折叠的条评论为什么被折叠?

到【灌水乐园】发言

查看更多评论

添加红包

成就一亿技术人!

hope_wisdom

发出的红包

实付元

使用余额支付

点击重新获取

扫码支付

钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。