当前位置:网站首页 / VBA编程 / 正文

VBA:日期转换工具

时间:2017年06月26日 | 作者 : 刘相涛 | 分类 : VBA编程 | 浏览: 591次 | 评论 0

输出日期为输入日期的第二天,如果是月末则输出日期=输入日期,另对外输出格式化。
'****************************
'日期格式转换'
'作者:刘相涛
'入参:待处理日期yyyymmdd;待处理日dd
'返回:转换后日期yyyy-mm-dd
'***************************
Function Datatransfer(KJDate As String, LastDate As String) As String
    'Dim Datatransfer As String
    '日期转换,分别针对31天、30天、28天的月份,如果支付日期为月末最后一天,则T+0,否则T+1
    Select Case LastDate
        '一三五七八十腊  31天
        Case "01", "03", "05", "07", "08", "10", "12"
            If Right(KJDate, 2) <> "31" Then
                Datatransfer = Left(KJDate, 4) & "/" & Mid(KJDate, 5, 2) & "/" & CInt(Right(KJDate, 2)) + 1
            Else
                Datatransfer = Left(KJDate, 4) & "/" & Mid(KJDate, 5, 2) & "/" & CInt(Right(KJDate, 2))
            End If
            '四六九冬 30天
        Case "04", "06", "09", "11"
            If Right(KJDate, 2) <> "30" Then
                Datatransfer = Left(KJDate, 4) & "/" & Mid(KJDate, 5, 2) & "/" & CInt(Right(KJDate, 2)) + 1
            Else
                Datatransfer = Left(KJDate, 4) & "/" & Mid(KJDate, 5, 2) & "/" & CInt(Right(KJDate, 2))
            End If
        '只有二月28天
        Case "02"
            If Right(KJDate, 2) <> "28" Then
                Datatransfer = Left(KJDate, 4) & "/" & Mid(KJDate, 5, 2) & "/" & CInt(Right(KJDate, 2)) + 1
            Else
                Datatransfer = Left(KJDate, 4) & "/" & Mid(KJDate, 5, 2) & "/" & CInt(Right(KJDate, 2))
            End If
        Case Else '
    End Select
End Function

推荐您阅读更多有关于“原创VBA编程开源人事考勤,”的文章

猜你喜欢

额 本文暂时没人评论 来添加一个吧

发表评论

必填

选填

选填

◎欢迎参与讨论,请在这里发表您的看法、交流您的观点。

名言警句
«   2019年1月   »
123456
78910111213
14151617181920
21222324252627
28293031
随机文章
友情链接
最新留言
  • ALTER TABLE member ALTER COLUMN username SET DEFAULT '亲爱的用户';
  • 留名收藏,肯定有用的
  • 文章不错非常喜欢
  • 偶然路过,博主加油!!!
  • usermod -l developer -d /home/developer -m sftp_asyn_owngroupmod -n developer sftp_asyn_own
  • 文章不错非常喜欢
  • 赞一个,学习了
  • 向下的目录可以是非root用户
  • ChrootDirectory目录必须是root用户所有,目录开始一直往上到系统根目录为止的目录拥有者都只能是 root,用户组可以不是 root, 权限是 750 或者 755
  • [root@iZ23am9cwvgZ sftpFinance]# mount -t nfs -o rw 10.174.107.216:/alidata/sftpFinance /alidata/sftpFinance mount.nfs: rpc.statd is not running but is required for remote locking.mount.nfs: Either use '-o nolock' to keep locks local, or start statd.mount.nfs: Operation not permitted[root@iZ23am9cwvgZ sftpFinance]# /sbin/service nfslock start[root@iZ23am9cwvgZ sftpFinance]#
  • chown root:root ./sftp_bill99
  • fatal: bad ownership or modes for chroot directory "/alidata/sftpFinance/sftp_own"→chown -R root:root /alidata/sftpFinance/sftp_own
  • aliyun linux 4以前的版本的重启命令:/etc/init.d/sshd restart4以后的版本重启命令:systemctl restart sshd
  • chmod 600 ./.ssh/authorized_keyschmod 700 .ssh
  • 加油,青衫慧博客域名已更换为:qsh5.cn 麻烦贵站更新一下友链,谢谢
  • 您的鼓励,我的动力
  • 我是IT客
  • 歌曲 - 歌手
    0:00