利用VBA处理股票代码过程中遇到的问题

来源：互联网发布：网络大电影制作合同编辑：程序博客网时间：2024/04/27 17:56

1、将数字转换为字符：cstr函数

2、将数字格式为某个固定位数的字符串：format

Dim MyTime, MyDate, MyStrMyTime = #17:04:23#MyDate = #January 27, 1993#' Returns current system time in the system-defined long time format.MyStr = Format(Time, "Long Time")' Returns current system date in the system-defined long date format.MyStr = Format(Date, "Long Date")MyStr = Format(MyTime, "h:m:s")    ' Returns "17:4:23".MyStr = Format(MyTime, "hh:mm:ss AMPM")    ' Returns "05:04:23 PM".MyStr = Format(MyDate, "dddd, mmm d yyyy")    ' Returns "Wednesday,    ' Jan 27 1993".' If format is not supplied, a string is returned.MyStr = Format(23)    ' Returns "23".' User-defined formats.MyStr = Format(5459.4, "##,##0.00")    ' Returns "5,459.40".MyStr = Format(334.9, "###0.00")    ' Returns "334.90".MyStr = Format(5, "0.00%")    ' Returns "500.00%".MyStr = Format("HELLO", "<")    ' Returns "hello".MyStr = Format("This is it", ">")    ' Returns "THIS IS IT".

我遇到的问题是交易软件导出的数据转为csv格式的时候诸如000520这样的代码会缩减为520.

在此用format(520,"000000")即可达到效果。

0 0