Alaturka saate çevirip gösterme

[wiizi]

Merhabalar
Excelde topla çıkardan başka bir kabiliyetim yok.
Lisans sorunu yüzündende libreoffice kullanıyorum.
Diyanetten aldığım namaz vakitlerini Alaturka saat sistemine çevirmek istiyorum bunuda ezani saat hesaplama yöntemiyle buldum.
Miladi takvim yerine hicri olarak yazmay ve hicri günler olarak yazmayı becerebildim.
isteğim şu
=BUGÜN() dediğimde
sayfadaki ogüne karşılık gelen hicri takvimi günü ve namaz vakitlerini başka sayfada yada sayfanın tepesinde görebilmek.
birkaç uygulama gördüm ancak makro içerikler var.onlardanda anlamadım
yardım için şimdiden teşekkür ederim.

Ekli Dosya
http://www.yukletr.com/download.php?file=a369fd95a1fc3d1d864af3dc8b5687d0

 

[halit3]

Merhabalar
Excelde topla çıkardan başka bir kabiliyetim yok.
Lisans sorunu yüzündende libreoffice kullanıyorum.
Diyanetten aldığım namaz vakitlerini Alaturka saat sistemine çevirmek istiyorum bunuda ezani saat hesaplama yöntemiyle buldum.
Miladi takvim yerine hicri olarak yazmay ve hicri günler olarak yazmayı becerebildim.
isteğim şu
=BUGÜN() dediğimde
sayfadaki ogüne karşılık gelen hicri takvimi günü ve namaz vakitlerini başka sayfada yada sayfanın tepesinde görebilmek.
birkaç uygulama gördüm ancak makro içerikler var.onlardanda anlamadım
yardım için şimdiden teşekkür ederim.

Ekli Dosya
http://www.yukletr.com/download.php?file=a369fd95a1fc3d1d864af3dc8b5687d0

KTF ile yapılmış kod

kod:

Function hicri(tarih)
Calendar = vbCalHijri 'Hicri Takvim modu. PC deki Takvimi Hİcriye çevirir.
hicri = Format(tarih, "dd.mm.yyyy")
Calendar = vbCalGreg 'Miladi Takvim. PC deki

End Function

A2 hücresine şu formülü yazın

=hicri(s2)

 

[merakli_72]

S2 hücresine bugün() yazdığımızda
sonuç olarak 01.01.1436 döndürüyor
oysa bugün 30.12.1435

yine s2 hücresine
04.10.2014
girdiğimizde ise
10.12.1435
döndürüyor bu ise doğru
Microsofta göre Zilhicce ayı 29'mu çekiyor

Daha öncede bu işle biraz uğraşmış benzer problemler yüzünden işin içinden çıkamamıştım konu hakkında bilgisi olan birisi bizi aydınlatırsa memnun olurum

Teşekkürler

 

[wiizi]

KTF ile yapılmış kod

kod:

Function hicri(tarih)
Calendar = vbCalHijri 'Hicri Takvim modu. PC deki Takvimi Hİcriye çevirir.
hicri = Format(tarih, "dd.mm.yyyy")
Calendar = vbCalGreg 'Miladi Takvim. PC deki

End Function

A2 hücresine şu formülü yazın

==hicri(s2)

Sayın @halit3 dediğim gibi toplama çıkarma yapabiliyorum
saatlerdir siteden kod nasıl girilir onları okuyorum
KTF nedir?
cahilliğime verin

 

[halit3]

S2 hücresine bugün() yazdığımızda
sonuç olarak 01.01.1436 döndürüyor
oysa bugün 30.12.1435

yine s2 hücresine
04.10.2014
girdiğimizde ise
10.12.1435
döndürüyor bu ise doğru
Microsofta göre Zilhicce ayı 29'mu çekiyor

Daha öncede bu işle biraz uğraşmış benzer problemler yüzünden işin içinden çıkamamıştım konu hakkında bilgisi olan birisi bizi aydınlatırsa memnun olurum

Teşekkürler

