VB,如何将字符串型转化为日期型?

2024-12-04 15:55:57

推荐回答（5个）

回答1：

1．启动VB6．0并创建一个新的标准exe项目。

2．在窗体上绘制命令按钮的一个版本，名称为Command1。

3．双击命令按钮以进入代码窗口。

4．假设调用了一个函数a，从1到100，可以选择计数循环，下一条语句。

5．编写命令按钮的单击事件。

6．按F5运行测试，就完成了。

回答2：

format(cdate(x),"yyyy-m-d") cdate是转换的函数 function FormatDateTime(const Format: string; DateTime: TDateTime): string; overload; 当然和Format一样还有一种，但这里只介绍常用的第一种 Format参数是一个格式化字符串。DateTime是时间类型。返回值是一种格式化后的字符串重点来看Format参数中的指令字符 c 以短时间格式显示时间，即全部是数字的表示 FormatdateTime('c',now); 输出为：2004-8-7 9:55:40 d 对应于时间中的日期，日期是一位则显示一位，两位则显示两位 FormatdateTime('d',now); 输出可能为1～31 dd 和d的意义一样，但它始终是以两位来显示的 FormatdateTime('dd',now); 输出可能为01～31 ddd 显示的是星期几 FormatdateTime('ddd',now); 输出为: 星期六 dddd 和ddd显示的是一样的。但上面两个如果在其他国家可能不一样。 ddddd 以短时间格式显示年月日 FormatdateTime('ddddd',now); 输出为：2004-8-7 dddddd 以长时间格式显示年月日 FormatdateTime('dddddd',now); 输出为：2004年8月7日 e/ee/eee/eeee 以相应的位数显示年 FormatdateTime('ee',now); 输出为：04 （表示04年） m/mm/mmm/mmmm 表示月 FormatdateTime('m',now); 输出为：8 FormatdateTime('mm',now); 输出为 08 FormatdateTime('mmm',now); 输出为八月 FormatdateTime('mmmm',now); 输出为八月和ddd/dddd 一样，在其他国家可能不同 yy/yyyy 表示年 FormatdateTime('yy',now); 输出为 04 FormatdateTime('yyyy',now); 输出为 2004 h/hh,n/nn,s/ss,z/zzz 分别表示小时，分，秒,毫秒 t 以短时间格式显示时间 FormatdateTime('t',now); 输出为 10:17 tt 以长时间格式显示时间 FormatdateTime('tt',now); 输出为10:18:46 ampm 以长时间格式显示上午还是下午 FormatdateTime('ttampm',now); 输出为：10:22:57上午大概如此，如果要在Format中加普通的字符串，可以用双引号隔开那些特定义的字符，这样普通字符串中如果含特殊的字符就不会被显示为时间格式啦： FormatdateTime('"today is" c',now); 输出为：today is 2004-8-7 10:26:58 时间中也可以加"-"或"\"来分开日期： FormatdateTime('"today is" yy-mm-dd',now); FormatdateTime('"today is" yy\mm\dd',now); 输出为： today is 04-08-07 也可以用":"来分开时间 FormatdateTime('"today is" hh:nn:ss',now); 输出为：today is 10:32:23

回答3：

format(cdate(x),"yyyy-m-d")
cdate是转换的函数

function FormatDateTime(const Format: string; DateTime: TDateTime): string;
overload;
当然和Format一样还有一种，但这里只介绍常用的第一种
Format参数是一个格式化字符串。DateTime是时间类型。返回值是一种格式化后的
字符串

重点来看Format参数中的指令字符
c 以短时间格式显示时间，即全部是数字的表示
FormatdateTime('c',now);
输出为：2004-8-7 9:55:40
d 对应于时间中的日期，日期是一位则显示一位，两位则显示两位
FormatdateTime('d',now);
输出可能为1～31
dd 和d的意义一样，但它始终是以两位来显示的
FormatdateTime('dd',now);
输出可能为01～31
ddd 显示的是星期几
FormatdateTime('ddd',now);
输出为: 星期六
dddd 和ddd显示的是一样的。
但上面两个如果在其他国家可能不一样。
ddddd 以短时间格式显示年月日
FormatdateTime('ddddd',now);
输出为：2004-8-7
dddddd 以长时间格式显示年月日
FormatdateTime('dddddd',now);
输出为：2004年8月7日
e/ee/eee/eeee 以相应的位数显示年
FormatdateTime('ee',now);
输出为：04 （表示04年）
m/mm/mmm/mmmm 表示月
FormatdateTime('m',now);
输出为：8
FormatdateTime('mm',now);
输出为 08
FormatdateTime('mmm',now);
输出为八月
FormatdateTime('mmmm',now);
输出为八月
和ddd/dddd 一样，在其他国家可能不同
yy/yyyy 表示年
FormatdateTime('yy',now);
输出为 04
FormatdateTime('yyyy',now);
输出为 2004
h/hh,n/nn,s/ss,z/zzz 分别表示小时，分，秒,毫秒
t 以短时间格式显示时间
FormatdateTime('t',now);
输出为 10:17
tt 以长时间格式显示时间
FormatdateTime('tt',now);
输出为10:18:46
ampm 以长时间格式显示上午还是下午
FormatdateTime('ttampm',now);
输出为：10:22:57上午

大概如此，如果要在Format中加普通的字符串，可以用双引号隔开那些
特定义的字符，这样普通字符串中如果含特殊的字符就不会被显示为
时间格式啦：
FormatdateTime('"today is" c',now);
输出为：today is 2004-8-7 10:26:58
时间中也可以加"-"或"\"来分开日期：
FormatdateTime('"today is" yy-mm-dd',now);
FormatdateTime('"today is" yy\mm\dd',now);
输出为： today is 04-08-07
也可以用":"来分开时间
FormatdateTime('"today is" hh:nn:ss',now);
输出为：today is 10:32:23

回答4：

Private Sub Command2_Click()
Dim name As String
Dim b2 As Date
bl = CDbl(Now)
name = Format(bl, "yyyy/mm/dd hh:mm:ss")
b2 = CDate(name)
End Sub

上面的就可以转换，注意一点必须是 yyyy/mm/dd hh:mm:ss,如果不是这个字符串，强行换成这个字符串

回答5：

CDate
format

最新问答

苏大文正学院学号按什么排的？

我要打磨铝管内的毛刺但不能磨伤内管请问有什么方法吗？

我的男朋友是个性格很偏激的人，我已经不知道该如何改变他的性格缺陷，也不知道该如何和他相处。

外墙腻子强度为什么不高外墙腻子粉和内墙腻子粉的区别

不好意思啊我第一次坐地铁，谁能告诉我地铁怎么买票啊？

托福的美国大学送分代码，和AP还有sat的大学送分代码是一样的吗？

小米官网，无论验证码怎么输入都不对，骗人的吧？

铁锅炖名字！

在，python中，有时循环答上亿次，那么，循环次数很多时怎样提高效率

孔繁森的故事100字