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

  • Attas

    aktív tag

    válasz Delila_1 #15440 üzenetére

    Nagyon köszönöm a válaszod!!! Ismét megmentetted a projektet.:D 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