Visual Basic para Aplicaciones - restar fechas en textbox

Life is soft - evento anual de software empresarial
   
Vista:

restar fechas en textbox

Publicado por Rafael (1 intervención) el 13/01/2008 04:24:17
Alguien me podria ayudar?
Necesito calcular Edad Gestacional, texgo en un textbox1 la Fecha de Ultima Regla en formato date, quiero restar la fecha de hoy - textbox1 y que este valor en numero absolutos, dividirlo entre 40, para obtener la Edad Gestacional en semanas.
Ejm:
textbox1 = 12/07/2007
hoy = 12/01/2008
Edad Gestacional = 184 dias osea 4.6 semanas

Gracias

RD
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:restar fechas en textbox

Publicado por JuanC (243 intervenciones) el 13/01/2008 10:53:41
Edad G = DateDiff("d", CDate(TextBox1), Date) / 40

Saludos desde Baires, JuanC
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:restar fechas en textbox

Publicado por Jairo Castillejos (1 intervención) el 15/10/2008 20:20:53
Dos ejemplos de cómo restar fechas y horas.
Para saber los segundos entre dos horas o los días entre dos fechas.
Crea un form con los siguientes controles, dejale los nombre por defecto.
4 TextBox
2 Labels
2 Commands
Distribuyelos para que los dos primeros TextoBoxes estén con el primer label y command, lo mismo con el resto.
Añade lo siguiente al form y pulsa F5
Ejemplo de prueba para restar fechas y horas
Option Explicit
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
End Sub
Private Sub Command2_Click()
Dim t0 As Variant, t1 As Variant
‘Text3 Tendrá una hora anterior
Text4 = Format(Now, “hh:mm:ss”)
t0 = Format(Text3, “hh:mm:ss”)
t1 = Format(Text4, “hh:mm:ss”)
Label2 = Format(TimeValue(t1) - TimeValue(t0), “hh:mm:ss”)
End Sub
Private Sub Form_Load()
‘Para probar la diferencia de fechas
Text1 = DateValue(Now)
Text2 = DateValue(Now + 10)

‘Para probar la diferencia de horas
Text3 = Format(Now, “hh:mm:ss”)
Text4 = Format(Now, “hh:mm:ss”)
Command1_Click
Command2_Click
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar