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