| 网站首页 | 业界新闻 | 群组 | 人才 | 下载频道 | 博客 | 代码贴 | 编程论坛
共有 267 人关注过本帖
标题:求助Year(Date) & "-" & "0001"问题
只看楼主 收藏
zzh49
Rank: 1
等 级:新手上路
帖 子:28
专家分:0
注 册:2013-4-23
结帖率:100%
  已结贴   问题点数:20  回复次数:2   
求助Year(Date) & "-" & "0001"问题
各位版主,各位朋友:
    给你们拜年了!
    祝各位新年快乐,大吉大利。想要的都拥有,期待的都实现。平安、健康、富足、好运不断!



blnAdd = True
            rs2.Open "select * from 数据表", CNN, adOpenKeyset, adLockOptimistic
            If rs2.RecordCount > 0 Then
                 rs2.MoveLast
                Text1 = Year(Date) & "-" & Format$(Val(Right$(rs2.Fields("病历号"), 3)) + 1, "0000")
           Else
                   Text1 = Year(Date) & "-" & "0001"
          End If
这是年份加数字组成的序号,当年份更新后,数字在上一年的基础上继续加1.
如2017年最后一个序号是2017-6666,到2018年第一个序号是2018-6667
我想要的是,到2018年后,序号从2018-0001开始。即年份更新后序号从年份-0001开始。
请帮助修改以上代码。
谢谢!
2018-02-21 08:20
wmf2014
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:134
帖 子:1667
专家分:9338
注 册:2014-12-6
  得分:20 
blnAdd = True
Text1 = Year(Date) & "-" & "0001"
            rs2.Open "select * from 数据表", CNN, adOpenKeyset, adLockOptimistic
            If rs2.RecordCount > 0 Then
                 rs2.MoveLast
                 if val(year(date))=val(left(rs2.Fields("病历号"),4)) then Text1 = Year(Date) & "-" & Format$(Val(Right$(rs2.Fields("病历号"), 3)) + 1, "0000")
            End If

能编个毛线衣吗?
2018-02-21 10:31
zzh49
Rank: 1
等 级:新手上路
帖 子:28
专家分:0
注 册:2013-4-23
  得分:0 
回复 2楼 wmf2014
谢谢wmf2014老师!非常好!
2018-02-21 18:28







关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.041906 second(s), 9 queries.
Copyright©2004-2018, BCCN.NET, All Rights Reserved