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

• #60 T_bee aktív tag blemidon #58

  Új Válasz 2004-06-12 13:13:35 #60

  Ú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

  

  T_bee

  aktív tag

  válasz blemidon #58 üzenetére

  köszi...
  
  megin nem akar menni a kivonás a listából, de rájöttem hogy a számok hosszával van kapcsolatban a probléma. valakinek ötlete hogy lehetne megoldani? jelenleg így néz ki a programsor: Private Sub szamit_Click()
  'Számítás
  Dim p900 As Double
  If ossz <> 0 And tabhosssz <> 0 And tabbszel <> 0 And tabch = False And tebch = False Then
  table = tabhossz * tabszel
  tabter.Text = table
  szam = ossz / table
  proba = Int(szam)
  p900 = szam - proba
  If p900 = 0 Then tabszam.Text = szam
  If p900 <> 0 Then tabszam.Text = proba + 1
  
  Else
  Dim c As Integer
  c = MsgBox(''Add meg az adatokat'', vbInformation, ''Hiba'')
  End If
  End Sub
  
  köszi

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