Retrieve current period in member list

Question

Dear all,
Is there any function in member lists to retrieve the current period? Example:
Month() = Returns current month
Many thanks for your help,
Benoit

Answer 1

Hi Benoit
I think you need get the actual year or month, here an example how to get them in member lists file definition.
Sub EnumMemberLists()*
'as = array of strings
Dim asYear(1)
Dim asPeriod(1)
Select Case HS.Dimension
Case "Year"
asYear(1) = "Actual Year"
HS.SetMemberLists asYear
Case "Period"
asPeriod(1) = "Actual Month"
HS.SetMemberLists asPeriod
End Select 'HS.Dimension
End Sub 'EnumMemberLists
Sub EnumMembersInList()*
Select Case HS.Dimension
Case "Year"
Select Case HS.MemberListID
Case 1 'Actual Year
HS.AddMemberToList CStr( Year( Date ) )
End Select 'HS.MemberListID Year
Case "Period"
iMonth = Month( Date )
'the label for the period is needed
If iMonth = 1 Then
sMonth = "JAN"
Else
sMonth = "DEC"
End If
Select Case HS.MemberListID
Case 1 'Mes Actual
HS.AddMemberToList sMonth
End Select 'HS.MemberListID Period
End Select 'HS.Dimension
End Sub 'EnumMembersInList