Enum reverse use? 1

[Qik3Coder]

I am working with dates. I am writing a function which accepts the month abbr and returns the integer value for the month. I was hoping that this would be super easy and i wouldnt need a case statement.

What i have:

    Class Month
        Enum Months
            JAN = 1
            FEB = 2
            MAR = 3
            APR = 4
            MAY = 5
            JUN = 6
            JUL = 7
            AUG = 8
            SEP = 9
            OCT = 10
            NOV = 11
            DEC = 12
        End Enum
        Public Shared Function strHostMonthToIntMonth(ByVal strMonth) As Integer
            Dim intMonth As Integer
            Select Case strMonth
                Case "JAN"
                    intMonth = Month.Months.JAN
                Case "FEB"
                    intMonth = Month.Months.FEB
            End Select
            Return intMonth
        End Function
    End Class

What i am trying to do is find a "one liner" for giving the string "constant" with the enum and getting the integer value back.

Thanks,


-The answer to your problem may not be the answer to your question.

 

[ThatRickGuy]

I'm not sure if it'll work (or if it's the best way) but you could try CallByName(objectref, proc name, call type). If not that, maybe through reflection.

Or someone else will post a super easy 1 line way to do it

-Rick

VB.Net Forum forum796 forum855 ASP.NET Forum
I believe in killer coding ninja monkeys.

 

[Qik3Coder]

i thought it would be possible.
I mean, you have a set of pairs, you are able to get the values from the name, why not the name from the value?

-The answer to your problem may not be the answer to your question.

 

[earthandfire]

You could try:

Class Month
	Enum Months
		JAN = 1
		FEB = 2
		MAR = 3
		APR = 4
		MAY = 5
		JUN = 6
		JUL = 7
		AUG = 8
		SEP = 9
		OCT = 10
		NOV = 11
		DEC = 12
	End Enum

	Public Shared Function strHostMonthToIntMonth(ByVal strMonth As String) As Integer

		Try
			Return CType([Enum].Parse(GetType(Months), strMonth.ToUpper), Integer)
		Catch
			Return Nothing
		End Try


	End Function
End Class

Hope this helps.

 

[ThatRickGuy]

Ha! Told ya someone would have a better way! Nice trick E&F

-Rick

VB.Net Forum forum796 forum855 ASP.NET Forum
I believe in killer coding ninja monkeys.

 

[Qik3Coder]

I almost understand what that is doing.

Now, for double or nothing (double what?):

is there a way to do the reverse of that, using the number get the string from the integer value?
So that i could give it 1 and get JAN?

Thanks,

-The answer to your problem may not be the answer to your question.

 

[Qik3Coder]

Yea...


[Enum].GetName(GetType(Month.Month), 1)


So now i can do this:

Enum MON
JAN = 1
FEB = 2
End enum

Enum Month
January = 1
February = 2
End enum

Function shortToLong(strMonAbbr as string) as string
return _
[Enum].GetName(GetType(Month), _
CType([Enum].Parse(GetType(MON), strMonth.ToUpper), Integer))
end function

so now i can give it JAN and get January...

Yea

Thanks,

-The answer to your problem may not be the answer to your question.

 

[earthandfire]

... or you could build a number of functions to give flexibilty, such as:

Class Month
	Enum ShortMonths
		JAN = 1
		FEB = 2
		MAR = 3
		APR = 4
		MAY = 5
		JUN = 6
		JUL = 7
		AUG = 8
		SEP = 9
		OCT = 10
		NOV = 11
		DEC = 12
	End Enum

	Enum FullMonths
		JANUARY = 1
		FEBRUARY = 2
		MARCH = 3
		APRIL = 4
		MAY = 5
		JUNE = 6
		JULY = 7
		AUGUST = 8
		SEPTEMBER = 9
		OCTOBER = 10
		NOVEMBER = 11
		DECEMBER = 12
	End Enum

	Public Shared Function GetMonthIntFromShortName(ByVal strMonth As String) As Integer

		Try
			Return CType([Enum].Parse(GetType(ShortMonths), strMonth.ToUpper), Integer)
		Catch
			Return Nothing
		End Try

	End Function

	Public Shared Function GetFullMonthNameFromShortMonthNameIndirect(ByVal strMonth As String) As String

		Try
			Return [Enum].GetName(GetType(FullMonths), GetMonthIntFromShortName(strMonth))
		Catch
			Return Nothing
		End Try

	End Function

Hope this helps.

 

[Qik3Coder]

That's what i was going for. I wanted the concept, so that i can use it for other things that i have, like days of the week, and stuff.

Thanks e&f and Rick

-The answer to your problem may not be the answer to your question.