Delphi的TDatetime转换成C#的DateTime

来源：互联网发布：java api 中文编辑：程序博客网时间：2024/06/05 12:39

public static DateTime DoubleToDateTime(double xd)

{

int d, h, m, s, mm;

double dd, dh, dm, ds, dmm;

dd = xd;

d = (int)dd;

dh = (dd - d) * 24;

h = (int)dh;

dm = (dh - h) * 60;

m = (int)dm;

ds = (dm - m) * 60;

s = (int)ds;

dmm = (ds - s) * 1000;

mm = (int)dmm;

TimeSpan ts = new TimeSpan(d, h, m, s, mm);

return new DateTime(1899, 12, 30) + ts;

}

unsafe static void Main(string[] args)

{

double d = 41070.979715;

Console.WriteLine(DoubleToDateTime(d));

}

// 和Delphi实际相差1分钟

public static DateTime DoubleToDateTime(double xd)

{

return (new DateTime(1899, 12, 30)).AddDays(xd);

}

public static double DateTimeToDouble(DateTime dt)

{

TimeSpan ts = dt - new DateTime(1899, 12, 30);

return ts.TotalDays;

}

public static int GetDayCount(Double MaxDate, DateTime MinDate)

{

int result;

double Day = ((DateTime)DoubleToDateTime(MaxDate) - MinDate).TotalDays;

if (Day > 0)

{

result = (int)Math.Ceiling(Day);

}

else

{

result = 0;

}

return result;

}

0 0