Zła konwersja z EndOfTheMonth (data) na wartość wariantu

Question

Mam wartość TDateTime (otrzymaną w wyniku od EndOfTheMonth(date)) do typu wariantu. Wynik jest błędnie zaokrąglony. Rzućmy okiem na przykład:

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? 

Czy zaprojektowano zachowanie? Jak obejść ten problem?

Answer 1

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

Aktualizacja: Przypuszczam, że problem jest, że ostatni milisekundę miesiąca jest bardzo blisko 0:00:00 następnego dnia, czyli wartość TDateTime (który jest w zasadzie double) jest bardzo zbliżone do liczby całkowitej (np. 41029.9999999884 jest bardzo zbliżone do 41029), więc funkcja VarToStr zakłada, że ​​dziesiętne są liczbowe.