Programación General > Visual Basic 6.0 e inferiores
Ayuda, Con Fecha De Nacimiento
Blank:
Buenos dias, oigan una duda, en la escuela me pidieron un proyecto sobre un consultorio, pero siento que todo ahi la llevo, pero nos piden que tambien contenga la fecha del nacimiento de un bebe, osea que contenga que las semanas que lleva, la fecha del parto y demas pero ahí ni idea como le pueda hacer, si alguíen me puede dar una orientada, se los agradecería, de antemano gracias.
ArKaNtOs:
Podrias ser mas especifico en cuanto a tu duda, ya que realmente no se te entiende lo que quieres hacer, si deseas un control para el manejo de fechas te recomiendo el dtpicker ;) :kicking:
Blank:
pues si miren, lo que me piden es que cheque las semanas que tiene de gestación un "feto" asi se le dice no y cuando sería la fecha de su nacimiento, ya ven que los doctores la sacan dependiendo la fecha de la ultima regla pero no se cual sea los pasos a seguir, se me hace que primero tengo que buscanr un doctor y que me explique las formulas o los procedimientos para calcular la edad del feto y la fecha de su nacimiento, ya con eso vere si lo puedo implementar en el proyecto, veré que puedo hacer, gracias y si hay comentarios o sugerencia se los agredezco.
Informatico:
:D , yo he realizado un trabajo para una clinica muy similar, lo aconsable es que puedas obtener mediantes consultas sql la diferencia de dias o semanas entre la ultima fecha de regla de la mujer y la fecha actual eso si ya estas trabajando con un base de datos , caso contrario en visual 6.0 se puede obtener tambien mediante sentencias la diferencia entre fechas, bueno cualquier consulta no dudes en decirla. :comp:
cpmario:
Entre los programadores de VB6 también hay médicos.
A continuación te coloco los datos de los cálculos.
El embarazo dura aproximadamente 38 semanas (9 meses).
Lo que el médico debe obtener para extraer la edad gestacional (la edad del feto) y la fecha probable de parto, es la fecha de la última mestruación.
Debes de tener una forma con un control de calendario(Calendar), 3 etiquetas para fecha de última mestruación(lbldate), edad gestacional (lblGestAge) y fecha probable de parto(lblFPP), y un botón para enviar los datos a una caja de texto.
Al hacer clic en el calendario para elegir le fecha de la última regla.
--- Código: Text ---Private Sub Calendar_Click() Dim lngDays As Long lblFPP.Caption = DateAdd("d", 280, Calendar.DateValue) lngDays = DateDiff("d", Calendar.DateValue, Now) lblGestAge.Caption = Int(lngDays / 7) & " Sem y " & lngDays Mod 7 & " días" lbldate.Caption = Format(Calendar.DateValue, "dd/mmmm/yyyy") cmdOK.Enabled = TrueEnd Sub El siguiente código toma la información para que posteriormente la anotes en una caja de texto
--- Código: Text ---Private Sub cmdAplicar_Click() gstrFPP = vbCrLf & "Fecha última mestruación: " & Calendar.DateValue & vbCrLf & _ "Edad gestacional: " & lblGestAge.Caption & vbCrLf & _ "Fecha probable de parto: " & lblFPP.Caption gblnCancel = False Unload MeEnd Sub Espero la información anterior te sea útil. Si se te dificulta entenderle, te puedo ponere un ejemplo de código, adjunto.
------------------------------------------------------------------------------------------
Consulta Práctica, base de datos para consultorio médico. Programada en VB6.
http://www.cpimario.com
:comp:
Navegación
[#] Página Siguiente
Ir a la versión completa