VBA判断日期与字符串拼接

我有一个需求，比如我dim a ,b as string,a=format(date,"yyyymmdd"),b="0001"
在A1单元格自动得到201807290001，在今天之内第二次点击控件时，判断A1单元格里的前八位，即20180729是不是当天的日期，如果是，则b+1，显示201807290002，依次类推，如果7月30日第一次点击控件时，A1单元格的值则自动变为201807300001，第二次点击时，则显示为201807300002，求代码

推荐答案 2018-07-29

答：

Sub Demo()
    On Error Resume Next
    Dim CurDate As Date
    CurDate = DateValue(Application.Text(Left(Range("A1"), 8), "0000-00-00"))
    If CurDate = Date Then
        Range("A1") = Left(Range("A1"), 8) & Format(CLng(Right(Range("A1"), 4)) + 1, "0000")
    Else
        Range("A1") = Format(Date, "yyyymmdd") & "0001"
    End If
End Sub

温馨提示：答案为网友推荐，仅供参考

当前网址：https://verywind.cn/ee/yy2jv77f2x7xfr2eve.html

你可能感兴趣的内容

大家正在搜

日期转字符串字符串如何转化为日期字符串转换成日期日期类型转换成字符串 js 字符串转日期 mysql字符串转日期 java检验日期时间字符串从字符串转换成日期失败拼接字符串

非常风气网www.verywind.cn

VBA判断日期与字符串拼接

相关了解……

你可能感兴趣的内容