2 nolu mesajdaki kod ile ilgili 1900-2100 yılları arasındaki takvim ile ilgili zilhiccenin son günü aşağıdaki yıllarda 30 çekmekte diğer yıllarda ise 29 çekmekte bu doğrumu acaba

1902
1905
1908
1910
1912
1915
1917
1920
1923
1926
1928
1931
1934
1937
1939
1942
1944
1946
1949
1952
1955
1957
1960
1963
1966
1968
1971
1974
1975
1976
1978
1981
1984
1986
1989
1992
1995
1997
2000
2003
2005
2008
2010
2013
2015
2018
2021
2024
2026
2029
2032
2034
2037
2040
2042
2044
2047
2050
2053
2055
2058
2061
2063
2066
2069
2072
2073
2076
2079
2082
2084
2087
2090
2092
2095
2098

 

[halit3]

Ayrıca aşağıdaki linklere bir göz atınız.

http://www.takvim.com/takvim_donusum.php

http://www.bilgidemeti.com/hicri-takvim.htm

 

[ataköylü-59]

Sayın Halit Bey
Vermiş bulunduğunuz listede Zilhicce ayı 2015 yılında 30, 2014 yılında ise 29 gün olarak görünüyor. Ancak Ülkemizdeki bütün takvimlere göre 2014 yılında 30 gün olarak görünüyor. 2015 yılına ait takvimlere bakmadım. Her ne ise vermiş olduğunuz kod, miladi takvimin hicri takvimdeki karşılığını veriyor. Emeğiniz için teşekkürler.
Sayın wiizi arkadaşımızın tarifinden anladığım kadarıyla ve sizin kodunuzun ilavesiyle bir düzenleme yaptım. Umarım faydalı olur.
Dosya ektedir.
http://www.yukletr.com/download.php?file=cde8ca6a71b67e769048e39dff332e54

 

[halit3]

Calendar Operatörün vbCalHijri , vbCalGreg bu uygulaması Miladi ve Hicri yıllarını birbirine çeviriyor ancak dünyadaki bütün müslüman ülkelerin de uygulanan bu günler bazen bir gün önce bazende bir gün sonra olabiliyor.

 

[wiizi]

Sayın @ataköylü-59 dosya silinmiş uyarısı veriyor.

 

[merakli_72]

Calendar Operatörün vbCalHijri , vbCalGreg bu uygulaması Miladi ve Hicri yıllarını birbirine çeviriyor ancak dünyadaki bütün müslüman ülkelerin de uygulanan bu günler bazen bir gün önce bazende bir gün sonra olabiliyor.

Haklısınız Halit Bey fakat bu çeviriyi Türkiye de nasıl yapıyorlar, diyanetin web sitesinde ve benzeri bir çok web sistesin de Türkiyede sisteme göre doğru çeviri yapılıyor bunun bir matematiği olması lazım diye düşünüyorum

Bilen arkadaşlar paylaşabilirmi acaba

 

[ataköylü-59]

Sayın @ataköylü-59 dosya silinmiş uyarısı veriyor.

Sayın arkadaşım, ben yukarıdaki link'i tıkladım dosyayı indirdim bir problem olmadı ama yinede aşağıdaki link'i ekledim. Bakabilirsiniz

http://www.dosya.tc/server35/Qo5Gzt/EzanVakit.xls.html

 

[wiizi]

Sayın arkadaşım, ben yukarıdaki link'i tıkladım dosyayı indirdim bir problem olmadı ama yinede aşağıdaki link'i ekledim. Bakabilirsiniz

http://www.dosya.tc/server35/Qo5Gzt/EzanVakit.xls.html

Teşekkür ederim yapmak istediğim tam olarak buydu
forumda bulduğum indis formülü ile boğuşuyordum. buradan devam ederim

 

[halit3]

Bu işle ilgilenenler için ekli dosyada bazı açıklamalar mevcut belki algoritmasını çözecek birileri çıkar

Kaynak
http://www.sosyalokulu.com/altsayfa.asp?nedir=sayfa&id=112