LABEL E DATATIMEPICKER

TIAGOVARETA 20/04/2012 13:20:55
#400340
Boas pessoal,

Tenho uma label com uma data e preciso de preencher um DataTimePicker baseado nessa data menos 5 dias.

dtp_catalogoterminar.Value = FormatDateTime(lbl_fimcat.Text, DateFormat.ShortDate)

Neste momento tenho este código que me mostra precisamente a data indicada na label. Como faço para reduzir 5 dias?
ALTAIR148 20/04/2012 14:06:10
#400347
Assim:

 Dim DataHoje As Date = Format(Date.Now, [Ô]dd/MM/yyyy[Ô])
        TextBox2.Text = DataHoje.AddDays(-5)
TIAGOVARETA 20/04/2012 19:38:19
#400395
Citação:

:
Assim:

 Dim DataHoje As Date = Format(Date.Now, [Ô]dd/MM/yyyy[Ô])
        TextBox2.Text = DataHoje.AddDays(-5)



Boas desde já obrigado pela resposta!
No entanto julgo que o código que indica seja para preencher um campo de texto com a data menos 5 dias.

A minha questão é um pouco diferente, pois eu tenho a data numa label e quero que o um campo DataTimePicker seja 5 dias inferior a data da label.
ALTAIR148 20/04/2012 20:09:14
#400396 Resposta escolhida
Amigo tudo é questão de adaptação. Te passei apenas a lógica, e aí é só adaptar

   Label1.Text = [Ô]15/04/2012[Ô]
        Dim SubtrairData As Date
        SubtrairData = Label1.Text
        DateTimePicker1.Value = SubtrairData.AddDays(-5)
MAXGUIMEL 21/04/2012 12:18:47
#400424
Bom se eu entendi direito vc pode usar da seguinte maneira:

Dim PegaDataH As String = Mid(Date.Today, 1, 2)
Dim PegaResto As String = Mid(Date.Today, 3, 10)
Dim DescontaDias As String = [Ô]5[Ô]

Dim ResultadoDia As String = PegaDataH.Subtract(DescontaDias).ToString()

dtp_catalogoterminar.Value = ResultadoDia & PegaResto

Abraços!
Tópico encerrado , respostas não são mais permitidas
Voltar