Nara
03 de Diciembre del 2004

Hola a todos. Tengo un problema de fechas: necesito averiguar la fecha de ayer, siempre la de ayer, y no la de hoy; he mirado funciones como DateDiff, DatePart o DateAdd, pero no me solucionan el problema. ¿Alguién puede ayudarme? Muchas gracias.

krizall
03 de Diciembre del 2004

hola nara en la siguiente pagina encontraras la forma de como restar fechas y horas...

www.elguille.info/indice.asp

me parece que esta en la seccion trucos de vb clasico o vb 6

suerte

kipied
03 de Diciembre del 2004

Debes usar la misma función DateAdd, pero en el intervalo debes usar "d" (por día) y en el valor a sumar debes usar -1, así restará 1 día. El resultado debes rescatarlo con una cadena string, por ejemplo:

Dim Ayer as string

Ayer=DateAdd("d",-1)

kipied
03 de Diciembre del 2004

Fe de Errata:

Ayer= dateAdd("d",-1,Date)

en?
03 de Diciembre del 2004

Nara, además de lo que ya te han dicho, también puedes obtener la fecha de ayer así:

Ayer = Now - 1
o
Ayer = Date - 1

y lo mismo con una variable de tipo Date.

--
Un saludo.

krizall
03 de Diciembre del 2004

hola, no se si ya visitaste la pagina que te di
pero aqui esta el ejemplo que viene en la pagian:

Private Sub Command1_Click()
Dim t0 As Variant, t1 As Variant

'Text1 Tendrá una fecha anterior
'Text2 tendrá la nueva fecha
t0 = DateValue(Text1)
t1 = DateValue(Text2)
Label1 = t1 - t0

no lo he probado pero puedes hacer esto
t1=datevalue(date)
label1=t1-1

posiblemente te funcione

suerte

End Sub