Takvim Dönüşümü (Hicri-Miladi;Miladi-Hicri)

[TRWE_2012]

HİCRİ TAKVİM HAKKINDA AÇIKLAMA VE DÖNÜŞÜM HESAPLAMALRI

HİCRİ TAKVİM

Hicri Takvim; Peygamberimizin Mekke´den Medine´ye hicretini başlangıç kabul eden ve ayın dünya çevresinde dolanımını esas alan bir takvim sistemidir. Hicri Takvim; Hicri Semsi ve Hicri Kameri Takvim olmak üzere ikiye ayrılır:

Hz. Peygamber, Safer ayinin 27.günü Hz. Ebubekir ile birlikte Medine´ye hicret etmek üzere Mekke´den ayrılmış, 4 gece Sevr Mağarası´nda kalmış. 1 Rebiülevvel Pazartesi günü Sevr Mağarasından Medine´ye doğru yola çıkmıştır. 8 Rebiülevvel / 20 Eylül 622 Pazartesi günü Kuba köyü´ne gelmiş. Burada Kuba Mescidi´ni inşa etmiş ve 12 Rebiülevvel Cuma günü Medine´ye doğru hareket etmiştir

1- Hz. Peygamberin Kuba´ya geliş günü olan 20 Eylül 622 tarihini, Hicri sene başlangıcı olarak kabul eden ve dünyanın güneş etrafındaki dolanımını esas alan Takvim sistemine Hicr-i Semsi Takvim denilmektedir.

2 -İslamiyet´ten önce, her önemli olay tarih başlangıcı olarak kabul edilirmiş. En son Fil Vakası da takvim başlangıcı olarak kabul edilmiştir. Bu uygulamada seneler, her önemli olaya göre sayılarak geldiğinden birçok karışıklıklara sebep oluyordu. Hz. Ömer zamanında Hicretin 17. yılında alınan bir kararla Hicretin olduğu sene Hicri Takvimin 1. yılı ve o yılın Muharrem ayı da Hicri Kameri takvimin yılbaşısı kabul edilmek suretiyle, o yıl 1 Muharrem´in rastladığı 16 Temmuz 622 tarihi de Hicri Kameri Takvimin başlangıcı olarak kabul edilmiştir. Hicri Takvim olarak bilinmektedir.

Hicri Kameri Takvimde aylar; Muharrem, Safer, Rebiülevvel, Rebiülahir, Cemaziyelevvel, Cemaziyelahir, Recep, Saban, Ramazan, Şevval, Zilkade ve Zilhicce seklinde sıralanmaktadır. Hicri takvimlerde de, miladi takvimlerde olduğu gibi artık yıllar mevcuttur. 30 yılda yaklaşık 11 günlük bir gerileme yapmaktadır. Bu gerilemeyi düzeltmek için 30 yıllık dönemlerin 2, 5, 7, 10, 13, 15, 18, 21, 24, 26 ve 29 yılları 355 gün, diğer yıllar ise 354 gündür.

Ay, dünya etrafında 12 defa döndüğü zaman bir Kameri sene olur ve 354.367 gün veya 354 gün 8 saat 48 dakika 34.68 saniyedir. Dünya, güneş etrafında 1 defa döndüğü zaman da bir Miladi sene olur ve 365.2422 gündür.

Hicri yıl miladi yıldan ( 365.2422 - 354.367 =) 10.8752 gün daha kısa olduğundan aylar bazen 29 bazen de 30 gün çekmektedir

HİCRİ YILIN MİLADİ YILA ÇEVRİLMESİ

Hicri yılı 33´e bölünüz 1420 : 33 = 43.03 (=43)
Çıkan sayıyı hicri yıldan çıkarınız 1420 - 43 = 1377 (1.sayı)
1.çıkan sayıyı 622 ile toplayınız. 1377 + 622 = 1999

MİLADİ YILIN HİCRİ YILA ÇEVRİLMESİ

Miladi yıldan 621 rakamını çıkarınız 1999 - 621 = 1378 (2.sayı)
(2.sayı) çıkan sayıyı 33´e bölünüz 1378 : 33 = 41.75 (=42)
Bölümü 2.çıkan sayı ile toplayınız 1378 + 42 = 1420

Hicri sene, Miladi seneye göre her yıl 10 veya 11 gün evvel başlamaktadır. Hicri Kameri takvim her 33 senede tam bir devir yaparak senenin bütün günlerinde oruç tutulmaktadır.

KAYNAKLAR:
________________________________________________________________________________________________________
1- A.KIZILIRMAK - GÖKBİLİMİ DERSLERİ 1, 1977 EGE ÜNİVERSİTESİ BORNOVA (*) s.181 - (**) s.183
2- MEMO LAROUSSE 3.s.183-185
3- FAİK REŞİT UNAT - HİCRİ TARİHLERİ MİLADİ TARİHE ÇEVİRME KILAVUZU

