soma com Data

[edson_hh 0]

Como faço pra saber qtos dias tem em uma certa qtidade de meses ou anos??eh assim..por exemplo..estou com uma data de fabricação de um produto... alguem vai digitar a validade deste modo:ano(s):mes(es):dia(s):um jeito facil, é ver qtos dias tem e somar com a data de fabricação, q ele calcula sozinho.mas como ver isso?por exemplo.se o cara falar q tem 6 meses de validade. So q 6 meses nunca tem a mesma qtidade de dias dependendo do mes. Por exemplo, se pegar com fevereiro, esses 6 meses vai ter menos dias do q se pegar julho e agosto q tem 31. algume pode ajudar???

[bdexterholland 0]

uma gambiarra que pode te ajudar:

 

var	j,datafabricacao,dataatual,datacorrente:tdatetime;	i:integer;begin      datacor:=dataatu-datafab;   for j:=datacor to dataatu do	   inc (i);   showmessage ('Dias corridos: ',inttostr(j));end;