Duda con los datetime

[wok]

no se si hay una manera facil de hacer esto

tengo 2 datetime en un form, que los uso para armar un query between esos dos. una fecha desde y otra hasta

yo lo que quiero es que estas dos disten 1 mes entre ellas

desde: automatica hasta: fecha actual

o sea cuando cargo el form, el date "hasta" tiene la fecha del dia, yo quiero automaticamente el date desde tenga 1 mes menos que ese

ejemplo hoy es 22/04/05, el otro date tendria que ser 22/03/05
pero... no quiero ponerlo igual restandole un mes asi como nada.. ya que cuando es 30 o 31 el dia se puede complicar...

gracias!

[neivan]

deberas tener un funcion q contole si estas en el me 1 reste un año y ponga el 12 de ems

para coger datos especificos

datetime.now.tostring("MM") 'mes actual
datetime.now.tostring("dd") 'dia
datetime.now.tostring("yyyy") 'año

dim d as date
d = calculardate()

function calculardate()
dim d as date
dim mes as integer
dim año as integer
if datetime.now.tostring("MM")= 1 then
mes=12
año=datetime.now.tostring("yyyy") - 1
else
mes=datetime.now.tostring("MM") - 1
end if
d=datetime.now.tostring("dd") & "/" & mes % "/" & año
'no se si habria q ponerlo todo entre comillas simples,prueba priemro asi
return d
endf f.

[RootK]

Una forma rápida y sencilla sería así:

Dim d As DateTime = Now 'Tomo la fecha actual
Dim dHasta As String = d.ToString("dd/MM/yyyy") 'actual
Dim dDesde As String = d.AddMonths(-1).ToString("dd/MM/yyyy") 'menos un mes

Salu2

[wok]

si, yo habia echo algo similar a lo tuyo rootk, pero el tema es este...
marzo tiene 31 dias.. pero febrero no.
para esos casos tendria que ponerme en paranoico

si no, capaz, la solucion mas facil es, siempre que la diferencia sea de 1 mes, pero si al restar cae sobre 30 o 31, hardcorear que sea 28 y listo. de esta forma me aseguro que sea un rango valido

gracias de todos modos