VBA在文本框中更改日期格式

Question

我想在textbox1中插入一个日期，例如“ feb-2016”，并像我插入它一样存储在变量“ data”中。

Private Sub importa_buton_Click()
Dim data As Date
Dim luna As String
Dim anul As Integer


data = Analiza_Date.TextBox1.Value
TextBox1.Value = Format(data, "mmm-yyyy")

luna = month(data)
anul = year(data)

msgbox data
msgbox luna
msgbox anul

上面的代码为msgbox data的输出是01.02.2016，我想显示像输入“ feb-2016”

Answer 1

您可以像这样用两个函数MonthName和Year建立一个字符串

Dim str As String
str = MonthName(date, TRUE) & "-" & Year(date)

date是您的日期。 如果MonthName的第二个参数为TRUE则返回缩写而不是完整的月份名称。

Answer 2

使用以下代码进行保存：

data As Date ， anul As Integer luna As String ， anul As Integer

Private Sub importa_buton_Click()

Dim data As Date
Dim luna As String
Dim anul As Integer

data = Analiza_Date.TextBox1.value
TextBox1.value = Format(data, "mmm-yyyy")

luna = Format(data, "mmm")
anul = Year(data)

MsgBox luna & "-" & anul
MsgBox luna
MsgBox anul

End Sub