Fórum Calcular a previsão de nascimento do bebê quando repassado a semanas/meses #561701
30/08/2016
0
Boa noite,
Galera estou em fase final do TCC e preciso de uma ajude de vocês, de novo rs.
Meu sistema é de cadastro e acompanhamento de gestantes/bebês e preciso calcular a data de previsão do nascimento do bebê a partir da semana que a usuário informar, ou seja, tenho a semanas/meses de gestação e com estes dados preciso de uma data de previsão de quando irá nascer a criança.
Vlw
Att.:
Galera estou em fase final do TCC e preciso de uma ajude de vocês, de novo rs.
Meu sistema é de cadastro e acompanhamento de gestantes/bebês e preciso calcular a data de previsão do nascimento do bebê a partir da semana que a usuário informar, ou seja, tenho a semanas/meses de gestação e com estes dados preciso de uma data de previsão de quando irá nascer a criança.
Vlw
Att.:
Robson Cominato
Curtir tópico
+ 0
Responder
Post mais votado
30/08/2016
Utilize a função [b]IncWeek[/b] da unit [b]DateUtils[/b] para acrescentar semanas(40 semanas) na data informada.
Coloque um DateTimePicker no form para o usuário informa a data e um botão.
Adicione DateUtils na uses do form.
No evento OnClick do botão:
Coloque um DateTimePicker no form para o usuário informa a data e um botão.
Adicione DateUtils na uses do form.
No evento OnClick do botão:
Var
Data: TDate;
begin
Data := DateTimePicker1.Date;
Data := IncWeek(Data, 40);
ShowMessage('Previsão de Parto: ' + DateToStr(Data));
end;Natanael Ferreira
Responder
Gostei + 2
Mais Posts
30/08/2016
Robson Cominato
Deu certo, o cálculo foi feito perfeitamente.
Natanael Ferreira, muito obrigado.
Att.:
Natanael Ferreira, muito obrigado.
Att.:
Responder
Gostei + 0
30/08/2016
Fernando Gaspar
Opa valeu, vai ajudar em outras questões!
abraço!
abraço!
Responder
Gostei + 1
Clique aqui para fazer login e interagir na Comunidade :)