problemas con la fecha

[Dradi7]

Buena habria otra forma mas sencilla de poder realizar este codigo Ejm:

En tu Form1
le has agregado un Timer con un intervalo de 30000 - q corresponde a 60 segundos - para un segundo vendria a ser 500

el en Timer en el evento

sub Timer_Tick(...)

Dim Fecha as Datetime
Fecha = Now.AddMinutes(-30)
txthora.text = Fecha.toString("hh")
txtminutos.text = Fecha.toString("mm")

end sub


en el Evento Load del Formulario

sub form1_load(....)

txtfecha.text = Now.AddMinutes(-30).toString("dd/MM/yyyy")
timer.start()

end sub

Con Esto Tienes tu Timer q recorre cada 60 segundos y aumenta los minutos sin necesidad de realizar mucho codgio

Para mi Parecer Seria Mejor
q la Hora y Los Minutos se muestren en una sola caja de texto

Ejm:

txtreloj.text = Now.AddMinutes(-30).toString("hh:mm:ss")

este codigo seria mucho mejor q el q puse arriba:

Dim Fecha as Datetime
Fecha = Now.AddMinutes(-30)
txthora.text = Fecha.toString("hh")
txtminutos.text = Fecha.toString("mm")