public function DiffDate(yyyymmhh_1, hhmmss_1, yyyymmhh_2, hhmmss_2)
DiffDate — Calculates the number of seconds between two times.
This function returns the number of seconds between two
times. Each time is specified with two integers, one
representing a date in the format YYYYMMDD and one
representing a time in the format HHMMSS. This function
determines the Julian day of each date using the “julday”
function from the book “Numerical Recipes in FORTRAN, the
art of scientific computing (2nd Ed.), by William H. Press,
Saul A. Teukolsky, William T. Vetterling, and Brian P.
Flannery (Cambridge University Press, 1992). The difference
between the two times is then calculated and returned. The
times need not be in chronological order as the function returns
the abs value. -1 is returned in the event of an error.
RETURNED VALUE:
Integer function returns number of seconds between the
the times given as input. -1 is returned in the event
of an error.
History
17Oct97 Lucchesi Initial version.
2010.05.11 Lucchesi Integer for julian seconds changed to 64-bit. StartDate
constant no longer needed.
Nodes of different colours represent the following:
Solid arrows point from a procedure to one which it calls. Dashed
arrows point from an interface to procedures which implement that interface.
This could include the module procedures in a generic interface or the
implementation in a submodule of an interface in a parent module.
Where possible, edges connecting nodes are
given different colours to make them easier to distinguish in
large graphs.
Nodes of different colours represent the following:
Solid arrows point from a procedure to one which it calls. Dashed
arrows point from an interface to procedures which implement that interface.
This could include the module procedures in a generic interface or the
implementation in a submodule of an interface in a parent module.
Where possible, edges connecting nodes are
given different colours to make them easier to distinguish in
large graphs.