CALCULAR DATA INICIAL E FINAL NO DATAGRIDVIEWER

SAMUELHARSO 06/08/2014 18:15:44
#440234
Olá !

Tenho 3 Campos, Data Inicial, Data Final e Dias

Gostaria de quando eu editar tanto a data final, quanto a inicial no datagrid, o campo seguinte(Dias) mostrasse a quantidade de dias restantes.

Exemplo

Data Inicial: 06/08/2014 | Data Final: 08/08/2014 | Dias: 02

Alguém pode dar uma ajuda ?

Obrigado desde já !!!
PROGRAMADORVB6 08/08/2014 16:16:36
#440292 
 Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Dim Data_Inicial As Date
        Dim Data_Final As Date
        Dim Diferenca_Tempos As TimeSpan
        Data_Inicial = Convert.ToDateTime([Ô]06-08-2014[Ô] & [Ô] [Ô] & [Ô]0:00:00[Ô])
        Data_Final = Convert.ToDateTime([Ô]08-08-2014[Ô] & [Ô] [Ô] & [Ô]0:00:00[Ô])
        Diferenca_Tempos = Data_Final.Subtract(Data_Inicial)
        MsgBox(Diferenca_Tempos.Days & [Ô] Dias [Ô] & vbCrLf & Diferenca_Tempos.Hours & [Ô] Horas [Ô] & vbCrLf & Diferenca_Tempos.Minutes & [Ô] Minutos [Ô] & vbCrLf & Diferenca_Tempos.Seconds & [Ô] Segundos [Ô] & vbCrLf)
    End Sub

SAMUELHARSO 11/08/2014 11:31:43
#440333
Olá !!

Obrigado pela ajuda ! , mas como que eu faço, por exemplo para fazer isso no DataGridViewer automático...

Exemplo: vai ter os campos Data Inicial e Data Final para o usuario preencher... e vai ter o campo [Ô]diferença[Ô] e o campo [Ô]situação[Ô]

Eu gostaria que quando o usuario preenchesse no DataGridViewer esses dois campos [Ô]Data Inicial e Final[Ô] aparecesse no Campo [Ô]Diferença[Ô] os dias restantes... e no Campo Situação escrito [Ô]Bloqueado[Ô] ou [Ô]Disponível[Ô].

E é possível fazer esse cálculo usando DateTimePicker ou necessito usar TextBox ou MaskedBox ?
SAMUELHARSO 12/08/2014 13:54:57
#440367
Citação:

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Dim Data_Inicial As Date
Dim Data_Final As Date
Dim Diferenca_Tempos As TimeSpan
Data_Inicial = Convert.ToDateTime([Ô]06-08-2014[Ô] & [Ô] [Ô] & [Ô]0:00:00[Ô])
Data_Final = Convert.ToDateTime([Ô]08-08-2014[Ô] & [Ô] [Ô] & [Ô]0:00:00[Ô])
Diferenca_Tempos = Data_Final.Subtract(Data_Inicial)
MsgBox(Diferenca_Tempos.Days & [Ô] Dias [Ô] & vbCrLf & Diferenca_Tempos.Hours & [Ô] Horas [Ô] & vbCrLf & Diferenca_Tempos.Minutes & [Ô] Minutos [Ô] & vbCrLf & Diferenca_Tempos.Seconds & [Ô] Segundos [Ô] & vbCrLf)
End Sub



Se eu coloco:
[Ô]
Dim DataInicial, DataFinal As Date
DataInicial=txtDataInicial
DataFinal=txtDataFinal
[Ô]
Ja da erro, falando que não pode ser convertido,

Como que eu posso fazer ? , porque o usuário que vai digitar as datas...

Obrigado ! :D
SAMUELHARSO 12/08/2014 16:00:22
#440372
Achei a solução ! :D

Pode Criar:
2 DateTimePicker (dtpDataInicial, dtpDataFinal)
1 Button(btnCalcular)
1 textbox para Resultado (txtDias)
----------------------------------------------------------------
Private Sub btnCalcular_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCalcular.Click
Dim data1 As Date
Dim data2 As Date
Dim Difference As TimeSpan
data1 = Convert.ToDateTime(dtpDataInicial.Value)
data2 = Convert.ToDateTime(dtpDataFinal.Value)
Difference = data2.Subtract(data1)
txtDias.Text = FormatNumber(Difference.TotalDays, 0)
Tópico encerrado , respostas não são mais permitidas
Voltar