Calcular a previsão de nascimento do bebê quando repassado a semanas/meses
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
Curtidas 0
Melhor post
Natanael Ferreira
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;GOSTEI 2
Mais Respostas
Robson Cominato
30/08/2016
Deu certo, o cálculo foi feito perfeitamente.
Natanael Ferreira, muito obrigado.
Att.:
Natanael Ferreira, muito obrigado.
Att.:
GOSTEI 0
Fernando Gaspar
30/08/2016
Opa valeu, vai ajudar em outras questões!
abraço!
abraço!
GOSTEI 1