标题时间怎么能显示成yyyymmddhh格式呢？

dqxiaoding

使用
'q time'
rct=subwrd(result,3)
可以实现标题中时间显示为17Z05DEC2016这样的格式
我又用了substr函数，截取了字符串中的时间数字，
'q time'
rct=subwrd(result,3)
rcth=substr(rct,1,2)
rctd=substr(rct,4,2)
rctm=substr(rct,6,3)
rcty=substr(rct,9,4)
'draw string 3.3 7.9 'rcty''rctm''rctd''rcth' (unit:m/s) '
这样最后出来的标题中的时间格式是2016DEC0517.
怎么能把DEC也换成数字12呢？

dqxiaoding

爱到花开 发表于 2017-6-21 22:12
我换了一个思路 主要不会用那些math_的函数，不然我感觉纯数学方法用取余数函数mod也可以弄

挺好的。你的方法对数据的年份有要求。
我昨天快下班时有空试了一下，运行成功了，贴出来。
'q time'
rct=subwrd(result,3)
len=math_strlen(rct)

if len=12
rctmin=00
rcth=substr(rct,1,2)
rctd=substr(rct,4,2)
rctm=substr(rct,6,3)
rcty=substr(rct,9,4)
endif

if len=15
rctmin=substr(rct,4,2)
rcth=substr(rct,1,2)
rctd=substr(rct,7,2)
rctm=substr(rct,9,3)
rcty=substr(rct,12,4)
endif

astiny

if  rctm='DEC'
rctm=12
else if
.....
大概意思啊。具体怎么弄还得自己研究。

dqxiaoding

astiny 发表于 2016-12-5 18:12
if  rctm='DEC'
rctm=12
else if

谢谢，我试试

dqxiaoding

最后用if解决了
if rctm='JAN'
rctm=01
endif

if rctm='FEB'
rctm=02
endif
if语句有一定局限性。
我用
if rctm='JAN'
rctm=01
elseif rctm='FEB'
rctm=02
endif
if rctm='MAR'
rctm=03
elseif……
这样写下来，最后不管实际是几月，得到的都是12月

……dfg

dqxiaoding 发表于 2016-12-6 10:42
最后用if解决了
if rctm='JAN'
rctm=01

在grads中，没有else if语句。

爱到花开

大哥 分钟怎么弄啊

dqxiaoding

爱到花开 发表于 2017-6-20 16:42
大哥 分钟怎么弄啊

我没试过分钟。需要在ctl中把分钟写进去吧？
给你一个有分钟的q time截图。
获取分钟方法跟一楼的方法类似，把substr变换一下就可以了

dqxiaoding

按照上面截图来看，分钟应该是
'q time'
rct=subwrd(result,3)
rctmin=substr(rct,4,2)

但我发现如果是整点的话，q time的结果不显示分钟。
所以整点的情况还需要单独处理一下。
grads有获取字符串长度函数，把rct长度数一下，再用if判断一下，如果长度偏小，就把分钟赋值为00
思路应该是这样的

爱到花开

哦 居然还可以用if语句判断rct长度 学到了！

dqxiaoding

爱到花开 发表于 2017-6-21 13:52
哦 居然还可以用if语句判断rct长度 学到了！

'q time'
rct=subwrd(result,3)
len=math_strlen(rct)
如果取到的时间中没有分钟，len=12，有分钟的话，len=15
再用if判定
按照这个思路是可以的。