计算机系统时间提取的方法,idl提取计算机时间！

IDL> ;获取当前系统时间，输出为字符串形式

IDL> print,systime()

Wed Aug 22 21:20:52 2012

IDL> ;获取当前系统时间，转换为年月日时分的形式，2012年8月22日21时23分35秒

IDL> print,bin_date(systime())

2012 8 22

21 23 35

IDL> ;获取当前系统时间，儒略日形式输出

IDL> print,systime(/julian)

2456162.4

IDL> ;当前儒略日日期转换年月日时分，2012年8月22日21时26分58.000035秒

IDL>

caldat,systime(/julian),month,day,year,hour,min,sec

IDL> print,month,day,year,hour,min,sec

8 22 2012 21 26 58.000035

IDL> ;年月日时分格式转换为儒略日，2012年8月22日

IDL> print,julday(8,22,2012)

2456162

IDL> ;计算两个日期差多少天，如求2007年7月30日至2012年8月22日有多少天

IDL> print,julday(8,22,2012)-julday(7,30,2007)

1850

IDL> ;年月日时分格式转换为儒略日，2012年8月22日21时26分58秒

IDL> print,julday(8,22,2012,21,26,58)

2456162.4

IDL> ;计算从2007年7月30日起，第1850天是哪一年哪月哪日？

IDL> caldat,julday(7,30,2007)+1850,month,day,year

IDL> print,month,day,year

8 22 2012

IDL> ;获取当前系统时间，秒制形式输出

IDL> print,systime(/seconds)

1.3456417e+009

IDL> ;获取当前系统时间，秒制形式输出，与上面一样

IDL> print,systime(1)

1.3456417e+009

IDL> ;统计程序运行前后时间差的方法

IDL> starttime = systime(1)

IDL> endtime = systime(1)

IDL> print,'花费时间：',endtime

- starttime

花费时间：7.7220001

IDL> ;统计以月为单位从2000年1月1日起至今，每隔3月一次的所有记录

IDL> MyTimes = TIMEGEN(START=JULDAY(1,1,2000),

FINAL=systime(/julian), UNITS='month',step =3)

IDL> help,mytimes

MYTIMES DOUBLE =

Array[51]

IDL> ;将统计的儒略日结果转换为年月日

IDL> caldat,mytimes,mons,days,years

IDL> ;输出查看前5组数据的年月

IDL> for i=0,4 do

print,StrTrim(years[i],2)+':'+Strtrim(mons[i],2)

2000:1

2000:4

2000:7

2000:10

2001:1