Operaciones con fecha.

Necesitas utilizar el objeto TimeSpan y los nuevos metodos incluidos en el
tipo de datos DateTime

Dim Ts As New TimeSpan(1,0,0,0) ' especifica un intervalo de 1 dia,0
hrs, 0 mins, 0 secs
Dim D as DateTime=Today.Substract(Ts)


o bien mas corto

Dim D as DateTime=Toda.Substract(New TimeSpan(1,0,0,0))


Saludos
Carlos Durán

"Miguel Arenas" escribió en el
mensaje news:

Antes en VB6.0 realizaba operaciones con feca de la siguiente manera

Dim d as String
D=Date
D=D-1

Ahora en .net
Dim d As String
d = Microsoft.VisualBasic.Today.Date-1
Marca error alguien sabe como hacer esto.
Gracias.

Hola Miguel,
Prueba con:

Dim dHoy As DateTime = DateTime.Today
Dim dAyer As DateTime = DateTime.Today.AddDays(-1)
Dim dTS As TimeSpan = New TimeSpan(dHoy.Ticks - dAyer.Ticks)
MsgBox("Diferencia entre " & dAyer.ToShortDateString & " y " & _
dHoy.ToShortDateString & " = " & dTS.Days & " día")

Saludos,

Lluís Franco i Montanyés
[MS-MVP-MCP Visual Basic]

This posting is provided "AS IS" with no warranties, and confers no rights.
Este mensaje se proporciona "COMO ESTA" sin garantias y no otorga ningun
derecho

(Guía de netiquette del foro)
http://www.uyssoft.com/MSNews.aspx?sm
FIMARGE, S.A.
Principat d'Andorra

Tel.: +376 805 100
Fax: +376 824 500
Mi Perfil MVP en:
https://mvp.support.microsoft.com/profileaa1615-1a2f-4202-bc3f-aec297d967d2