|
'--------------------------------------------------
Function getsheetname_1()
'--------------------------------------------------
Application.Volatile
Dim sheetname As String
sheetname = Application.Caller.Parent.Name
'6월1일, 6,1
Dim vX As Variant
vX = Split(Replace(Replace(sheetname, " ", ""), "일", ""), "월")
Dim vDate As Date
vDate = DateSerial(Year(VBA.Date), vX(0), vX(1))
getsheetname_1 = Array( _
Format(vDate, "yyyy년 mm월 dd일"), _
Format(vDate, "aaaa") _
)
End Function '
'
'
'--------------------------------------------------
Function getsheetname()
'--------------------------------------------------
Application.Volatile
Dim sheetname As String
sheetname = Application.Caller.Parent.Name
'6월1일, 6,1
Dim vX As Variant
vX = Split(Replace(Replace(sheetname, " ", ""), "일", ""), "월")
getsheetname = DateSerial(Year(VBA.Date), vX(0), vX(1))
End Function
|
|