How get the month values

[Steven]

I have got the return value of MonthsOfYear Property of the IMonthlyTrigger
Interface, but how to return months?
http://msdn2.microsoft.com/en-us/lib...36(VS.85).aspx

My return value is 84, it shuld be 3,5,7 month, but i do not know how to get
the three months using bitwise mask.

Regards
Steven

[Tom Shelton]

On Mar 26, 9:01*pm, "Steven" <[e-mail]:

I have got the return value of MonthsOfYear Property of the IMonthlyTrigger
Interface, but how to return months?http://msdn2.microsoft.com/en-us/lib...36(VS.85).aspx

My return value is 84, it shuld be 3,5,7 month, but i do not know how to get
the three months using bitwise mask.

Regards
Steven

Steven - It's a bit mask.

Module Module1

<Flags()_
Enum Months
January = &H1
February = &H2
March = &H4
April = &H8
May = &H10
June = &H20
July = &H40
August = &H80
September = &H100
October = &H200
November = &H400
December = &H800
End Enum

Sub Main()
Dim m As Months = Months.March Or Months.May Or Months.July
Console.WriteLine(m)
End Sub

End Module

HTH,

--
Tom Shelton

[yxq]

Thank you, but i want to know how to get months from 84.

"Tom Shelton" <to*********@comcast.net写入消�
news:cf**********************************@u10g2000 prn.googlegroups.com...
On Mar 26, 9:01 pm, "Steven" <[e-mail]:

I have got the return value of MonthsOfYear Property of the
IMonthlyTrigger
Interface, but how to return
months?http://msdn2.microsoft.com/en-us/lib...36(VS.85).aspx

My return value is 84, it shuld be 3,5,7 month, but i do not know how to
get
the three months using bitwise mask.

Regards
Steven

Steven - It's a bit mask.

Module Module1

<Flags()_
Enum Months
January = &H1
February = &H2
March = &H4
April = &H8
May = &H10
June = &H20
July = &H40
August = &H80
September = &H100
October = &H200
November = &H400
December = &H800
End Enum

Sub Main()
Dim m As Months = Months.March Or Months.May Or Months.July
Console.WriteLine(m)
End Sub

End Module

HTH,

--
Tom Shelton

[Tom Shelton]

On Mar 27, 8:08*am, "yxq" <[e-mail]:

My problem likehttp://groups.google.com/group/microsoft.public.dotnet.languages.vb/b...

But this problem seem not be sloved!

Thank you

"Armin Zingler" <[e-mail]дÈëÏûÏ¢ÐÂÎÅ:ud31Jm$jIHA.1... @TK2MSFTNGP05.phx.gbl...

"yxq" <[e-mail]

Thank you, but i want to know how to get months from 84.

I thought bitwise operations are basic basics in EDP. :-)

Use the And operator to check for certain bits.

http://msdn2.microsoft.com/en-us/library/wz3k228a.aspx
http://msdn2.microsoft.com/en-us/library/2h9cz2eb.aspx

Armin- Hide quoted text -

- Show quoted text -

It was solved.... You use the And operator to test:

Option Strict On
Option Explicit On

Imports System.Text

Module Module1
<Flags()_
Enum Months
January = &H1
February = &H2
March = &H4
April = &H8
May = &H10
June = &H20
July = &H40
August = &H80
September = &H100
October = &H200
November = &H400
December = &H800
End Enum
Sub Main()
Dim m As Months = Months.March Or Months.May Or Months.July
PrintMonths(m)
End Sub

Sub PrintMonths(ByVal m As Months)
Dim values() As Integer =
CType([Enum].GetValues(GetType(Months)), Integer())
Dim buffer As StringBuilder = New StringBuilder()

For Each value As Integer In values
If CBool(m And value) Then
buffer.AppendFormat("{0},",
[Enum].GetName(GetType(Months), value))
End If
Next

buffer.Length = buffer.Length - 1
Console.WriteLine(buffer)
End Sub
End Module

HTH,

--
Tom Shelton

[yxq]

Ok, that works well, thank you very much.

"Tom Shelton" <to*********@comcast.net写入消�
news:2d**********************************@n58g2000 hsf.googlegroups.com...
On Mar 27, 8:08 am, "yxq" <[e-mail]:

My problem
likehttp://groups.google.com/group/microsoft.public.dotnet.languages.vb/b...

But this problem seem not be sloved!

