DIFERENCA EM DIAS ENTRE DATAS
Olá galera
Gostaria de contar o número de dias entre duas datas, por exemplo,
data1=17/07/2010
data2=14/08/2010
e a resposta fosse o número de dias entre essas Datas
se possivel gostaria que as data1 e data2 fossem informadas por DateTimePicker, mas se não for possivel, pode ser por outro componente.
Valeu
Gostaria de contar o número de dias entre duas datas, por exemplo,
data1=17/07/2010
data2=14/08/2010
e a resposta fosse o número de dias entre essas Datas
se possivel gostaria que as data1 e data2 fossem informadas por DateTimePicker, mas se não for possivel, pode ser por outro componente.
Valeu
Coloque em algum botão
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Label1.Text = SubtraiData(Data1:=DateTimePicker1.Text, Data2:=DateTimePicker2.Text)
End Sub
coloque essa função no formulario
Function SubtraiData(ByVal Data1 As Date, ByVal Data2 As Date) As String
Return DateDiff(DateInterval.Day, Data1, Data2)
End Function
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Label1.Text = SubtraiData(Data1:=DateTimePicker1.Text, Data2:=DateTimePicker2.Text)
End Sub
coloque essa função no formulario
Function SubtraiData(ByVal Data1 As Date, ByVal Data2 As Date) As String
Return DateDiff(DateInterval.Day, Data1, Data2)
End Function
Eu uso uma função para isso:
[ô][ô][ô] <summary>
[ô][ô][ô] Retorna a diferença em dias de duas datas.
[ô][ô][ô] </summary>
Function SubtraiData(ByVal Data1 As Date, ByVal Data2 As Date) As String
Dim tsData As TimeSpan = Data1.Subtract(Data2)
Return CStr(Math.Abs(tsData.Days))
End Function
Para usar:
Msgbox(SubtraiData(DateTimePicker1.Value, DateTimePicker2.Value))
Mas também pode ser usado o DataDiff
[ô][ô][ô] <summary>
[ô][ô][ô] Retorna a diferença em dias de duas datas.
[ô][ô][ô] </summary>
Function SubtraiData(ByVal Data1 As Date, ByVal Data2 As Date) As String
Dim tsData As TimeSpan = Data1.Subtract(Data2)
Return CStr(Math.Abs(tsData.Days))
End Function
Para usar:
Msgbox(SubtraiData(DateTimePicker1.Value, DateTimePicker2.Value))
Mas também pode ser usado o DataDiff
Se a resposta resolveu o seu problema, encerre o pontue quem lhe ajudou!
Obrigado , mas eu já tinha conseguido, e esqueci de fechar o tópico, solucionei desta maneira:
Dim inicio As New DateTime
Dim fim As New DateTime
inicio = DtInicio.Text [ô]ano, mês, dia
fim = dtFim.Text [ô]ano, mês, dia
Dim dif As TimeSpan = fim.Subtract(inicio)
Dim dias As Integer = dif.Days
[ô]exibe a diferença em dias
lblPeriodo.Text = [Ô] [Ô] & dias & [Ô] dias de ([Ô] + DtInicio.Text + [Ô]) á ([Ô] + dtFim.Text + [Ô])[Ô]
Dim inicio As New DateTime
Dim fim As New DateTime
inicio = DtInicio.Text [ô]ano, mês, dia
fim = dtFim.Text [ô]ano, mês, dia
Dim dif As TimeSpan = fim.Subtract(inicio)
Dim dias As Integer = dif.Days
[ô]exibe a diferença em dias
lblPeriodo.Text = [Ô] [Ô] & dias & [Ô] dias de ([Ô] + DtInicio.Text + [Ô]) á ([Ô] + dtFim.Text + [Ô])[Ô]
Tópico encerrado , respostas não são mais permitidas