form üzerinde tarih ve saat

[çilli]

merhabalar
hazırlamış olduğumuz userform da "caption" un bulunduğu yerde tarih ve saat gösterebilirmiziyiz
teşekkürler

 

[nadirornek]

UserForm1 kod bölümüne aşağıdaki kodları yazarak formu çalıştırdığınızda
form başlığı üzerinde tarih ve saat gelecektir

Private Sub UserForm_Activate()
Do
DoEvents
UserForm1.Caption = Format(Now(), "dd mmmm yyyy - dddd") & " " & Format(Now, "hh:mm:ss")
Loop
End Sub

 

[çilli]

teşekkürler

uyguladım ancak mahmut mehmet .. ltd.şti -anoğlu gibi denediğim zaman captionda bazı harflerin yada işaretlerin ( . gibi) yerinde rakamlar oluşmaktadır. Eğer Türkçe karakterlerden ise nasıl bir çözümü olabilir.?

[ C Ğ H M N S Y W karakterler girildiğinde rakamlar çıkmakta S de saniye saymaktadır ]

ay ve gün büyük harf olabilirmi ?

 

[Seyit Tiken]

Bu şekilde deneyebilirsiniz.

Private Sub UserForm_Activate()
Me.Caption = Date & " - " & Format(Now, "hh:mm")
End Sub

 

[ANTALYA 01]

H

Merhaba

Userform özelliklerinde Caption da Başka bir şey yazılıysa Saat Tarih ve yazılan cümle nasıl gelir Örnek Programı hazırlayan Murat 28/02/2008 14;15 Gibi

 

[Seyit Tiken]

Private Sub UserForm_Activate()
Me.Caption = "Programı Hazırlayan Murat  " & Date & " - " & Format(Now, "hh:mm")
End Sub

 

[çilli]

İlginize teşekkürler