Çalışma takvimi Hicri-Miladi takvim

mrttrn · 15 Eylül 2007

Excel de yapılan takvimlerde Resmi günler (biçim-koşullu biçimlendirme) ile renklendiriliyor. Benim istediğim Kurban ve ramazan bayramları ve arefe günü dahil renkli olmasını istiyorum. Ekteki örneği inceleyin.

mrttrn · 16 Eylül 2007

İnternette sonunda buldum.Kodlama aşağıdadır.

Sub Hicri_takvim()
Dim msg, aylar
msg = "Bugün:" + Format(Date, "dd mmmm yyyy")
Calendar = vbCalHijri 'Hicri Takvim modu PC deki Takvim.
aylar = Array("Muharrem", "Safer", "Rebiülevvel", "Rebiülahir", "Cemaziyelevvel", "Cemaziyelahir", "Recep", "Şaban", "Ramazan", "Şevval", "Zilkade", "Zilhicce")
msg = msg & "," & Day(Date) & "," & aylar(Month(Date)) & " " & Year(Date)
MsgBox (msg)
'msg " "
If Month(Date) = 9 Then msg = "Bugün Ramazanın" & Day(Date) & ".günü"
If Month(Date) = 9 And Day(Date) = 27 Then msg = " Bu Gece Kadir Gecesi"
If Month(Date) = 3 And Day(Date) = 11 Then msg = " Bu Gece Mevlid Kandili"
If Month(Date) = 3 And Weekday(Date) = 5 And Day(Date) <= 7 Then msg = " Bu Gece Regaib Kandili"
If Month(Date) = 7 And Day(Date) = 26 Then msg = " Bu Gece Miraç Kandili"
If Month(Date) = 8 And Day(Date) = 14 Then msg = " Bu Gece Berat Kandili"
If Month(Date) = 10 And Day(Date) >= 1 And Day(Date) <= 3 Then msg = " Ramazan Bayramınız mübarek olsun Bugün bayramın" & Day(Date) & ".günü"
If Month(Date) = 11 And Day(Date) >= 10 And Day(Date) <= 13 Then msg = " Kurban Bayramınız mübarek olsun Bugün bayramın" & Day(Date) - 9 & ".günü"
If Month(Date) = 1 And Day(Date) = 1 Then msg = "Bugün Hicri Yılbaşı"
If msg <> "" Then MsgBox msg
Calendar = vbCalGreg 'Miladi Takvim. PC deki
End Sub

mrttrn · 19 Eylül 2007

Miladi takvimi, Hicri takvime çevirdim.Ama problem var. problem yazılım ile ilgili değil. Ay ın hareketlerinin hesaplanması ile ilgili.

1.sorun: macromedia ile yapılmış bir proğramda 2001-2010 arasındaki bayramlar ile Bendeki excel proğramındaki bayramları karşılaştırdım. Bazı yıllarda bayram 1 gün sapma yapıyor.bendekinde bazı yıllarda aynı
bayramdan iki tane var.
Mesela araplarda; bizde arefe iken galiba onlar bayram 1. günü kutluyorlar.

Excel ustalarımdan bu sapmaları giderici, Özel matematiksel hesabı varsa
ise tüm yıllarda şaşma yapmayan bir kodlama yardımı bekliyorum.

Belkide buna çare yok.Amacım otomatik bir takvimde dini bayram günlerini
Koşullu biçimlendirme ile otomatik renklendirme idi.
Şimdiden ilgilenenlere teşekkür ediyorum.

Ali · 19 Eylül 2007

Kod:

