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

#00129　ひでかず        さん　RE:星座判定






//星座を求める関数//　　MM/DDから求める
Function SeizaCalc(YYMMDD:TDateTime):String;
   var i:Integer;
   begin
       i:=StrToInt(FormatDateTime('MMDD',YYMMDD));
       case i of
           101.. 119: Result:= '山羊座 Capricorn';
           120.. 218: Result:= '水瓶座　Aquarius';
           219.. 320: Result:= '魚座　Pisces';
           321.. 419: Result:= '牡羊座　Aries';
           420.. 520: Result:= '牡牛座　Taurus';
           521.. 621: Result:= '双子座　Gemini';
           622.. 722: Result:= '蟹座　Cancer';
           723.. 821: Result:= '獅子座　Leo';
           822.. 922: Result:= '乙女座　Virgo';
           923..1023: Result:= '天秤座　Libra';
          1024..1122: Result:= '蠍座　Scorpio';
          1123..1221: Result:= '射手座　Sagittarius';
          1222..1231: Result:= '山羊座 Capricorn'
         else
              Result:='判定不能';
    end;
end;

くだらないUPでお許し下さいm(__)m

                   97/10/20(Mon) ワカシ  QZE02267@niftyserve.or.jp  
                                       

Original document by ワカシ          氏 ID:(QZE02267)

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