| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 841 人关注过本帖
标题:数据表导出至Excel 时日期型数据变为字符型
只看楼主 加入收藏
abe28
Rank: 1
等 级:新手上路
帖 子:6
专家分:0
注 册:2009-11-12
结帖率:100%
收藏
 问题点数:0 回复次数:2 
数据表导出至Excel 时日期型数据变为字符型
请教高手,数据表导出至Excel 时日期型数据变为字符型,怎么办呢?
我使用的命令格式是:
copy to a.xls type xls
搜索更多相关主题的帖子: 字符 Excel 数据 
2009-11-12 10:35
yang286
Rank: 3Rank: 3
来 自:新加坡
等 级:论坛游侠
帖 子:85
专家分:117
注 册:2009-11-11
收藏
得分:0 
放在error handling

* Example
? ExcelSerialNumber2Date(39278)            && 2007-07-15
? ExcelSerialNumber2Datetime(39278.456777)    && 2007-07-15 10:57:46
? ExcelSerialNumber2Time(.456777)        && 10:57:46
RETURN
*--------------------------------------------------------------------
 
* Convert Excel serial number to a date
FUNCTION ExcelSerialNumber2Date(tnExcelSerialNumber)
RETURN {^1899/12/30} + tnExcelSerialNumber
 
* Convert Excel serial number to a datetime
FUNCTION ExcelSerialNumber2Datetime(tnExcelSerialNumber)
RETURN DTOT({^1899/12/30} + INT(tnExcelSerialNumber)) + ;
    ROUND(24*60*60 * (tnExcelSerialNumber % 1),0)
 
* Convert Excel serial number to a time string
FUNCTION ExcelSerialNumber2Time(tnExcelSerialNumber)
RETURN SUBSTR(TTOC({^2000/01/10 00:00:00} + ROUND(24*60*60 * (tnExcelSerialNumber % 1),0),3), 12)
2009-11-12 10:48
abe28
Rank: 1
等 级:新手上路
帖 子:6
专家分:0
注 册:2009-11-12
收藏
得分:0 
怎么把这些应用到转换代码吗呢?我用的copy to 是一次性完成的操作呀
2009-11-12 11:01
快速回复:数据表导出至Excel 时日期型数据变为字符型
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.011724 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved