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

• #15443 Attas aktív tag Delila_1 #15440

  Új Válasz 2012-11-07 18:06:43 #15443

  Ú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

  

  Attas

  aktív tag

  válasz Delila_1 #15440 üzenetére

  Nagyon köszönöm a válaszod!!! Ismét megmentetted a projektet. Már maradt a TextBox megoldás de a leírásod alapján már sikerült megírni a kódot. A TextBox-ok Locked tulajdonságát True-ra állítottam, így nincs belepiszkálás a felhasználó által.Ehol az eredmény
  
  Sub MsgBoxMérésVége() 'A mérés vége bevitele előtti felugró kérdés
  
  Dim iReply As Byte, iType As Integer
  Dim vége As Date
  vége = Format(Now, "yyyy.mm.dd hh:mm:ss")
  iType = vbYesNo + vbExclamation
  
  iReply = MsgBox("Biztos végzett a méréssel?!", iType, "Figyelmeztetés!")
  If iReply = vbYes Then
  If TextBox2.Text = "" Then
  ElseIf TextBox3.Text = "" Then
  TextBox3.Text = vége
  End If
  End If
  TextBox4.Text = Format(CDate(TextBox3.Text) - CDate(TextBox2.Text), "hh:mm:ss")
  End Sub
  A másik egy részlete:
  Dim most As Date
  most = Format(Now, "yyyy.mm.dd hh:mm:ss")
  
  TextBox2.Text = most

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