MBR IT/.NET 247 : Question about calendar on microsoft.public.dotnet.languages.vb

Question about calendar

Messages

Related Types

This message was discovered on microsoft.public.dotnet.languages.vb.
Responses highlighted in red are from those people who are likely to be able to contribute good, authoratitive information to this discussion. They include Microsoft employees, MVP's and others who IMHO contribute well to these kinds of discussions.

Post a new message to this list...

vb6user

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!!

Reply to this message...

Gerry (VIP)

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

' DayOfWeek: MondayGerry O'Brien [MVP]<vb6user> wrote in message
news:Click here to reveal e-mail address...
[Original message clipped]

Reply to this message...

vb6user

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.
"Gerry" <Click here to reveal e-mail address> wrote in message
news:Click here to reveal e-mail address...
[Original message clipped]

Reply to this message...

Gerry (VIP)

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

<vb6user> wrote in message news:Click here to reveal e-mail address...
[Original message clipped]

Reply to this message...

	System.Console
	System.DateTime
	System.DayOfWeek
	System.Globalization.GregorianCalendar
	System.Globalization.HebrewCalendar

MBR BootFX
Best-of-breed application framework for .NET projects, developed by Matthew Baxter-Reynolds and MBR IT

	Copyright © Matthew Baxter-Reynolds 2001-2008. '.NET 247 Software Development Services' is a trading style of MBR IT Solutions Ltd.
	Contact Us - Terms of Use - Privacy Policy - www.dotnet247.com