Isto é uma pré-visualização de um tema em Hitskin.com
Instalar o tema • Voltar para a ficha do tema
Cálculo entre duas datas (resultado em anos, meses e dias)
Página 1 de 1
Cálculo entre duas datas (resultado em anos, meses e dias)
Use um botão de comando e 3 caixas de texto (Entrada, Hoje e Resultado)
*** Crie a Função no Form:
***Um ano tem exatamente 365,25 dias
*** Form Load
*** Botão de Comando:
Fonte:
http://www.vbbrasil.com.br/
*** Crie a Função no Form:
- Código:
Function CalculaTempo(Entrada As Date)
If IsNull(Entrada) Or Entrada > Date Then
MsgBox "Data de Entrada inválida.", vbCritical
Exit Function
End If
Dim Anos, Meses, Dias
Dim iAnos, iMeses, Intervalo As Double
Intervalo = Date - Entrada
***Um ano tem exatamente 365,25 dias
- Código:
iAnos = Intervalo / 365.25
Anos = Int(iAnos)
iMeses = (iAnos - Anos) * 12
Meses = Int(iMeses)
Dias = DateDiff("d", DateSerial(DatePart("yyyy", Entrada) + Anos, DatePart("m", Entrada) + Meses, Day(Entrada)), Date)
If Dias = 30 Then
Dias = 0
Meses = Meses + 1
End If
If Meses = 12 Then
Meses = 0
Anos = Anos + 1
End If
If Anos > 1 Then
Anos = Anos & " anos "
Else
Anos = Anos & " ano "
End If
If Meses > 1 Then
Meses = Meses & " meses "
Else
Meses = Meses & " mês "
End If
If Dias > 1 Then
Dias = Dias & " dias."
Else
Dias = Dias & " dia."
End If
CalculaTempo = Anos & Meses & Dias
End Function
*** Form Load
- Código:
Hoje.Text = Format(Now, "dd/mm/yyyy")
*** Botão de Comando:
- Código:
Resultado.Text = CalculaTempo(Entrada)
Fonte:
http://www.vbbrasil.com.br/
Tópicos semelhantes
» Bug Server Sava datas
» Calendário e Datas Especiais de Delion
» Meses depois
» Calculo de Dano
» Cálculo do dano no RMVXA
» Calendário e Datas Especiais de Delion
» Meses depois
» Calculo de Dano
» Cálculo do dano no RMVXA
Página 1 de 1
Permissões neste sub-fórum
Não podes responder a tópicos