calcolo tra label

[DodiPartecipante Dodi Karma: 2 pts]

buon giorno a tutti voi

esiste un modo per calcolare utilizzando label? o non si può?

in pratica ho 3 label

label50

label47

label49

 

ora mi occorrerebbe che nella label 50 mi compaia il risultato.

Mi spiego

la label 47 e label 49 si popolano in automatico attingendo dal foglio"gestionale"

ora quello che mi servirebbe e far fare una sottrazione tra label 47 e label 49

in pratica 

label50=label47-label49

 

ho provato cosi ma niente 

 

Private Function ToVal1(txt As Object) As Double

 

ToVal1 = IIf(Len(Trim(txt.Caption)), Val(Replace(Replace(Replace(txt.Caption, ".", ""), ",", "."), "€", "")), 0)

End Function

Private Sub Calcolo()

 

     Label50.Caption = ToVal1(Label47) - ToVal1(Label49)

 

End Sub

Private Sub label50_Change()

Calcolo

End Sub

Private Sub label49_Change()

Calcolo

End Sub

Private Sub label47_Change()

Calcolo

End Sub

 

in pratica ho provato ad adattare un codice che a sua volta se non ricordo male con la collaborazione di Albatros e Patel mi sistemarono la parte delle migliaia e la formattazione.

 

qualcuno di voi puo essermi di aiuto?

 

grazie 

[oregon oregon]

Veramente te l'avevo suggerito io quel codice (con le textbox).

 

E funziona anche con le Label.

 

Fai ATTENZIONE alle virgolette che usi " " " " ... con il copia incolla potrebbero essere sbagliate ... ripassa sulle virgolette correggendole se serve.

[dodi dodi]

Scusate il disturbo ho risolto in qsto modo

con un ComandBotton.

Posto ugualmente la soluzione per tutti coloro che faranno una ricerca nel forum.

Magari può tornare utile a qualche altro utente.

 

ho formattato anche se il valore e in negativo il risultato e in Rosso.

 

Saluti a tutti.

 

poi se qualcuno vuol suggerirmi anche come risolvere la prima richiesta ringrazio, 

e apprendo una cosa nuova.

 

 

 

 

 

 

 

 

 

 

'Codice per calcolo (Residuo Contratto)

 

Private Sub CommandButton25_Click()

If Label47.Caption = "" Then

    MsgBox ("Fai doppio Clik su listbox per selezionare un Impresa")

    ListBox1.SetFocus

Exit Sub

 

End If

Label50.Caption = CDbl(Label47.Caption) - CDbl(Label49.Caption)

Label50 = Format(Label50, "€ #,##0.00")

 

 If CDbl(Label50) < 0 Then

    Label50.ForeColor = &HFF&

Else

   Label50.ForeColor = &H0&

End If

End Sub

[Dodi Dodi]

Ciao Oregon 

Scusa se mi sono confuso. Si e vero hai ragione 

Sei stato te a suggerirmi la soluzione a suo tempo. 

Pardon 

[Autore]

Articoli