Function Miladi_hicri(tgununtarihi As String, kadar As Boolean) As String
conYear = 354.366
conMonth = 29.5285
If kadar Then
dd = DateDiff("d", "1/1/1800", tgununtarihi)
jd = dd + 2378497
l = jd - 1948440 + 10632
n = ((l - 1) \ 10631)
l = l - 10631 * n + 354
j = (((10985 - l) \ 5316)) * (((50 * l) \ 17719)) + ((l \ 5670)) * (((43 * l) \ 15238))
l = l - (((30 - j) \ 15)) * (((17719 * j) \ 50)) - ((j \ 16)) * (((15238 * j) \ 43)) + 29
tMonth = ((24 * l) \ 709)
tDay = l - ((709 * tMonth) \ 24)
tYear = 30 * n + j - 30
tarihsondeger = tDay & "." & tMonth & "." & tYear
Else
td = Split(tgununtarihi, "-")
hyear = CInt(td(0))
hymos = (hyear - 1) * 12
dmod = (((hyear - 1214) Mod 10) * 0.0000433) + conMonth
hmonth = Round((CInt(td(1)) + hymos) * dmod, 0)
hday = CInt(td(2)) + hmonth
jd = hday + 1948440
If (jd & gt + 2299160) Then
l = jd + 68569
n = ((4 * l) \ 146097)
l = l - ((146097 * n + 3) \ 4)
i = ((4000 * (l + 1)) \ 1461001)
l = l - ((1461 * i) \ 4) + 31
j = ((80 * l) \ 2447)
tDay = l - ((2447 * j) \ 80)
l = (j \ 11)
tMonth = j + 2 - 12 * l
tYear = 100 * (n - 49) + i + l
Else
j = jd + 1402
k = ((j - 1) \ 1461)
l = j - 1461 * k
n = ((l - 1) \ 365) - (l \ 1461)
i = l - 365 * n + 30
j = ((80 * i) \ 2447)
tDay = i - ((2447 * j) \ 80)
i = (j \ 11)
tMonth = j + 2 - 12 * i
tYear = 4 * k + n + i - 4716
End If
tarihsondeger = tDay & "." & tMonth & "." & tYear
End If
Miladi_hicri = tarihsondeger
End Function

ASP'de yazılmış bir koddan çevirerek uyarlamaya çalıştım. Umarım doğru çalışır.

Kodları bir modüle ekleyiniz.

Çalışması;

A2 hücresinde 01.01.2007 gibi tarih olsun.

=Miladi_hicri(A2;1) yazarak bir kontrol ediniz.

yucel baygul · 19 Eylül 2007

bu konunun çözümünü yerleşik fonksiyonlarla yapmak mümkünmüdür. A1 hücresinde (=BUGÜN()) miladi tarih olsun B1 hücresine hicri tarih yapılabilinirmi) bu konuda bilgisi olan varmı.

Ali · 19 Eylül 2007

Yapılır ama kayma oluyor.

=METNEÇEVİR(A1;"B2gg/aa/yyyy") hicriye çevirir.

Yada hücreyi B2gg/aa/yyyy olarak biçimlendirirsiniz.

yucel baygul · 19 Eylül 2007