Thank you

"Armin Zingler" <[e-mail]�´Èë�û�¢�ÂÎÅ:ud31 Jm$[e-mail]...

"yxq" <[e-mail]

Thank you, but i want to know how to get months from 84.

I thought bitwise operations are basic basics in EDP. :-)

Use the And operator to check for certain bits.

http://msdn2.microsoft.com/en-us/library/wz3k228a.aspx
http://msdn2.microsoft.com/en-us/library/2h9cz2eb.aspx

Armin- Hide quoted text -

- Show quoted text -

It was solved.... You use the And operator to test:

Option Strict On
Option Explicit On

Imports System.Text

Module Module1
<Flags()_
Enum Months
January = &H1
February = &H2
March = &H4
April = &H8
May = &H10
June = &H20
July = &H40
August = &H80
September = &H100
October = &H200
November = &H400
December = &H800
End Enum
Sub Main()
Dim m As Months = Months.March Or Months.May Or Months.July
PrintMonths(m)
End Sub

Sub PrintMonths(ByVal m As Months)
Dim values() As Integer =
CType([Enum].GetValues(GetType(Months)), Integer())
Dim buffer As StringBuilder = New StringBuilder()

For Each value As Integer In values
If CBool(m And value) Then
buffer.AppendFormat("{0},",
[Enum].GetName(GetType(Months), value))
End If
Next

buffer.Length = buffer.Length - 1
Console.WriteLine(buffer)
End Sub
End Module

HTH,

--
Tom Shelton

[yxq]

Please view the MSDN page:
http://msdn2.microsoft.com/en-us/lib...35(VS.85).aspx

How to write the enum of days? the number(1,2... can not as variable?)

<Flags()_
Enum Months
1 = &H1
2 = &H2
3 = &H4
4 = &H8
5 = &H10
6 = &H20
7 = &H40
8 = &H80
9 = &H100
10 = &H200
11 = &H400
12 = &H800
...
End Enum
"Tom Shelton" <to*********@comcast.net写入消�
news:2d**********************************@n58g2000 hsf.googlegroups.com...
On Mar 27, 8:08 am, "yxq" <[e-mail]:

My problem
likehttp://groups.google.com/group/microsoft.public.dotnet.languages.vb/b...

But this problem seem not be sloved!

Thank you

"Armin Zingler" <[e-mail]�´Èë�û�¢�ÂÎÅ:ud31 Jm$[e-mail]...

"yxq" <[e-mail]

Thank you, but i want to know how to get months from 84.

I thought bitwise operations are basic basics in EDP. :-)

Use the And operator to check for certain bits.

http://msdn2.microsoft.com/en-us/library/wz3k228a.aspx
http://msdn2.microsoft.com/en-us/library/2h9cz2eb.aspx

Armin- Hide quoted text -

- Show quoted text -

It was solved.... You use the And operator to test:

Option Strict On
Option Explicit On

Imports System.Text

Module Module1
<Flags()_
Enum Months
January = &H1
February = &H2
March = &H4
April = &H8
May = &H10
June = &H20
July = &H40
August = &H80
September = &H100
October = &H200
November = &H400
December = &H800
End Enum
Sub Main()
Dim m As Months = Months.March Or Months.May Or Months.July
PrintMonths(m)
End Sub

Sub PrintMonths(ByVal m As Months)
Dim values() As Integer =
CType([Enum].GetValues(GetType(Months)), Integer())
Dim buffer As StringBuilder = New StringBuilder()

For Each value As Integer In values
If CBool(m And value) Then
buffer.AppendFormat("{0},",
[Enum].GetName(GetType(Months), value))
End If
Next

buffer.Length = buffer.Length - 1
Console.WriteLine(buffer)
End Sub
End Module

HTH,

--
Tom Shelton

[Tom Shelton]

On Mar 27, 6:42Â*pm, "yxq" <[e-mail]:

Please view the MSDN page:http://msdn2.microsoft.com/en-us/lib...35(VS.85).aspx

How to write the enum of days? the number(1,2... can not as variable?)

