internal static double EQnow_lst_norange() { UpgradeSolution1Support.PInvoke.UnsafeNative.Structures.SYSTEMTIME typTime = new UpgradeSolution1Support.PInvoke.UnsafeNative.Structures.SYSTEMTIME(); UpgradeSolution1Support.PInvoke.SafeNative.kernel32.GetSystemTime(ref typTime); double mjd = (typTime.wMinute * 60) + (typTime.wSecond) + (typTime.wMilliseconds / 1000d); double MTMP = (typTime.wHour); MTMP *= 3600; mjd = mjd + MTMP + (typTime.wDay * 86400); return(mjd); }
internal static double EQnow_lst(double plong) { object mjd_hr = null; object mjd_day = null; double[] vb_mjd = null; object[, ] obliq = null; double[] radhr = null; object[, ] range = null; object[, , ] utc_gst = null; object[, , ] nut = null; UpgradeSolution1Support.PInvoke.UnsafeNative.Structures.SYSTEMTIME typTime = new UpgradeSolution1Support.PInvoke.UnsafeNative.Structures.SYSTEMTIME(); double eps = 0; double lst = 0; double deps = 0; double dpsi = 0; // mjd = vb_mjd(CDbl(Now) + gGPSTimeDelta) UpgradeSolution1Support.PInvoke.SafeNative.kernel32.GetSystemTime(ref typTime); double mjd = vb_mjd[Convert.ToInt32(DateTime.Now.AddDays(gEQTimeDelta).AddDays(typTime.wMilliseconds / 86400000d).ToOADate())]; //UPGRADE_WARNING: (1068) mjd_hr() of type Variant is being forced to int. More Information: https://www.mobilize.net/vbtonet/ewis/ewi1068 //UPGRADE_WARNING: (1068) mjd_day() of type Variant is being forced to int. More Information: https://www.mobilize.net/vbtonet/ewis/ewi1068 object tempAuxVar = utc_gst[Convert.ToInt32(((Array)mjd_day).GetValue(Convert.ToInt32(mjd))), Convert.ToInt32(((Array)mjd_hr).GetValue(Convert.ToInt32(mjd))), Convert.ToInt32(lst)]; lst += radhr[Convert.ToInt32(plong)]; object tempAuxVar2 = obliq[Convert.ToInt32(mjd), Convert.ToInt32(eps)]; object tempAuxVar3 = nut[Convert.ToInt32(mjd), Convert.ToInt32(deps), Convert.ToInt32(dpsi)]; lst += radhr[Convert.ToInt32(dpsi * Math.Cos(eps + deps))]; object tempAuxVar4 = range[Convert.ToInt32(lst), 24L]; return(lst); // EQnow_lst = now_lst(plong) }
extern public static void GetSystemTime(ref UpgradeSolution1Support.PInvoke.UnsafeNative.Structures.SYSTEMTIME lpSystemTime);