takvim ve namaz uygulaması

[kalpsizkral]

Merhabalar ekte belirttiğim örnek dosyada bir namaz vakti için çalışma yaptım sayfaya db ekleyerek geri sayım yapmak istedim ama beceremedim:redface: rica etsem dosyadaki namaz vaktine kalan süreyi örneğin sabah namazına kalan süre ? geçtikten sonra öğle namazıan kalan süre? şeklinde her namazdan sonra süreyi göstermesini nasıl yapablirim birde şaşlı bir saat olsa çok iyi ollucak namaz vakitlerini namaz adlı sayfadan çekmekte ben bunu diyanetten her ay güncelleme yaparım bu uygulamayı yapmamın nedeni çağrı merkezinde çalıştığım için malum internete girişlerimiz yasak sadece excel üzerinde uygulama yapabiliyorum e akıllı telefonumda yok yardımcı olursanız çok sevinirim teşekkür ederim
https://yadi.sk/i/-5kZNjhUcb6en

 

[halit3]

Merhabalar ekte belirttiğim örnek dosyada bir namaz vakti için çalışma yaptım sayfaya db ekleyerek geri sayım yapmak istedim ama beceremedim:redface: rica etsem dosyadaki namaz vaktine kalan süreyi örneğin sabah namazına kalan süre ? geçtikten sonra öğle namazıan kalan süre? şeklinde her namazdan sonra süreyi göstermesini nasıl yapablirim birde şaşlı bir saat olsa çok iyi ollucak namaz vakitlerini namaz adlı sayfadan çekmekte ben bunu diyanetten her ay güncelleme yaparım bu uygulamayı yapmamın nedeni çağrı merkezinde çalıştığım için malum internete girişlerimiz yasak sadece excel üzerinde uygulama yapabiliyorum e akıllı telefonumda yok yardımcı olursanız çok sevinirim teşekkür ederim
https://yadi.sk/i/-5kZNjhUcb6en

Aşağıdaki kodu sayfanın kod bölümüne ekleyin ve iki adet (CommandButton) ile bir adet (IeTimer1) nesnesi ekleyin

bilgisayarınızda IeTimer nesnesi yüklü değilse bu kodlar çalışmaz aşağıdaki linkde bu nesnenin nasıl yükleneceğine dair resimli dosya mevcut

http://www.excel.web.tr/f167/timer-nesnesinin-kurulumu-t78713.html

kod:

Private Sub CommandButton1_Click()
IeTimer1.Interval = 1000
IeTimer1.Enabled = True
IeTimer1_Timer
End Sub
Private Sub CommandButton2_Click()
IeTimer1.Interval = 0
IeTimer1.Enabled = False
IeTimer1_Timer

End Sub
Private Sub IeTimer1_Timer()

Dim saat As Date
On Error Resume Next
saat = CDate(Format(Now, "hh:nn:ss"))

Cells(1, 1) = saat

zaman1 = Format(Cells(2, 2).Value, "hh:nn:ss")
zaman2 = Format(Cells(2, 3).Value, "hh:nn:ss")
zaman3 = Format(Cells(2, 4).Value, "hh:nn:ss")
zaman4 = Format(Cells(2, 5).Value, "hh:nn:ss")
zaman5 = Format(Cells(2, 6).Value, "hh:nn:ss")
zaman6 = Format(Cells(2, 7).Value, "hh:nn:ss")
zaman7 = Format(Cells(2, 8).Value, "hh:nn:ss")

If saat >= CDate(zaman1) And saat <= CDate(zaman2) Then
Cells(1, 2) = CDate(zaman2) - saat
Cells(1, 3) = "Güneş fakitine kalan süre"
ElseIf saat >= CDate(zaman2) And saat <= CDate(zaman3) Then
Cells(1, 2) = CDate(zaman3) - saat
Cells(1, 3) = "Öğlen fakitine kalan süre"
ElseIf saat >= CDate(zaman3) And saat <= CDate(zaman4) Then
Cells(1, 2) = CDate(zaman4) - saat
Cells(1, 3) = "İkindi fakitine kalan süre"
ElseIf saat >= CDate(zaman4) And saat <= CDate(zaman5) Then
Cells(1, 2) = CDate(zaman5) - saat
Cells(1, 3) = "Akşam fakitine kalan süre"
ElseIf saat >= CDate(zaman5) And saat <= CDate(zaman6) Then
Cells(1, 2) = CDate(zaman6) - saat
Cells(1, 3) = "Yatsı fakitine kalan süre"
ElseIf saat <= CDate(zaman1) And saat <= CDate(zaman6) Then
Cells(1, 2) = CDate(zaman1) - saat
Cells(1, 3) = "imsak fakitine kalan süre"
ElseIf saat >= CDate(zaman6) Then
zaman8 = Format("23:59:59", "hh:nn:ss")
Cells(1, 2) = (CDate(zaman8) - saat) + CDate(zaman1)
Cells(1, 3) = "imsak fakitine kalan süre"
End If

End Sub

 

[halit3]

iki nolu mesajdaki dosya güncellendi

 

[vardar07]

Merhaba Halit bey. Elinize sağlık. Yenilediğiniz dosyada Data Sayfası olmadığı için userform hata veriyor. Kendimce data sayfasına sizin İmsakiye çalışmanızdaki veri alma kodlarını uyarlamaya çalıştım ancak ilçeler kısmını uyarlayamadım. Ülkeler ve iller normal olarak geliyor ancak ilçeler devamlı aynı ilçeleri yazıyor.

