formun başlığında tarih

[cobanoglu]

formumuzun başlık kısmına bugünün tarihini ve saatini yazdırmamız mümkünmüdür.

 

[alpi]

Aşağıdaki kod ile yazabilirsiniz.

me.caption=now

 

[Zeki Gürsoy]

Ya da aktif saat olsun isterseniz,

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

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    End
End Sub

 

[cobanoglu]

sn alpi teşekkürler bir ricam daha olacak bunu 24 aralık 2006 pazar 15:56 şeklinde nasıl yazdırabilirim iki iki iş çıkarıyorum ama kusura bakmayın ilginize cok teşekkürler

 

[alpi]

Aşağıdaki gibi yapabilirsiniz

Me.Caption = FormatDateTime(Now, vbLongDate) & "   " & FormatDateTime(Now, vbShortTime)

 

[Mahmut Bayram]

Private Sub UserForm_Activate()
    Me.Caption = Format(Now, "dd mmmm yyyy dddd" & " hh:mm")
End Sub