[TRWE_2012]

SORU :

Hicri takvim dönüşümünde neden hicri yılı 33'e bölüyoruz.?

CEVAP :

Hicri takvim dönüşümünde hicri yılı 33'e bölmek, Hicri takvimin Miladi takvimle olan ortalama farkını hesaba katmak için kullanılan bir yöntemdir. Hicri takvim, ay takvimi olduğu için 354 veya 355 gün sürerken, Miladi takvim güneş takvimidir ve 365 veya 366 gün sürer. Bu iki takvim arasındaki yıllık fark, yaklaşık 10-11 gündür.

Hicri yılın Miladi yıla dönüşümünde 33 sayısının kullanılmasının nedeni, Hicri takvimin Miladi takvimle olan ortalama dönüşüm oranını basitleştirmektir. Bu oran, Hicri takvimdeki 33 yılın, Miladi takvimde yaklaşık 32 yıl 9 ay (veya 32.75 yıl) gibi bir süreye denk geldiği varsayımına dayanır. Bu nedenle, Hicri yılı 33'e bölmek, dönüşüm işlemini kolaylaştırmak için kullanılan bir yöntemdir.

SORU :

Miladi Takvim dönüşümünde neden miladi yıldan 621 sayısını çıkartıyoruz(bu sayı 622 değil miydi?, neden bir eksiğini alıyoruz?)

CEVAP :

Miladi takvim dönüşümünde Miladi yıldan 621 sayısını çıkartmanın nedeni, Hicri takvimin başlangıç tarihi ile Miladi takvimin başlangıç tarihi arasındaki farkı hesaba katmaktır. Hicri takvim, Hz. Muhammed'in (s.a.v.) Medine'ye hicret ettiği yılı (622 Miladi) başlangıç yılı olarak alır.

Ancak, Hicri takvim 622'de başlamış olsa da, Hicri yılın ilk yılı 1 Hicri olarak kabul edilir. Bu nedenle, Miladi yıl 622'yi içerdiği için, dönüşümde 621 sayısını çıkartıyoruz. Yani:

1. Hicri takvim 1 Hicri yılı 622 Miladi yılına denk gelir.
2. Dolayısıyla, Miladi yıldan 621 çıkardığımızda, Hicri takvimdeki karşılıklarını bulmuş oluyoruz.

Özetle, 622'yi değil 621'i çıkarmamızın sebebi, Hicri takvimin başlangıcının 622 yılına denk gelmesi ve bu yılın Hicri takvimde 1. yıl olarak kabul edilmesidir. Bu nedenle, dönüşümde 621 sayısını kullanıyoruz.

[TRWE_2012]

Eğer böyle uzun uzadıya hesaplama yapmak istemiyorsanız aşağıdaki

.VBS betiği :

Kod: Tümünü seç

Option Explicit

Dim miladiYil, hicriYil, mesaj, response

' Kullanıcıdan miladi yıl girişi
miladiYil = InputBox("Miladi yılı girin:", "Yıl Girişi")
If miladiYil = "" Then
    response = MsgBox("Miladi yıl kutucuğunu boş bırakacak mısınız?", vbYesNo + vbQuestion, "Onay")
    If response = vbYes Then
        mesaj = "Miladi yıl girişi yapılmadı." & vbCrLf
    End If
ElseIf IsNumeric(miladiYil) Then
    mesaj = "Girilen Miladi Yıl: " & miladiYil & vbCrLf & "Hicri Yıl: " & MiladiToHicri(CInt(miladiYil)) & vbCrLf
End If

' Kullanıcıdan hicri yıl girişi
hicriYil = InputBox("Hicri yılı girin:", "Yıl Girişi")
If hicriYil = "" Then
    response = MsgBox("Hicri yıl kutucuğunu boş bırakacak mısınız?", vbYesNo + vbQuestion, "Onay")
    If response = vbYes Then
        mesaj = mesaj & "Hicri yıl girişi yapılmadı." & vbCrLf
    End If
ElseIf IsNumeric(hicriYil) Then
    mesaj = mesaj & "Girilen Hicri Yıl: " & hicriYil & vbCrLf & "Miladi Yıl: " & HicriToMiladi(CInt(hicriYil)) & vbCrLf
End If

' Sonuç mesajını göster
If mesaj = "" Then
    MsgBox "Lütfen en az bir yıl girin.", vbExclamation, "Hata"
Else
    MsgBox mesaj, vbInformation, "Dönüşüm Sonucu"
End If

Function MiladiToHicri(miladiYil)
    ' Miladi yılın Hicri yıla dönüşüm hesaplaması
    MiladiToHicri = CInt((miladiYil - 622) * 33 / 32)
