EndOfTheMonth（日付）からVariant値への変換が正しくありません

Question

私はTDateTimeの値（これはEndOfTheMonth(date)です）をバリアント型に持っています。結果は誤って丸められます。例を見てみましょう：

data := EndOfTheMonth(date); 
    V := data; 
    ShowMessage(DateTimeToStr(data) + ' vs ' + VarToStr(V)); 
// output is 
// data = 2012-01-31 23:59:59 
// v = 2012-02-01   // why next day? 

動作は設計されていますか？ これを回避するには？

Answer 1

ShowMessage(DateTimeToStr(data) + ' vs ' + DateTimeToStr(VarToDateTime(V))); 

アップデート：私は推測する問題は、月の最後のミリ秒は、午前0時00分00秒次の日に非常に近いということで、つまり、（基本的にdoubleです）TDateTime値（例えば、41029.9999999884は、に非常に近い）整数に非常に近いので、VarToStr関数は、小数点が数値的な毛羽であると仮定します。