以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  月份发二位数导出  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=183897)

--  作者:nbsugu_z
--  发布时间:2022/11/18 9:58:00
--  月份发二位数导出
zn = Tables("wy_gt").Compute("Max(yy)") \'提取当月库最大的年份
dn = Tables("wy_gt0").Compute("Max(yy)") \'提取当月最大年份中的最大月份
dy = Tables("wy_gt0").Compute("Max(yy1)", "yy=" & dn) \'年份 + 月份以整数计算
Dim dny As Integer = zn & zy \'年份+月份以整数计算

老师,以上代码是正常的。如果是2022年10月份。变量dny结果是202210
                                  如果是2022的9月份,变量dny结果是20229,这样少了一位。如何月份用二位数表示,使得这是值为202209?

 上面的yy和yy1是整数型字段,用4位长度和2位长度输入的 ,比如 2022  01     2022  02...... 2022   12
[此贴子已经被作者于2022/11/18 10:07:18编辑过]

--  作者:有点蓝
--  发布时间:2022/11/18 10:12:00
--  
http://www.foxtable.com/webhelp/topics/0361.htm

Dim dny As Integer = zn & format(zy,"00")

--  作者:bjljb
--  发布时间:2022/11/18 10:15:00
--  
 Dim dny As String = zn & Format(zy,"00")
[此贴子已经被作者于2022/11/18 10:35:01编辑过]