saatin 12den sonra 13 diye gitmesi

[dbicer83]

öğlen saatin 12den sonra 13-14 şeklinde gitmesi için ne yapılabilir.

Declare Function SetTimer Lib "user32" (ByVal hwnd As Long, _
ByVal nIDEvent As Long, _
ByVal uElapse As Long, _
ByVal lpTimerFunc As Long) As Long

Declare Function KillTimer Lib "user32" (ByVal hwnd As Long, _
ByVal nIDEvent As Long) As Long
Public ID As Long
Sub Autpen()
Range("A1") = Empty
Call StartIt
End Sub
Sub Auto_Close()
Call StopIt
End Sub
Sub StartIt()
ID = SetTimer(0, 0, 1000, AddressOf RunMe)
End Sub
Sub StopIt()
RetVal = KillTimer(0, ID)
End Sub
Function RunMe(ByVal hwnd As Long, ByVal uMsg As Long, _
ByVal idEvent As Long, _
ByVal dwTime As Long) As Long
On Error Resume Next
ThisWorkbook.Sheets("Sayfa1").Range("A1") = Format(Now, "hh:mm:ss")
End Function

 

[Ayhan Ercan]

Merhaba

Kodlarınızda sorun yok. Şuan kodu çalıştırım 15:28 diye gösterdi.
Sistem saatiniz 24 sistemine göremi ayarlı?

 

[mami68]

Bendede düzgün çalışıyor.

 

[dbicer83]

sistem saati 15:33 şeklinde ama excelde 3:33 şeklinde gösteriyor.

 

[Ayhan Ercan]

Bölgesel ayarlarda saat dilimini 12-24 arası değişiminde format aşağıdaki gibi yazılır. Sanmıyorum ama ,isterseniz birde bunu dikkate alıp kodunuzu ona göre yazıp deneyin.

12 saat dilimi = hh:mm:ss
24 saat dilimi = HH:mm:ss

Tekrar diyorum sıkıntı burdan kaynaklanıyor demiyorum ama isterseniz bir deneyin..

ThisWorkbook.Sheets("Sayfa1").Range("A1") = Format(Now, "HH:mm:ss")

 

[dbicer83]

değişiklik olmadı sorun nedir ? hala çözebilmiş değilim

 

[leumruk]

Hücre biçimlendirme ayarlarından, değişik saat formatları var, onları tek tek dener misiniz? İsteğe uyarlanmış kısmında.

 

[dbicer83]

teşekkürler deneyim.

 

[dbicer83]

Hücre biçimlendirme ayarlarından, değişik saat formatları var, onları tek tek dener misiniz? İsteğe uyarlanmış kısmında.

yapamadım neyse bbu şekil kullanayım bari iki ayrı pcde office 2003 de denedim olmuyor.

 

[leumruk]

Son olarak ekli dosyayı dener misiniz? Acaba excel dosyası ile mi alakalı? Kodlarda hiçbir değişiklik yapmadım. Ben de 24'lük sisteme göre çalışıyor.

 

[dbicer83]

Son olarak ekli dosyayı dener misiniz? Acaba excel dosyası ile mi alakalı? Kodlarda hiçbir değişiklik yapmadım. Ben de 24'lük sisteme göre çalışıyor.

16:50:00 şeklinde yazıyor gönderilen dosya ya göre pekş ne ile alkalıdır.

 

[leumruk]

Sizin excel dosyanızla alakalı bir ayar; ama ne olduğunu bilmiyorum. En güzeli kodlarınızı ve sayfalarınızı başka bir excele taşıyın. En pratik çözüm.

 

[dbicer83]

Sizin excel dosyanızla alakalı bir ayar; ama ne olduğunu bilmiyorum. En güzeli kodlarınızı ve sayfalarınızı başka bir excele taşıyın. En pratik çözüm.

siz kodda herhangi bir değişiklik yaptınız mı?

 

[leumruk]

Hayır, hiçbir değişiklik yapmadım. Sayfaları taşıyınca olmadı mı?

 

[dbicer83]

Tamam. sizin gönderdiğiniz dosyada çalıştı ama tekrra akşam denerim artık
teşekkürler emeğinize sağlık.

 

[leumruk]

Tamam. sizin gönderdiğiniz dosyada çalıştı ama tekrra akşam denerim artık
teşekkürler emeğinize sağlık.

Rica ederim. Kolay gelsin.

 

[mami68]

Aynımı sizin dosyanız.

 

[dbicer83]

teşekkürler arkadaşlar hepiniz seferber oldunuz sorun çözülmüştür.