C++ -> Delphi

[Kolik317]

В обще программа расчета дней солнцестояний, в нете есть исходник на C++ - http://www.codeguru.com/code/legacy/...me/Seasons.zip.

Мне надо перевести тоже самое один в один в делфи... вроде перевел, правильно выдает год, месяц и время а в дне почемуто ошибается на 1-2...
Ошибка наверно в округлениях а может еще где-то...

Function calculatedate(val : real) : string;
var
	 ut:real;
	 jdn:Integer ;
 year, month, day:integer ;
 hour, minute:integer ;
 julian:boolean ;
	 x, z, m, d, y:real ;
	daysPer400Years :Integer  ;
 fudgedDaysPer4000Years :Integer ;
 LASTJULJDN:integer;
 begin
   LASTJULJDN:=2299160;
    daysPer400Years := 146097 ;
    fudgedDaysPer4000Years := 1460970 + 31 ;

  val:= val+0.5 ;

 jdn := floor(val) ;
	ut := val - jdn ;



 if jdn<=LASTJULJDN then
julian := true else
 julian := false;

x := jdn + 68569 ;

	if julian then
  begin
		x:=x+ 38 ;
		daysPer400Years := 146100 ;
		fudgedDaysPer4000Years := 1461000+1 ;
		end;

	z := floor(4 * x / daysPer400Years);
	x := floor(x - (daysPer400Years * z + 3) / 4) ;
	y := floor(4000 * (x + 1)/ fudgedDaysPer4000Years) ;
	x := floor(x - 1459 * y/ 4 + 31 );
	m :=floor( 80 * x/2447) ;
	d := floor(x - 2447 * m / 80) ;
	x := floor(m/11 );
	m := floor(m + 2 - 12 * x) ;
	y := floor(100 * (z - 49) + y + x) ;
	year := floor(y) ;
	month := floor(m) ;
	day :=floor(d) ;
	if year <= 0 then                   // adjust BC years
		year:=year-year;

	hour :=floor(ut * 24) ;
	minute :=floor((ut * 24 - hour) * 60) ;  //  Accurate to about 15 minutes c. 2000 CE.

	calculatedate:=inttostr(day)+' '+inttostr(month)+' '+inttostr(year)+' '+inttostr(hour)+' '+inttostr(minute) ;

- мой код делфи

CString CSeasonsDlg::CalculateDate(double val)
{
	CString retval ;
	double ut ;
	int jdn ;
	int year, month, day ;
	int hour, minute ;
	BOOL julian ;
	long x, z, m, d, y ;
	long daysPer400Years = 146097L ;
	long fudgedDaysPer4000Years = 1460970L + 31 ;
	
	val += 0.5 ;       //  Convert astronomical JDN to chronological
	
	jdn = (long)floor(val) ;
	ut = val - jdn ;
	julian = (jdn <= LASTJULJDN) ;
	x = jdn + 68569L ;
	
	if (julian) {
		x += 38 ;
		daysPer400Years = 146100L ;
		fudgedDaysPer4000Years = 1461000L + 1 ;
		}
	
	z = 4 * x / daysPer400Years ;
	x = x - (daysPer400Years * z + 3) / 4 ;
	y = 4000 * (x + 1) / fudgedDaysPer4000Years ;
	x = x - 1461 * y / 4 + 31 ;
	m = 80 * x / 2447 ;
	d = x - 2447 * m / 80 ;
	x = m / 11 ;
	m = m + 2 - 12 * x ;
	y = 100 * (z - 49) + y + x ; 
	year = (int)y ;
	month = (int)m ;
	day = (int)d ;          
	if (year <= 0)                   // adjust BC years
		year-- ;
	
	hour = (int)(ut * 24) ;
	minute = (int)((ut * 24 - hour) * 60) ;  //  Accurate to about 15 minutes c. 2000 CE.
	
	retval.Format("%02d-%02d-%4d %02d:%02d GMT", day, month, year, hour, minute) ;
	
	return (retval) ;
}

код c++


Может проблема тут ? 1461000L + 1.. я просто почти полный чайник в си, не пойму зачем L на конце и +1 еще.

[mihali4]

В исходнике же указано - long, что соответствует дельфийскому longint...

[Пепел Феникса]

это просто Long обозначает...
а вы уверены что вам нужно Floor, а не Trunc?

там же не округление а отброс дробной части.

Михалыч, LongInt=Integer при 32х битном компиле.
но соглашусь в одном, надежнее всетаки LongInt при Long
а при Int ставим Integer
ибо так будет точное соответствие типов.при любом компиле.

[Kolik317]

Попробовал заменил тип на longint, не помогло, вместо floor не помогло ни trunc() не int()


А зачем после L еще один прибавлять? что сразу чтоли нельзя прибавить? или это что-нибудь значит


И Round тоже совсем не в тему