VBAテキストボックスの日付書式を変更する

Question

「feb-2016」のような日付をtextbox1に挿入し、「データ」という変数に「挿入」したいと思います。 msgbox 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 

は2016年2月1日であると私は、入力「2月-2016」のように表示したい

Answer 1

は、保存するために、次のコードを使用します

data As Date、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 

Answer 2

次のような二つの機能MonthNameとYearで文字列を構築することができます

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

ここで、dateはあなたの日付です。 MonthNameの2番目の引数がTRUEの場合、完全な月名ではなく省略形が返されます。