Como saber fecha de parto en VB6 con dtpicker
Como saber fecha de parto en VB6 con dtpicker
Osea, me explico
Si la fecha actual de un embarazo es 22 de julio del 2011 que sera en un Dtpicker1
A esto hay que sumarle 280 días que son 40 semanas y ese sera el resultado de la fecha probable de parto de un embarazo. Y que el mismo resultado se despliegue en otro Dtpicker2
Osea.
Dtpicker1 para la fecha actual del embarazo
Dtpicker2 para el resultado de la fecha probable de parto
Osea, me explico
Si la fecha actual de un embarazo es 22 de julio del 2011 que sera en un Dtpicker1
A esto hay que sumarle 280 días que son 40 semanas y ese sera el resultado de la fecha probable de parto de un embarazo. Y que el mismo resultado se despliegue en otro Dtpicker2
Osea.
Dtpicker1 para la fecha actual del embarazo
Dtpicker2 para el resultado de la fecha probable de parto
Respuesta de currupipi999
1
Dim fecha As Date
Dim nuevafecha As Date
Private Sub DTPicker1_Change()
dia = DTPicker1.Day
mes = DTPicker1.Month
anio = DTPicker1.Year
fecha = CDate(DIA & "/" & MES & "/" & ANIO)
NUEVAFECHA = DateAdd("d", 280, FECHA)
DTPicker2.Day = Day(NUEVAFECHA)
DTPicker2.Month = Month(NUEVAFECHA)
DTPicker2.Year = Year(NUEVAFECHA)
End Sub
Dim nuevafecha As Date
Private Sub DTPicker1_Change()
dia = DTPicker1.Day
mes = DTPicker1.Month
anio = DTPicker1.Year
fecha = CDate(DIA & "/" & MES & "/" & ANIO)
NUEVAFECHA = DateAdd("d", 280, FECHA)
DTPicker2.Day = Day(NUEVAFECHA)
DTPicker2.Month = Month(NUEVAFECHA)
DTPicker2.Year = Year(NUEVAFECHA)
End Sub
