gugump
|
IÇARA
SC - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 24/08/2008 15:12 hs
Olá, eu estou usando este codigo para somar:
SomaDoBonus = CDbl(txt_BonusChar.Text) + CDbl(lbl_BonusDoChar.Caption)
Soma.Caption = SomaDoBonus
Eu preciso de um código que use o CDbl pois ele soma e diminui com virgula (decimais)
Eu tentei: SomaDoBonus = CDbl(txt_BonusChar.Text) - CDbl(lbl_BonusDoChar.Caption)
Troquei o + pelo -, não funciona, o número em vez de diminuir, fica negativo!
Alguem me ajuda! Até mais.
|
|
|
|
|
|
Poggetti
|
SÃO PAULO
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 24/08/2008 15:55 hs
SomaDoBonus = CDBL(Val(txt_BonusChar) + CDBL(Val(lbl_BonusDoChar.Caption) tens que Declarar SomaDoBonus como Double. Os campos numéricos do txt e da lbl serão digitados com o ponto como separador decimal. A menos que formate eles como format(controle,"#,0.00) |
|
|
|
Treze
|
SÃO VICENTE
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 24/08/2008 15:56 hs
tente assim Dim BonusChar As Double
Dim BonusDoChar As Double
BonusChar = txt_BonusChar.Text
BonusDoChar = lbl_BonusDoChar.Caption
SomaDoBonus = Abs(BonusChar - BonusDoChar) Abs ira manter o valor absoluto, ou seja sem sinal de menos, entao mesmo que o valor A seja menor que o B, vo valor sera o absoluto. |
|
|
|
gugump
não registrado
|
|
|
ENUNCIADA !
|
|
|
Postada em 24/08/2008 16:09 hs
A Treze você é o cara! (L) Funciono certinho Bom, tenho outra duvida, não tem haver com o assunto do tópico mais é do mesmo projeto da soma e da subtração, então não tem necessidade de criar outro tópico :/ (Se eu estar errado me corrijam) Duvida 2: Eu uso uma função IsDirectory para verificar os diretórios se existem ou não, é essa: If IsDirectory(txt_Bonus.Text) = False Then
MsgBox "O diretório" & " " & txt_Bonus.Text & " " & "não existe!", vbInformation End If Até ai tudo bem, ele fala que o diretorio não existe se não existir, se existir ele não da mensagem - OK! Mas ele da a mensagem e continua o resto das funções do BOTÃO!!! Como para a execução das funções do botão se der o erro que não foi encontrado o diretorio? |
|
|
|
Treze
|
SÃO VICENTE
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 24/08/2008 16:16 hs
e porque voce deve sair da funcao caso nao exista veja If IsDirectory(txt_Bonus.Text) = False Then
MsgBox "O diretório" & " " & txt_Bonus.Text & " " & "não existe!", vbInformation Exit Sub ' assim ele encerra a sub do botao End If diga se resolveu |
|
|
|
|
|
Postada em 24/08/2008 16:41 hs
Ahhh, sim!
Eu ja vi essa função muitas vezes e sempre tive a curiosidade de conhece-la haha, agora ja sei!
Obrigado cara 
|
|
|
|
