Userformda tarih

[İsmail Küçükşengün]

Merhabalar;


Private Sub UserForm_Activate()

On Error Resume Next
Do
Label1 = Format(Now, "dd.mm.yyyy hh:mm:ss")
DoEvents
Loop

End Sub

Kodu ile userforma tarih : 12.05.2006 09:51:30 olarak görünüyor.

Bunu günü de göstermesi için ( 12.05.2006 Cuma 09.51:30) olarak
görünmesi için ne gibi bir ilave gerekir.

Teşekkürler....

 

[mehmett]

Sn kucuksengun,

Aşağıdaki satırda kırmızı renkli ilaveyi yapın.

Label1 = Format(Now, "dd.mm.yyyy dddd hh:mm:ss")

 

[İsmail Küçükşengün]

Sayın mehmett;

Teşekkürlerimi sunuyorum.