Userforma sistemde görünen tarih ve saat nasıl eklenir.

[Korhan Ayhan]

Selam Arkadaşlar,

Oluşturduğum userforma sistemde görünen tarih ve saati nasıl ekleyebilirim.Formatı aşağıdaki gibi olursa çok sevinirim.

(Ã?rnek: 28-04-2005 PERÞEMBE / 16:27) şeklinde yada buna yakın bişeyde olabilir.

İyi çalışmalar dilerim.

 

[Levent Menteşoğlu]

Aşağıdaki linki inceleyin.

http://www.excel.web.tr/viewtopic.php?t=1123&highlight=userformda+saat

 

[cako]

Bir module içine aşağıdaki kodları yazın. (Ã?rnekte Module1)

Sub saat()
userform1.txttarih = Format(Now(), "dd mmmm yyyy")
userform1.txtgun = Format(Now(), "dddd")
userform1.txtzaman = Format(Now(), "hh:mm AM/PM")
zaman = TimeValue(DateAdd("s", 60 - Second(Now()), Now()))
Application.OnTime zaman, "saat", , True
End Sub

Userformun içine de aşağıdaki kodu yapıştırın.

Private Sub UserForm_Activate()
Module1.saat
End Sub

Ve bir de bu kodu yapıştırın.

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Application.OnTime zaman, "saat", , False
End Sub

Ben tarih,gün ve saati ayrı ayrı textboxlarda göstermiştim. Siz kendinize göre uyarlayabilirsiniz.

 

[Levent Menteşoğlu]

Ayrıca ekteki örneğide inceleyebilirsiniz.

Notosyada gün ile ilgili olan hata düzeltilerek ataç yenilenmiştir.