Cálculo com data em VB 2005


	Fórum
	Visual Basic

Responder

Voltar

Autor

Assunto: Cálculo com data em VB 2005

Ermac

ITAQUAQUECETUBA
SP - BRASIL

ENUNCIADA !

Postada em 09/11/2007 11:33 hs

Quero fazer o seguinte pessoal:

o programa pega um determinado valor e faz o número de vezes

que já se passou de dias, tipo vc ta na minha casa e eu vou te

cobrar 10 reais por dia, vc fik 5 dias, então é 50 R$ mais estou com

dificuldade pra fazer a conta com datas, alguém pode me ajudar??

desde já agradeço!!

Ivo

GUARULHOS
SP - BRASIL

ENUNCIADA !

Postada em 09/11/2007 15:35 hs

Private Sub Form_Load()
    Dim strDataini As String
    Dim strDataFim As String
    Dim intDiferencaEmDias As Integer
    Dim dblValorDevido As Double

    strDataini = "01/11/2007"
    strDataFim = "09/11/2007"

    dblValorDevido = 10 'reais

    intDiferencaEmDias = DateDiff("d", CDate(strDataini), CDate(strDataFim))
    Debug.Print "A diferença do dia inicial ao dia final é de: " & intDiferencaEmDias & " dias"
    Debug.Print "O valor total devido é de: R$ " & (dblValorDevido * intDiferencaEmDias)
End Sub

'resultado no immediate

A diferença do dia inicial ao dia final é de: 8 dias
O valor total devido é de: R$ 80

abraços

Na natureza nada se cria...

tudo se compila!!!

Ermac

ITAQUAQUECETUBA
SP - BRASIL

ENUNCIADA !

Postada em 09/11/2007 15:43 hs

Ivo brigadão mesmo cara, modifiquei sua rotina conforme

eu queria e fico perfeita!! mto obrigado cara...

até mais!

Ivo

GUARULHOS
SP - BRASIL

ENUNCIADA !

Postada em 09/11/2007 17:31 hs

brother qualquer coisa estamos ai

abraços

Na natureza nada se cria...

tudo se compila!!!

Página(s): 1/1