CALCULAR VENCIMENTOS DE DUPLICATAS

PERCIFILHO 22/02/2013 14:13:59
#419535
Olá amigos, conforme a imagem anexada, gostaria de saber o seguinte:

No módulo de pedidos, informo a forma de pagamento e o prazo, separado por barras.
Como faço para calcular os vencimentos fazendo o sistema entender que ele terá que pegar a data do pedido e calcular a quantidade de dias que estão entre as barras digitadas na TextBox?

Até mais.
PEGUDO 22/02/2013 14:56:29
#419539 Resposta escolhida
Você pode separar os valores:
Private Sub Calcula(Byval qualValor As Integer, Byval VariavelDias As String)
    Dim Vetor() As String = Split(Variável, VariavelDias, [txt-color=#e80000][Ô]/[Ô][/txt-color])

    For Each Item As String In Vetor
        MsgBox(Val(qualValor * Val(Item)))
    Next
End Sub

Envie para a Sub o valor e uma String com [Ô]30/60/90[Ô] e teste.
PERCIFILHO 25/02/2013 07:23:39
#419593
Valeu, Pegudo, adaptei esse código ao meu e funcionou. Obrigado.

Até mais.
Tópico encerrado , respostas não são mais permitidas
Voltar