End Function

Function HicriToMiladi(hicriYil)
    ' Hicri yılın Miladi yıla dönüşüm hesaplaması
    HicriToMiladi = CInt((hicriYil * 32 / 33) + 622)
End Function

Bunu boş bir metin editörüne (örnek : Notdefteri) kopyala-yapıştırın.Sonra Menü'den "Farklı Kaydet" ile masaüstüne ;

Dosya adı : Miladi-Hicri Dönüşümü.vbs
Dosya Türü : Tüm dosyalar

olacak şekilde çalıştırın.

SORU :

Bu betik ne yapar?

CEVAP :

Bu betik, miladi ve hicri takvimler arasında dönüşüm yaparak, kullanıcıların tarih hesaplamalarını kolaylaştırmayı amaçlar. Kullanıcı dostu bir arayüz ile etkileşimde bulunarak, kullanıcıların doğru ve anlamlı bilgiler almasını sağlar.Ayrı ayrı iki tane iletişim kutuğu açılır.Bunlar doldurulur, illa ikisini de veri girilmek zorunda değildir kullanıcı,

mesela

Kullanıcı, miladi yılı hicriye çevirmek istiyorsa, ilk kutucuğa miladi yılı girer ardından "Tamam" butonuna basar.Sonra ikinci kutucuk gelir buna da İptal butonuna basar, o anda sistem kullanıcıya "bu kutucuğu boş bırakmak istediğine emin misin?" diye kullanıcı Evet/Hayır butonlarından "Evet" butonuna tıklar.En son Windows iletisinde sadece Miladi yılın hicreye dönüşüm sonucu görülür.Diğer içinde veri girilmedi der.

Kodun tasarımı bana ait, kodlaması asistanıma aittir.

Şimdi biraz ileri götürelim...

.PS1 Betiği :

Kod: Tümünü seç

function Show-Message {
    param (
        [string]$message,
        [string]$title = "Dönüşüm Sonucu"
    )
    Add-Type -AssemblyName PresentationFramework
    [System.Windows.MessageBox]::Show($message, $title)
}

function Convert-MiladiToHicri {
    param (
        [int]$miladiYil
    )
    return [math]::Floor(($miladiYil - 622) * 33 / 32)
}

function Convert-HicriToMiladi {
    param (
        [int]$hicriYil
    )
    return [math]::Floor(($hicriYil * 32 / 33) + 622)
}

while ($true) {
    Clear-Host
    Write-Host "1. Miladi Yıl Girişi"
    Write-Host "2. Hicri Yıl Girişi"
    Write-Host "3. Çıkış"
    $choice = Read-Host "Seçiminizi yapın (1/2/3)"

    switch ($choice) {
        '1' {
            $miladiYil = Read-Host "Miladi yılı girin"
            if (-not [string]::IsNullOrWhiteSpace($miladiYil)) {
                $hicriYil = Convert-MiladiToHicri -miladiYil $miladiYil
                $result = "Girilen Miladi Yıl: $miladiYil`nHicri Yıl: $hicriYil"
                $key = Read-Host "Sonucu göstermek için M (Miladi) tuşlayın"
                if ($key -eq 'M') {
                    Show-Message -message $result
                }
            } else {
                Show-Message -message "Miladi yıl girişi yapılmadı."
            }
        }
        '2' {
            $hicriYil = Read-Host "Hicri yılı girin"
            if (-not [string]::IsNullOrWhiteSpace($hicriYil)) {
                $miladiYil = Convert-HicriToMiladi -hicriYil $hicriYil
                $result = "Girilen Hicri Yıl: $hicriYil`nMiladi Yıl: $miladiYil"
                $key = Read-Host "Sonucu göstermek için H (Hicri) tuşlayın"
                if ($key -eq 'H') {
                    Show-Message -message $result
                }
            } else {
                Show-Message -message "Hicri yıl girişi yapılmadı."
            }
        }
        '3' {
            $exitKey = Read-Host "Çıkmak istiyor musunuz? (Ç basın)"
            if ($exitKey -eq 'Ç') {
                Show-Message -message "Programdan çıkılıyor..."
                exit
            }
        }
        default {
            Show-Message -message "Geçersiz seçim. Lütfen 1, 2 veya 3 girin."
        }
    }
}

Aynı yukarıdaki gibi masaüstüne ;

Dosya adı : takvim_dönüstür.ps1
Dosya Türü : Tüm dosyalar

Betiğin Mantığı :

Yukarıda anlatılanların aynısı....

EKRAN GÖRÜNTÜLERİ :

Kodların zihinsel tasarımı bana ait, kodlaması asistanıma aittir.Güle güle kullanın....