| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 求助，一个问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=94121) |
| -- 作者：wandongliang -- 发布时间：2016/12/15 22:00:00 -- 求助，一个问题 同样的一段代码，如下： Dim c1 As Date = Vars("签到时间") Dim b1 As String = CStr(c1).Remove(0,5).Replace("-",".").TrimStart("0") e.DataRow("近期签到记录") =e.DataRow("近期签到记录") & b1 & "有事" 在不同的电脑上运行，出现不同的结果。 比如签到时间为2016年11月4号 有的电脑 “近期签到记录” 为 11.4有事 有的电脑则显示为 4/11有事 还有的电脑显示为 11.4 星期五 有事 猜测可是是因为电脑不同，系统设置不同的原因，那么请教各位老师，怎么样才能以最简单的方法，使得每一台电脑运行以上代码时，在不更改电脑设置的情况下，使得显示结果都为 11.4有事 ？ |
| -- 作者：有点蓝 -- 发布时间：2016/12/15 22:19:00 -- 统一一下项目的日期格式，参考 |
| -- 作者：有点色 -- 发布时间：2016/12/16 8:44:00 -- Dim c1 As Date = Vars("签到时间")
Dim b1 As String = format(c1, "MM.dd")
e.DataRow("近期签到记录") =e.DataRow("近期签到记录") & b1 & "有事" |