sn ali bunu uyguladığımda bir günlük bir kayma var. "=METNEÇEVİR((A1-1);"B2gg/aa/yyyy") " yaptığımda doğru tarihi veriyor. bu bir günlük kayma bu şekilde halledilebiliyor. bu kayma hep bir gün ise problem yok. zamanla bu değer artıyor veya azalıyorsa çözüm olmayacaktır.
biçimlendirmede kuulanılan biçimi "B2gg/aaaa/yyyy" yaptığımda ay bölümünde yazılması gereken değeri arapca harflerle (07/رمضان/1428) yazıyor. bunu latin harflere çevirmenin imkanı varmı. (bu şekilde olmasını istiyorum ("7 RAMEZÂN 1428")
ama yinede çok teşekkür ederim. yeni bir şey daha öğrenmiş oldum.

Ali · 19 Eylül 2007

yucel baygul' Alıntı:
sn ali bunu uyguladığımda bir günlük bir kayma var. "=METNEÇEVİR((A1-1);"B2gg/aa/yyyy") " yaptığımda doğru tarihi veriyor. bu bir günlük kayma bu şekilde halledilebiliyor. bu kayma hep bir gün ise problem yok. zamanla bu değer artıyor veya azalıyorsa çözüm olmayacaktır.
.

Maalesef bu kaymalar sabit değil önceki tarihede kayabiliyor sonraki tarihede.

Ali · 19 Eylül 2007

Latince için şunu denermisiniz.

Kod:

=SOLDAN(METNEÇEVİR(A1;"B2gg/aa/yyyy");2)&" "&ARA(1*METNEÇEVİR(PARÇAAL(METNEÇEVİR(A1;"B2gg/aa/yyyy");4;2);"##");{1;2;3;4;5;6;7;8;9;10;11;12};{"Muharrem";"Safer";"Rebiülevvel";"Rebiülahir";"Cemaziyelevvel ";"Cemaziyelahir";"Recep";"Şaban";"Ramazan";"Şevval";"Zilkade";"Zilhicce"})&" "&SAĞDAN(METNEÇEVİR(A1;"B2gg/aa/yyyy");4)

mrttrn · 21 Eylül 2007

Sn Ali nin verdiği kodlama, galiba Calendar = vbCalHijri nin asıl kodu . Aynı kapıya çıkıyor.
Sn Ali'nin verdiği kodlamayı uyguladığım halde maalesef bazı yıllarda 1gün şaşıyor.Bazı yıllarda ise şaşma olmuyor.
Bu konu ile ilgilenen tüm arkadaşlara teşekkür ederim.

Ali · 21 Eylül 2007

mrttrn' Alıntı:
Sn Ali nin verdiği kodlama, galiba Calendar = vbCalHijri nin asıl kodu . Aynı kapıya çıkıyor.
.

Sizin verdiğiniz kodlar ile aynı değil. Çünkü o kodlar 1 ay şaşıyor. Ramazan yerine Şevval veriyor.

Hangi yıllarda şaşma var elinizde bir örnek tablo varmı?

Çünkü kameri aylarda yıl bazında bazen 11 bazen 10 gün fark oluyor.

mrttrn · 23 Eylül 2007

hicri yılbaşı 26mart2001 Bendeki takvimde 25mart
hicri yılbaşı 15mart2002 Bendeki takvimde 14mart
hicri yılbaşı 04mart2003 Bendeki takvimde 04mart++(AYNI)
hicri yılbaşı 21şubat2004 Bendeki takvimde 21şubat++(AYNI)
hicri yılbaşı 10şubat2005 Bendeki takvimde 10şubat++AYNI
hicri yılbaşı 31ocak2006 Bendeki takvimde 30ocak
hicri yılbaşı 20ocak2007 Bendeki takvimde 19ocak
hicri yılbaşı 10ocak2008 Bendeki takvimde 09ocak
Galiba 2008 de iki tane var.
hicri yılbaşı 18aralık2009 Bendeki takvimde 17aralık
hicri yılbaşı 08aralık2010 Bendeki takvimde 07aralık

yanlış almadıysam sonuçlar bunlar.
Yoksa her yıl ayın hareketine bakıp hesaplayabilirler.Belki de ileriye yönelik kesin hesaplama yapamıyorlardır.Emin değilim.

hsayar · 16 Ocak 2008

bu konunun tam çözümü oluştu mu acaba?

hsayar · 16 Ocak 2008

Ali' Alıntı:
............................
Çünkü kameri aylarda yıl bazında bazen 11 bazen 10 gün fark oluyor.
.................

bunun belli bir sistematiği varmı? mesala
4 yılda bir miladi_şubat 29 çekiyor peki
? yıldı bir kameri_? ? çekikiyor diyebilirmiyiz.

hsayar · 16 Ocak 2008

hocam birrde bu fonksiyonda değerlerin 2.1.1429 yerine 02.01.1429 şeklinde dönmesi nasıl olur.
=SOLDAN(METNEÇEVİR(H1;"B2gg/aa/yyyy");2)&" "&ARA(1*METNEÇEVİR(PARÇAAL(METNEÇEVİR(H1;"B2gg/aa/yyyy");4;2);"##");{1;2;3;4;5;6;7;8;9;10;11;12};{"Muharrem";"Safer";"Rebiülevvel";"Rebiülahir";"Cemaziyelevvel ";"Cemaziyelahir";"Recep";"Şaban";"Ramazan";"Şevval";"Zilkade";"Zilhicce"})&" "&SAĞDAN(METNEÇEVİR(H1;"B2gg/aa/yyyy");4) formulü
başka türlü çalışmıyor.

Ali · 16 Ocak 2008

Sayın hsayar bir sistematiği olması lazım bununla ilgili makalelere bakmak lazım ama müsait olupta ilgilenemedim.

hsayar · 16 Ocak 2008

sn ali ilginize teşekkür ederim. wikipediden bulduklaım aşağıda belki işe yarar.
http://tr.wikipedia.org/wiki/Hicri_Takvim#Art.C4.B1k_Y.C4.B1l
Hicri takviminin 12 ayının Türkçe ve Arapça adları [değiştir]Ay Türkçe Arapça Arap harfiyle Gün Notlar
Birinci Ay Muharrem Muharram ul Haram محرم 30
İkinci Ay Safer Safar ul Muzaffar صفر 29
Üçüncü Ay Rebiülevvel Rabi' al-awwal ربيع الأول 30
Dördüncü Ay Rebiülahir Rabi' al-thani ربيع الثاني 29
Beşinci Ay Cemaziyelevvel Jumada al-awwal جمادى الأولى 30
Altıncı Ay Cemaziyelahir Jumada al-thani جمادى الثانية 29
Yedinci Ay Recep Rajab رجب 30
Sekizinci Ay Şaban Sha'aban شعبان 29
Dokuzunuc Ay Ramazan Ramadan رمضان 30
Onuncu Ay Şevval Shawwal شوال 29
Onbirinci Ay Zilkade Dhu al-Quidah ذو القعدة 30
Onikinci Ay Zilhicce Dhu al-Hijjah ذو الحجة 29 ya da 30

Artık Yıl [değiştir]Hicri takvimlerde de miladi takvim 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önemde 2, 5, 7, 10, 13, 15, 18, 21, 24, 26 ve 29 yılları 355 gün, diğer yıllar ise 354 gün çekmektedir.
wikipediden ilk soruma cevap bukdum ama bir parçası eksik 30yıllık periyodun 1. senesi hangisidir?

08.02.2008 için 30/01/1429 30 Muharrem 1429 çıkıyor 01/02/1429 halbuki bu değer olması lazım.

Terkanli · 16 Ocak 2008

İşinizi görür mü?

Merhaba arkadaşlar,

Hicri ve miladi takvimleri eşleştirmek oldukça zor bir işe benziyor.
Yurtdışı bir siteden bulduğum takvim uygulamasını Türkçe ye çevirmiştim. Baskı yapıp, ciltleyip masa üstü olarak kullanıyorum, bayram vs. Events sayfasından giriyorum.

Work Shedul ü bir dizine açın, dizine resim ekleyin, resimlere 1,2,3,--52 olarak isim verin, sayfa çağırınca üst köşeye resim gelecek.

Belki işinize yarar düşüncesiyle ekledim.

aklıma gelmişken;
Kadın evlenmek istemiş, oğlu anne bu kaçıncı koca demiş
Kadın, Recep, Şaban, Ramazan bir de rahmetli baban, üç de ondan evveli, şu anan kocamı gördü a evladım

İyi akşamlar
Tansu

hsayar · 16 Ocak 2008

sn.Terkanli; ajanda programınız için teşekkür ederim. ama hicri takvim içinnasıl kullanacağım. anlayamadım.

Terkanli · 17 Ocak 2008

Sayın, hsayar
Gönderdiğim örnek miladi takvime göre hesaplama yapıyor, Ben Events sayfasından bayram ve kandil gibi günleri yılbaşında elle giriyorum, basım yaparken veya ekranda izlerken takvim bayramın bulunduğu ayı, günü gösteriyor.

Aşağıdaki açıklamaları tartışma için yazmadım, sadece düşüncelerim.
Hicri takvimde hesaplamalar çok zor,
*Hicri yılbaşı; Peygamber efendimizin, Mekke'den Medine'ye göçü baz alınmıştır, ancak kış aylarında mı, baharda mı göç oldu belli değil. Keze *Peygamberimizin doğum günüde aynı şekilde.

*Ramazan ayı için uygulama mantıklı, şöyleki hadisi şerife göre; Ramazan Ocak ayında olsaydı, Kuzey yarımküredeki müslümanlar her zaman kışın oruç tutacak ve güney yarımküredeki müslümanlar yazın oruç tutacaklardı.
Ay takviminde her yerdeki müslümanlara eşitlik sağlanıyor.

Saygılarımla,
Tansu

Çalışma takvimi Hicri-Miladi takvim

mrttrn

Ekli dosyalar

mrttrn

mrttrn

Ekli dosyalar

Ali

Özel Üye

yucel baygul

Ali

Özel Üye

yucel baygul

Ali

Özel Üye

Ali

Özel Üye

mrttrn

Ali

Özel Üye

mrttrn

hsayar

hsayar

hsayar

Ali

Özel Üye

hsayar

Terkanli

hsayar

Terkanli