DATA PICKER CONVERSAO
Boa noite.
Gostaria de tirar uma dúvida eu tenho dois Data Picker, preciso calcular a diferença entre ele (Ex.: 1:17) e transformar essa diferença em minutos.
Obs.: Estou trabalhando com horário.
Agradeço.
Gostaria de tirar uma dúvida eu tenho dois Data Picker, preciso calcular a diferença entre ele (Ex.: 1:17) e transformar essa diferença em minutos.
Obs.: Estou trabalhando com horário.
Agradeço.
JoaquimJR,
Crie um novo Projeto. Coloque duas DTPicker e um Botão.
Veja se funciona este código:
=============================
Private Sub Command1_Click()
Dim Dt1 As Date
Dim Dt2 As Date
Dim Msg
Dt1 = DTPicker1.Value
Dt2 = DTPicker2.Value
Msg = [Ô]Diferença em minutos: [Ô] & DateDiff([Ô]n[Ô], Dt1, Dt2)
MsgBox Msg
End Sub
=============================
[][ô]s,
Tunusat.
Crie um novo Projeto. Coloque duas DTPicker e um Botão.
Veja se funciona este código:
=============================
Private Sub Command1_Click()
Dim Dt1 As Date
Dim Dt2 As Date
Dim Msg
Dt1 = DTPicker1.Value
Dt2 = DTPicker2.Value
Msg = [Ô]Diferença em minutos: [Ô] & DateDiff([Ô]n[Ô], Dt1, Dt2)
MsgBox Msg
End Sub
=============================
[][ô]s,
Tunusat.
Funcionou é o que eu preciso, só vou estudar esse código pra colocar no projeto.
Muito Obrigado.
Muito Obrigado.
Tópico encerrado , respostas não são mais permitidas