vb4 numero intero

[Desmo16]

Ciao spero che mmarzia questa volta non mi ...zii (in Dialetto).
come posso fare ad avere come soluzione dopo un operazione (Divisione o moltiplicazione) un numero intero arrotondato all'eccesso.
ad esempio il risultato è "2,8" e io voglio che esca scritto "3".
grazie

[axsw]

Option Explicit
Dim variabile As Integer
Dim variabile1 As Integer
Dim variabile2 As Integer

Private Sub Command1_Click()
 variabile1 = Text1.Text ' oppure 1,8
 variabile2 = Text2.Text ' oppure 1
  variabile = variabile1 + variabile2
 Text3.Text = variabile
  
End Sub

Ciao

[LMondi]

Per formattare un numero decimale per eccesso o per difetto, puoi usare la funzione Format. Ad esempio:

Private Sub Command1_Click()
    Dim dblNumeroDec1 As Double, dblNumeroDec2 As Double, _
        dblNumeroDec3 As Double, dblNumeroDec4 As Double
              
    dblNumeroDec1 = 1000.4
    dblNumeroDec2 = 1000.5
    dblNumeroDec3 = 1000.6
    dblNumeroDec4 = 1000.7

    MsgBox (Format(dblNumeroDec1, "#,##0"))
    MsgBox (Format(dblNumeroDec2, "#,##0"))
    MsgBox (Format(dblNumeroDec3, "#,##0"))
    MsgBox (Format(dblNumeroDec4, "#,##0.00"))
End Sub
 :ciauz:

[Desmo16]

non ho capito bene. ma se io devo avere il n°intero nella casella text3 che è uguale a val(text1)/Val(text2) i codici dove li devo inserire? scusate ma ho iniziato da poco a utilizzare vb4

[Desmo16]

non ho capito niente non so dove .

esempio: casella1 = 10
casella2 = 3
casella3 = 10/3=3,3333333
come faccio ad avere un numero intero arrotondato all'eccesso.
chi mi spiega passo passo come devo fare.
E' molto importante altrimenti resto fermo con il mio programma troppo a lungo. E' non me lo posso permettere!?!...

[axsw]

Fai così:
Metti 3 caselle di testo e chiamamale così: Text1, text2, Text3
poi aggiungi un commandButton e chiamalo Command1
e poi copia incolla questo codice

Option Explicit
Dim variabile As Integer
Dim variabile1 As Integer
Dim variabile2 As Integer

Private Sub Command1_Click()
 variabile1 = Text1.Text 
 variabile2 = Text2.Text 
  variabile = variabile1 + variabile2
 Text3.Text = variabile
End Sub

Più chiaro di così non si può almeno se ho capito bene quello che vuoi fare, chiaramente quello che ci deve essere scritto nelle caselle di testo lo sai tu da dove lo prendi, oppure viene digitato dall'utente.