この発言は
#00030　Athena          さんの年齢計算・年月計算
に対するコメントです

この発言に対し以下のコメントが寄せられています

#00128　Athena          さん　RE^2:年齢計算・年月計算




#30 自己添削です(^^;　コードを４行追加します。

function GetYears(S,E: TDateTime; ResultType:Integer):String;
var
   ・
begin
　 ・
     if ResultType=0 then
     begin
        if Day1 > Day2 then
        Month2:= Month2-1;
     end
     else
     begin
        if E=EncodeDate(Year2,Month2+1,1)-1 then        //追加
        begin                                           //追加
           Inc(Month2);Day2:=0 ;                        //追加
        end;                                            //追加
        if Day1 > Day2+1 then  //経過年月   例：1995/05/01から
        Month2:= Month2-1;     //1997/02/28で1年10ヶ月とします
     end;

　 ・
 end;


                     _/_/   Athena ( VYH00522 )  _/_/

Original document by Athena          氏 ID:(VYH00522)

ここにあるドキュメントは NIFTY SERVEの Delphi Users' Forum の16番会議室「玉石混淆みんなで作るSample蔵」に投稿されたサンプルです。これらのサンプルはボーランド株式会社がサポートする公式のものではありません。また、必ずしも動作が検証されているものではありません。これらのサンプルを使用したことに起因するいかなる損害も投稿者、およびフォーラムスタッフはその責めを負いません。使用者のリスクの範疇でご使用下さい。