RSEIS (version 4.2-4)

recdate: Rectify Date

Description

Rectify a date that may be out of wack.

Usage

recdate(jd=0, hr=0, mi=0, sec=0, yr=0)
recdatel(X)

Value

jd

Julian Day

hr

hours

mi

minutes

sec

seconds

yr

year

Arguments

jd

Julian Day

hr

hours

mi

minutes

sec

seconds

yr

year

or

X

list of date

Author

Jonathan M. Lees<jonathan.lees.edu>

Details

Returns date with correct numbers. So if number of seconds is greater than 60, will add to minutes...

See Also

showdatetime, DAYSperYEAR, fromjul,getjul, tojul, getmoday

Examples

recdate(76, 23, 22, yr=2000)

###########  example spanning leap year
##  start on Day 1, but subtract 36 hours and proceed to plus 36 hours
hrs <- seq(from=-36, to=36, by=2)
rd <- recdate(jd=1, hr=hrs, mi=34,
       sec=23+runif(n=length(hrs), 0, 59) , yr=2009)
write.table(data.frame(rd))

###########  example spanning non-leap year
rd2 <- recdate(jd=1, hr=hrs, mi=34,
     sec=23+runif(n=length(hrs), 0, 59) , yr=2008)
write.table(data.frame(rd2))