Sub EndOfLastMonth()
CurrentDateTimeString = Format$(Date, "dd-MM-yy")
monthString = Month(CurrentDateTimeString)
If (monthString = 12) Then
LastMonth = 1
Else
LastMonth = monthString - 1
End If
Select Case LastMonth
Case 1, 3, 5, 7, 8, 10, 12
LastDate = 31
Case 2
LastDate = 28
Case Else
LastDate = 30
End Select
LastMonthString = LastDate & " - " & LastMonth & " - " & "2017"
MsgBox (LastMonthString)
End Sub
这段代码实现的是30-10-2017的弹窗
我需要把日期从string型转化为日期型并且赋值到某一个单元格里 请问怎么实现?
方法和详细的操作步骤如下:
1、第一步,双击以打开Excel表,见下图,转到下面的步骤。
2、第二步,执行完上面的操作之后,选择底部的工作表,然后右键单击“查看代码”选项,见下图,转到下面的步骤。
3、第三步,执行完上面的操作之后,输入日期格式转换代码,代码见下图,转到下面的步骤。
4、第四步,执行完上面的操作之后,单击工具栏中的“三角形”按钮,见下图,转到下面的步骤。
5、第五步,执行完上面的操作之后,成功显示转化为日期型,见下图。这样,就解决了这个问题了。
vba 中可以使用 CDate 函数,将符合格式的字符串转换成日期类型的数值。
CDate 函数的定义如下:
示例代码:
运行结果:
本回答被网友采纳请问可以详细讲讲吗?