怎样产生如下的时间格式呢？（ok）

我现在大致懂2楼的意思了，他是让我在S中直接用“年-月-日”的格式，不过现在有这么个问题。

我的excel中格式是“年-月-日”，用imprtdata->files导入后，日期格式会消失

这个问题又是怎么回事呢？

我发觉只有在excel中把日期都改成“月/日/年”的格式，才能在S中正确导入，手动工作量实在太大；3楼所说的办法我没有完全懂，不成功，不知道是不是因为不得要害，还希望他再次赐教！

前面可能理解有问题。

导入后，选中第一列，按鼠标右键，选择Properties...,弹出timeDate Column[1]对话框，如果不是timeDate格式按前面2楼方法设定一下。

在Data format选项下选择你需要的格式，比如YYYY-MM-DD

看来你的数据格式与ibm.txt相似

将ibm.txt放在c碟下. c:\ibm.txt

#S+FinMetrics Version 1.0.2

#Daily simple returns of IBM, VW, EW, SP

#Format: date, IBM, VW, EW & SP

# 19620703 0.00429 0.0113 0.0131 0.0113

# 19620705 -0.00427 0.0060 0.0069 0.0057

# 19620706 -0.01429 -0.0107 -0.0064 -0.0113

module(finmetrics)

axiaoLoad = function(file, fields.list = list(Date = "",ibm=0,vw=0,ew=0,sp=0))

{

if ((!is.element("Date", names(fields.list))))

stop("Fields of Date must be in the supplided fields.list!")

df = as.data.frame(scan(file = file, what = fields.list, multi.line=TRUE,

strip.white=TRUE),stringsAsFactors = F)

dates.tmp = timeDate(charvec = df[, "Date"], in.format = "%04Y%02m%02d" )

ans = timeSeries(data = df[, c("ibm","vw","ew","sp")], pos =dates.tmp)

ans

}

ibm.ts = axiaoLoad("C:/ibm.txt")

ibm.ts

输出结果如下

Positions ibm vw ew sp

07/03/1962 0.00429 0.0113 0.0131 0.0113

07/05/1962 -0.00427 0.0060 0.0069 0.0057

07/06/1962 -0.01429 -0.0107 -0.0064 -0.0113

不是很清楚楼主的问题。不过，可以考虑转成csv或者txt的格式，然后再用二楼的方法。应该可以的（至少在R里面是OK的）

按照peterf教我的，在excel中日期格式为“年-月-日”型，直接用ImportData-〉From files导入数据，日期那一列自动是timeDate结构，但是数据显示为“00：00：00”之类，选定这列，点右键，选properties，出现timeDate Column[1]对话框，设定Data format选项为MM/dd/yyyy，便可以解决我所说到的问题。

Yiyo900写的方法，非常清楚、霸道，感谢他如此出力帮助；我还是再自己仔细弄一下

谢谢所有回帖帮忙的好心人。。。

[此贴子已经被作者于2007-4-21 0:25:56编辑过]