100
Appendix 2: Displaying Data Formats
// *psMonth = 1;
// *psDay = sDay+1;
// }
//
// --------------------------------------------------------------
//
// double
// dMakeTime(long lHour, // Hour Value
// long lMin, // Minute
// double dSec) // Second
// {
// double dVal;
//
// // --- Limit the Information ---
//
// if (dSec > 30000000.0) dSec = 0.0;
// else {
// while (dSec >= 60.0) {lMin++; dSec -= 60.0;}
// if (dSec < 0.0) dSec = 0.0;
// }
// if (lMin > 500000L) lMin = 0L;
// else {
// while (lMin >= 60L) {
// if (lHour >= 0L) lHour++;
// else lHour--;
// lMin -= 60;
// }
// if (lMin < 0L) lMin = 0L;
// }
//
// // --- Compute fractional hour ---
//
// dVal = (dSec + (double) (lMin * 60L)) / 3600.0;
// if (lHour < 0) dVal = -dVal;
//
// // --- Compute final value ---
//
// return(dVal + (double) lHour);
// }
//
// //------------------------------------------------------------
//
// double
// dMakeDate(short sYear, // Year
// short sMonth, // Month
// short sDay) // Day of the Month
// {
// short sDays;
// const short *psMonths;
// short i;
//
// // --- Validate the Date ---
//
// if (sYear < 0) sYear = 0;
// if ((sYear%4) == 0)
// {
// psMonths = DateLGS;
// sDays = LEAP_YEAR;
// } else {
// psMonths = DateNGS;
// sDays = NORMAL_YEAR;
// }
//
//
