Új hozzászólás Aktív témák

• #15440 Delila_1 veterán Attas #15431

  Új Válasz 2012-11-07 15:41:26 #15440

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz Attas #15431 üzenetére

  Ne TextBoxokat, hanem címkéket tegyél ki a formra, hiszen ezeket nem a felhasználó állítja ki.
  Az első akkor veszi fel az aktuális időt, mikor megnyitod a formot. A címkék neve nálam Kezd és Veg.

  Sub Start()
  Dim most As Date
  most = Format(Now, "hh:mm:ss")
  UserForm1.Kezd = most
  UserForm1.Show
  End Sub

  A második akkor, mikor a gombra kattintasz.

  Private Sub CommandButton1_Click()
  Dim Vege As Date
  Vege = Format(Now, "hh:mm:ss")
  Me.Veg = Format(CDate(Kezd) - CDate(Vege), "HH:mm:ss")
  End Sub

  

Új hozzászólás Aktív témák