Ben bu şekilde yaptım oldu. sende dene istersen.
Private Sub Form_Load()
Text1.Text = Format(Date, "dd_mm_yyyy")
End Sub
saat formatını ayarlamak istersen aşagıdaki gibi yazarsın.
Private Sub Timer1_Timer()
Text2.Text = Format(Time, "hh_mm_ss")
End Sub
<<< 10-HAGİ-10 >>>
Son Düzenleme: 30/12/2011, 19:17, Düzenleyen: mcmaho.