Textbox tarih ve saat

[muratgunay48]

Private Sub UserForm_Initialize()
TextBox1.Text = CDate(Date)
End Sub

Arkadaşlar, textbox'a tarih yazırmak istiyorum ama, 28 Kasım 2020 Cumartesi formatında. Bu kod ile değiştirmeye çalıştım yapamadım.
Yardımcı olabilir misiniz.
Bir de saat 16:25:46 formatında.
Teşekkür eder sağlıklı günler dilerim.

 

[Haluk]

TextBox1.Text = Format(Now, "dd mmmm yyyy hh:mm:ss")

.

 

[muratgunay48]

TextBox1.Text = Format(Now, "dd mmmm yyyy hh:mm:ss")

.

Hocam ilginiz için çok teşekkür ederim. Yalnız saat ilerlemiyor.

Private Sub UserForm_Initialize()
TextBox1.Text = Format(Now, "dd mmmm yyyy hh:mm:ss")
End Sub

şeklinde yazmayacak mıyım.

 

[Haluk]

Saatin ilerlemesini istediğinizi belirtmemiştiniz....

Yapılır ama, dosyanın performansını etkiler..... Çok gerekli değilse, bence vazgeçin ....

.

 

[Zeki Gürsoy]

Bu işi Timer API uygulamayı yormadan çalıştırabilir.

https://www.excel.web.tr/threads/timer-uygulamasi-api-class.42065/

.

 

[muratgunay48]

Bu işi Timer API uygulamayı yormadan çalıştırabilir.

https://www.excel.web.tr/threads/timer-uygulamasi-api-class.42065/

.

Hocam çalıştıramadım onu, daha doğrusu anlamadım. Sadece textbox içinde saat istemiştim. Timer baktım ama, nasıl uyarlayacağımı bile anlamadım.
İlginize çok çok teşekkür ederim. Bilgisizliğime verim.
Saygılarımla.

 

[muratgunay48]

Saatin ilerlemesini istediğinizi belirtmemiştiniz....

Yapılır ama, dosyanın performansını etkiler..... Çok gerekli değilse, bence vazgeçin ....

.

Hocam, tarih güncel değişiyor değil mi. Bir de yanlış anlatmış olabilirim.

Private Sub UserForm_Initialize()
TextBox1.Text = Format(Now, "dd mmmm yyyy dddd")
End Sub

Ama şu şekilde olabilir mi.

28 Kasım 2020
Cumartesi

Altına. Teşekkür ederim. Saygılarımla.

 

[Korhan Ayhan]

Burada çalışan saatler var.

UserForm Üzerinde Tarih ve Saat uygulaması

Umarım Faydası Olur Açıklama: UserForm'da 2 adet Label açın 1.Label Düzenleme kısmından Name kutusuna BUGUN yazın 2. Label İsmini SAAT olarak değiştirin bukadar. TARİH VE SAAT Private Sub UserForm_Activate() BUGUN.Caption = Date SAAT.Caption = Time Do DoEvents...

www.excel.web.tr

userformda saat stop ediyor

http://s6.dosya.tc/server8/8w28zk/AYP.rar.html Çalışma üzerinde sürekli altta kalacak olan bir userform ve bunun üzerine açılan ikinci userformda da multipage üzerinde işleri bölmeyi ve bu şekilde en az sayida userform kullanmayı düşündüm . Anaform üzerinde şifre 1234 girilerek tuşa...

www.excel.web.tr

Userformdaki saati kapatırken durdurmak için ek kod

Bir userform üzerindeki label'de saat dakika saniye çalıştıran kod olarak ; Private Sub UserForm_Activate() Label20.Caption = Format(Now, "dddd d mmmm yyyy") Do Label17 = Time DoEvents Loop End Sub bulunmakta ve userform açık olduğu sürece çalışmakta. Ancak öyle...

www.excel.web.tr

Aktif Saat "X" Kapatma Butonu

Userforma saat ekledim, Kodlar aşağıdaki gibidir. Userform açıldıktan sonra sağ üstteki "X" işaretinden kapanırsa ne hücrelere girebiliyorsunuz nede Alt+F11 penceresine. Excel kapanıncaya kadar Do döngüsü sanırım çalışıyor. Lakin kapatma düğmesine aşağıdaki diğer kodu, yani "End" koyarsak sorun...

www.excel.web.tr