Â* Â*<Flags()_
Â* Â* Enum Months
Â* Â* Â* Â* 1 = &H1
Â* Â* Â* Â* 2 = &H2
Â* Â* Â* Â* 3 = &H4
Â* Â* Â* Â* 4 = &H8
Â* Â* Â* Â* 5 = &H10
Â* Â* Â* Â* 6 = &H20
Â* Â* Â* Â* 7 = &H40
Â* Â* Â* Â* 8 = &H80
Â* Â* Â* Â* 9 = &H100
Â* Â* Â* Â* 10 = &H200
Â* Â* Â* Â* 11 = &H400
Â* Â* Â* Â* 12 = &H800
Â* Â* Â* Â* ...
Â* Â* End Enum

"Tom Shelton" <[e-mail]写入消�news:2d******* ***************************@n58g2000hsf.googlegrou ps.com...
On Mar 27, 8:08 am, "yxq" <[e-mail]:

My problem
likehttp://groups.google.com/group/microsoft.public.dotnet.languages.vb/b...

But this problem seem not be sloved!

Thank you

"Armin Zingler" <[e-mail]�´Èë�û�¢�ÂÎÅ:ud31 Jm$[e-mail]...

"yxq" <[e-mail]
>Thank you, but i want to know how to get months from 84.

I thought bitwise operations are basic basics in EDP. :-)

Use the And operator to check for certain bits.

>http://msdn2.microsoft.com/en-us/library/wz3k228a.aspx
>http://msdn2.microsoft.com/en-us/library/2h9cz2eb.aspx

Armin- Hide quoted text -

- Show quoted text -

It was solved.... Â*You use the And operator to test:

Option Strict On
Option Explicit On

Imports System.Text

Module Module1
Â* Â* <Flags()_
Â* Â* Enum Months
Â* Â* Â* Â* January = &H1
Â* Â* Â* Â* February = &H2
Â* Â* Â* Â* March = &H4
Â* Â* Â* Â* April = &H8
Â* Â* Â* Â* May = &H10
Â* Â* Â* Â* June = &H20
Â* Â* Â* Â* July = &H40
Â* Â* Â* Â* August = &H80
Â* Â* Â* Â* September = &H100
Â* Â* Â* Â* October = &H200
Â* Â* Â* Â* November = &H400
Â* Â* Â* Â* December = &H800
Â* Â* End Enum

Â* Â* Sub Main()
Â* Â* Â* Â* Dim m As Months = Months.March Or Months.MayOr Months.July
Â* Â* Â* Â* PrintMonths(m)
Â* Â* End Sub

Â* Â* Sub PrintMonths(ByVal m As Months)
Â* Â* Â* Â* Dim values() As Integer =
CType([Enum].GetValues(GetType(Months)), Integer())
Â* Â* Â* Â* Dim buffer As StringBuilder = New StringBuilder()

Â* Â* Â* Â* For Each value As Integer In values
Â* Â* Â* Â* Â* Â* If CBool(m And value) Then
Â* Â* Â* Â* Â* Â* Â* Â* buffer.AppendFormat("{0},",
[Enum].GetName(GetType(Months), value))
Â* Â* Â* Â* Â* Â* End If
Â* Â* Â* Â* Next

Â* Â* Â* Â* buffer.Length = buffer.Length - 1
Â* Â* Â* Â* Console.WriteLine(buffer)
Â* Â* End Sub
End Module

HTH,

--
Tom Shelton- Hide quoted text -

- Show quoted text -

In my taskscheduler code I used:

[Flags()]
public enum DaysOfMonth
{
First = 0x1,
Second = 0x2,
Third = 0x4,
Fourth = 0x8,
Fifth = 0x10,
Sixth = 0x20,
Seventh = 0x40,
Eighth = 0x80,
Ninth = 0x100,
Tenth = 0x200,
Eleventh = 0x400,
Twelfth = 0x800,
Thirteenth = 0x1000,
Fourteenth = 0x2000,
Fifteenth = 0x4000,
Sixteenth = 0x8000,
Seventeenth = 0x10000,
Eighteenth = 0x20000,
Nineteenth = 0x40000,
Twentieth = 0x80000,
TwentyFirst = 0x100000,
TwentySecond = 0x200000,
TwentyThird = 0x400000,
TwentyFourth = 0x800000,
TwentyFifth = 0x1000000,
TwentySixth = 0x2000000,
TwentySeventh = 0x4000000,
TwentyEighth = 0x8000000,
TwentyNineth = 0x10000000,
Thirtieth = 0x20000000,
ThirtyFirst = 0x40000000,
}

That's c#, but the translation is pretty easy - 0x = &H in vb :)

--
Tom Shelton