Question about calendar

[Guest]

Hi all,

I am new to .net so I am still unsure how to do thing, but I have
discovered a class called HebrwCalendar and I am so excited
that I must ask if someone can help me. First, I assume this is
the real Lunar Calendar and not just some sort of customization
of the Gregorian Calendar. If this is so, I would like to go a head
and test it a bit, so could someone tell me how to invoke, for
example, the GetDayofMonth method, i.e. evetything I need to
type in a vb project. Thanks!!

 

[Gerry]

A little search on MSDN from within VS results in this;

Example
[Visual Basic]
' The following code example displays the values of several components of a
DateTime in terms of the Hebrew calendar.

Imports System
Imports System.Globalization


Public Class SamplesHebrewCalendar

Public Shared Sub Main()

' Sets a DateTime to April 3, 2002 of the Gregorian calendar.
Dim myDT As New DateTime(2002, 4, 3, New GregorianCalendar())

' Creates an instance of the HebrewCalendar.
Dim myCal As New HebrewCalendar()

' Displays the values of the DateTime.
Console.WriteLine("April 3, 2002 of the Gregorian calendar equals the
following in the Hebrew calendar:")
DisplayValues(myCal, myDT)

' Adds two years and ten months.
myDT = myCal.AddYears(myDT, 2)
myDT = myCal.AddMonths(myDT, 10)

' Displays the values of the DateTime.
Console.WriteLine("After adding two years and ten months:")
DisplayValues(myCal, myDT)

End Sub 'Main

Public Shared Sub DisplayValues(myCal As Calendar, myDT As DateTime)
Console.WriteLine(" Era: {0}", myCal.GetEra(myDT))
Console.WriteLine(" Year: {0}", myCal.GetYear(myDT))
Console.WriteLine(" Month: {0}", myCal.GetMonth(myDT))
Console.WriteLine(" DayOfYear: {0}", myCal.GetDayOfYear(myDT))
Console.WriteLine(" DayOfMonth: {0}", myCal.GetDayOfMonth(myDT))
Console.WriteLine(" DayOfWeek: {0}", myCal.GetDayOfWeek(myDT))
Console.WriteLine()
End Sub 'DisplayValues

End Class 'SamplesHebrewCalendar



'This code produces the following output.

'

'April 3, 2002 of the Gregorian calendar equals the following in the Hebrew
calendar:

' Era: 1

' Year: 5762

' Month: 7

' DayOfYear: 198

' DayOfMonth: 21

' DayOfWeek: Wednesday

'

'After adding two years and ten months:

' Era: 1

' Year: 5765

' Month: 5

' DayOfYear: 138

' DayOfMonth: 21

 

[Guest]

Hi

I had to add between the imports and the sample calss the
normal console code, i.e.

Module Module1
Sub Main()
Dim myCal As New SamplesHebrewCalendar
myCal.Main()
While 1 = 1
End While
End Sub
End Module

I assume you new I would know to do this,

.... luckily I have some intuition.



Thank you.

A little search on MSDN from within VS results in this;

Example
[Visual Basic]
' The following code example displays the values of several components of a
DateTime in terms of the Hebrew calendar.

Imports System
Imports System.Globalization


Public Class SamplesHebrewCalendar

Public Shared Sub Main()

' Sets a DateTime to April 3, 2002 of the Gregorian calendar.
Dim myDT As New DateTime(2002, 4, 3, New GregorianCalendar())

' Creates an instance of the HebrewCalendar.
Dim myCal As New HebrewCalendar()

' Displays the values of the DateTime.
Console.WriteLine("April 3, 2002 of the Gregorian calendar equals the
following in the Hebrew calendar:")
DisplayValues(myCal, myDT)

' Adds two years and ten months.
myDT = myCal.AddYears(myDT, 2)
myDT = myCal.AddMonths(myDT, 10)

' Displays the values of the DateTime.
Console.WriteLine("After adding two years and ten months:")
DisplayValues(myCal, myDT)

End Sub 'Main

Public Shared Sub DisplayValues(myCal As Calendar, myDT As DateTime)
Console.WriteLine(" Era: {0}", myCal.GetEra(myDT))
Console.WriteLine(" Year: {0}", myCal.GetYear(myDT))
Console.WriteLine(" Month: {0}", myCal.GetMonth(myDT))
Console.WriteLine(" DayOfYear: {0}", myCal.GetDayOfYear(myDT))
Console.WriteLine(" DayOfMonth: {0}", myCal.GetDayOfMonth(myDT))
Console.WriteLine(" DayOfWeek: {0}", myCal.GetDayOfWeek(myDT))
Console.WriteLine()
End Sub 'DisplayValues

End Class 'SamplesHebrewCalendar



'This code produces the following output.

'

'April 3, 2002 of the Gregorian calendar equals the following in the Hebrew
calendar:

' Era: 1

' Year: 5762

' Month: 7

' DayOfYear: 198

' DayOfMonth: 21

' DayOfWeek: Wednesday

'

'After adding two years and ten months:

' Era: 1

' Year: 5765

' Month: 5

' DayOfYear: 138

' DayOfMonth: 21

Hi all,

I am new to .net so I am still unsure how to do thing, but I have
discovered a class called HebrwCalendar and I am so excited
that I must ask if someone can help me. First, I assume this is
the real Lunar Calendar and not just some sort of customization
of the Gregorian Calendar. If this is so, I would like to go a head
and test it a bit, so could someone tell me how to invoke, for
example, the GetDayofMonth method, i.e. evetything I need to
type in a vb project. Thanks!!

 

[Gerry]

Lucky is correct.

I had no way of knowing what type of project you were creating. You didn't
specify a Console app so how could I know you were using one?

Look at what you have learned!!

At any rate, I'm glad it helped you out.


--
Gerry O'Brien [MVP]
Visual Basic .NET

Hi

I had to add between the imports and the sample calss the
normal console code, i.e.

Module Module1
Sub Main()
Dim myCal As New SamplesHebrewCalendar
myCal.Main()
While 1 = 1
End While
End Sub
End Module

I assume you new I would know to do this,

... luckily I have some intuition.



Thank you.

A little search on MSDN from within VS results in this;

Example
[Visual Basic]
' The following code example displays the values of several components of a
DateTime in terms of the Hebrew calendar.

Imports System
Imports System.Globalization


Public Class SamplesHebrewCalendar

Public Shared Sub Main()

' Sets a DateTime to April 3, 2002 of the Gregorian calendar.
Dim myDT As New DateTime(2002, 4, 3, New GregorianCalendar())

' Creates an instance of the HebrewCalendar.
Dim myCal As New HebrewCalendar()

' Displays the values of the DateTime.
Console.WriteLine("April 3, 2002 of the Gregorian calendar equals the
following in the Hebrew calendar:")
DisplayValues(myCal, myDT)

' Adds two years and ten months.
myDT = myCal.AddYears(myDT, 2)
myDT = myCal.AddMonths(myDT, 10)

' Displays the values of the DateTime.
Console.WriteLine("After adding two years and ten months:")
DisplayValues(myCal, myDT)

End Sub 'Main

Public Shared Sub DisplayValues(myCal As Calendar, myDT As DateTime)
Console.WriteLine(" Era: {0}", myCal.GetEra(myDT))
Console.WriteLine(" Year: {0}", myCal.GetYear(myDT))
Console.WriteLine(" Month: {0}", myCal.GetMonth(myDT))
Console.WriteLine(" DayOfYear: {0}", myCal.GetDayOfYear(myDT))
Console.WriteLine(" DayOfMonth: {0}", myCal.GetDayOfMonth(myDT))
Console.WriteLine(" DayOfWeek: {0}", myCal.GetDayOfWeek(myDT))
Console.WriteLine()
End Sub 'DisplayValues

End Class 'SamplesHebrewCalendar



'This code produces the following output.

'

'April 3, 2002 of the Gregorian calendar equals the following in the Hebrew
calendar:

' Era: 1

' Year: 5762

' Month: 7

' DayOfYear: 198

' DayOfMonth: 21

' DayOfWeek: Wednesday

'

'After adding two years and ten months:

' Era: 1

' Year: 5765

' Month: 5

' DayOfYear: 138

' DayOfMonth: 21

Hi all,

I am new to .net so I am still unsure how to do thing, but I have
discovered a class called HebrwCalendar and I am so excited
that I must ask if someone can help me. First, I assume this is
the real Lunar Calendar and not just some sort of customization
of the Gregorian Calendar. If this is so, I would like to go a head
and test it a bit, so could someone tell me how to invoke, for
example, the GetDayofMonth method, i.e. evetything I need to
type in a vb project. Thanks!!