Hicri takvim nasıl yapılır

[Sorguç]

Hem hicri takvim yapılışı , hem, ay duraklarını bulan program hem de ay ile güneş arasındaki açıyı bulan program yardımcı olursanız.

[Sorguç]

The following example creates a function to convert date strings between the supported calendar systems. The example code that follows uses the function to convert a Gregorian date string to the equivalent Hijri string in Long Date format.
Function ConvertDateString ( _ ByRef StringIn As String, _ ByRef OldCalendar As Integer, _ ByVal NewCalendar As Integer, _ ByRef NewFormat As String) As String Dim SavedCal As Integer Dim d As Date Dim s As String '// Save VBA Calendar setting to restore when finished SavedCal = Calendar '// Convert date to new calendar and format Calendar = OldCalendar ' Change to StringIn calendar d = CDate (StringIn) ' Convert from String to Date Calendar = NewCalendar ' Change to calendar of new string s = CStr (d) ' Convert to short format String ConvertDateString = Format _ ' Reformat (s, NewFormat) '// Restore VBA Calendar setting Calendar = SavedCal End FunctionCall ConvertDateString function from a procedure to perform conversion...

Dim GregorianDate As String Dim HijriDate As String Dim HijriFormat As String GregorianDate = "12/31/93" ' Gregorian string to convert HijriFormat = "Long Date" ' Format for Hijri date '// Convert to Hijri date 7/8/1414 and return in Long Date format HijriDate = ConvertDateString (_ GregorianDate, _ vbCalGreg, _ vbCalHijri, _ HijriFormat)

[Sorguç]

Imports SystemImports System.Globalization


Public Class SamplesHijriCalendar

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 HijriCalendar.
Dim myCal As New HijriCalendar()

' Displays the values of the DateTime.
Console.WriteLine("April 3, 2002 of the Gregorian calendar equals the following in the Hijri 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 'SamplesHijriCalendar


'This code produces the following output.

'

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

' Era: 1

' Year: 1423

' Month: 1

' DayOfYear: 21

' DayOfMonth: 21

' DayOfWeek: Wednesday

'

'After adding two years and ten months:

' Era: 1

' Year: 1425

' Month: 11

' DayOfYear: 316

' DayOfMonth: 21

' DayOfWeek: Saturday

[Sorguç]

Visual Basic (Declaration)

Public Overrides Function GetEra ( _ time As DateTime _) As Integer



Visual Basic (Usage)

Dim instance As HijriCalendarDim time As DateTimeDim returnValue As IntegerreturnValue = instance.GetEra(time)

[Sorguç]

Visual Basic (Declaration)
<SerializableAttribute> _<ComVisibleAttribute(True)> _Public Class HijriCalendar Inherits Calendar


Visual Basic (Usage)

Dim instance As HijriCalendar