Private Declare Function InternetCheckConnection Lib "wininet.dll" Alias "InternetCheckConnectionA" (ByVal lpszUrl As String, ByVal dwFlags As Long, ByVal dwReserved As Long) As Long
Private Declare Function apiShowWindow Lib "user32" Alias "ShowWindow" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long

Private Sub CommandButton1_Click()
On Error Resume Next
Dim URL As String
Dim ie As Object
'Range("C2:ıv500").ClearContents
URL = "http://www.diyanet.gov.tr/tr/PrayerTime/WorldPrayerTimes"
If (InternetCheckConnection(URL & "/", &H1, 0&) = 0) Then MsgBox "internet bağlantısı yok": Exit Sub
Rows("2:1000").ClearContents
Set ie = CreateObject("InternetExplorer.Application")
With ie
.Navigate URL
.Visible = 2
apiShowWindow ie.hwnd, 2
Do Until ie.ReadyState = 4: DoEvents: Loop
Do While ie.Busy: DoEvents: Loop
Do Until ie.ReadyState = 4: DoEvents: Loop
son = WorksheetFunction.CountA(ThisWorkbook.Worksheets("data").Range("c2:c5000")) + 1
'xxxxx Ülkeler
sat = son + 1
For t = 1 To ie.document.all("Country").Length - 1
'ie.document.all("Country").selectedIndex = T
Sheets("data").Cells(sat, 1).Value = ie.document.all.Country(t).Text
sat = sat + 1
Next t
'ie.document.all("Country").selectedIndex = 184
ie.document.all.Country.Value = "TURKIYE"
ie.document.all("Country").OnChange

sat4 = 2
For r = 1 To ie.document.all("State").Length - 1
'ie.document.all("State").selectedIndex = r
Sheets("data").Cells(sat4, 2).Value = ie.document.all.State(r).Text
sat4 = sat4 + 1
Next r

Do Until ie.ReadyState = 4: DoEvents: Loop
Do While ie.Busy: DoEvents: Loop
Do Until ie.ReadyState = 4: DoEvents: Loop
Application.Wait (Now + TimeValue("0:00:3"))

sat1 = son + 1
[COLOR="Red"]For t = son To ie.document.all("State").Length - 1
'ie.document.all("State").selectedIndex = t
Sheets("data").Cells(sat1, 3).Value = ie.document.all.State(t).Text
Application.Wait (Now + TimeValue("0:00:2"))
ie.document.all("State").OnChange

Do Until ie.ReadyState = 4: DoEvents: Loop
Do While ie.Busy: DoEvents: Loop
Do Until ie.ReadyState = 4: DoEvents: Loop
sat3 = 4
For r = 1 To ie.document.all("city").Length - 1
'ie.document.all("City").selectedIndex = r
Sheets("data").Cells(sat1, sat3).Value = ie.document.all.city(r).Text
sat3 = sat3 + 1
Next r
sat1 = sat1 + 1
Next t[/COLOR]
End With
MsgBox "işlem tamam ", vbInformation, "Bilgi Mesajı"
End Sub

 

[halit3]

Merhaba Halit bey. Elinize sağlık. Yenilediğiniz dosyada Data Sayfası olmadığı için userform hata veriyor. Kendimce data sayfasına sizin İmsakiye çalışmanızdaki veri alma kodlarını uyarlamaya çalıştım ancak ilçeler kısmını uyarlayamadım. Ülkeler ve iller normal olarak geliyor ancak ilçeler devamlı aynı ilçeleri yazıyor.

iki nolu mesajdaki dosyayı güncelledim.
data sayfası ekledim

not data sayfasındaki komut düğmesine tıklayınca yani il ilçelerin güncellendiği zaman kod bitene kadar klavye ve mause ile oynamayın aksi taktirde ilçelere ait veriler düzenli gelmeyecektir.

 

[kalpsizkral]

sevgili halit bey keşke dediğinizi yapabilecek bilgi olsaydı ama yapamıyorum olmadı ayı zamanda gold üze olmadığım için verdiğiniz dosyalarıda inceleyemedim benim sitediğim

https://yadi.sk/i/-5kZNjhUcb6en dosyadaki takvim yazan sayfaya

kalan ezan vaktini göstermesi zamanı gelenide boyaması dosyaya bakarsanız ezana kalan süre yazan bir ksım var oraya sizin örnekte yaptığınız gibi akşam vaktine kalan süre ??? olması ama bton veya bunlar olmadan olması yinede ilginize çok teşekkür ederim

 

[halit3]

sevgili halit bey keşke dediğinizi yapabilecek bilgi olsaydı ama yapamıyorum olmadı ayı zamanda gold üze olmadığım için verdiğiniz dosyalarıda inceleyemedim benim sitediğim

https://yadi.sk/i/-5kZNjhUcb6en dosyadaki takvim yazan sayfaya

kalan ezan vaktini göstermesi zamanı gelenide boyaması dosyaya bakarsanız ezana kalan süre yazan bir ksım var oraya sizin örnekte yaptığınız gibi akşam vaktine kalan süre ??? olması ama bton veya bunlar olmadan olması yinede ilginize çok teşekkür ederim

Görsel video dosyası yükleniyor ara ara açmak için deneyiniz.

Videoyu izleyince umarım gerekeni sizde yapacaksınız.

not:Bu video da windows xp işletim sistemi yüklü bir bilgisayarda ofis 2003 yüklü proğramdan örnek verilmiştir.





görsel video