vb里面怎么把当前年月日合成一个唯一数字

如题所述

VB会自动判断出这是个日期格式的字符串,然后把它赋值给一个日期型变量时,VB会自动进行转换的。
转换后的日期格式是由你的电脑设置的日期格式决定的,比如你的电脑如果设的是2014/9/910:00:00,那么你直接显示这个日期的话也就是这样的格式。如果要显示为2014-9-910:00:00,可以用Format函数,不过要注意的是转换后仍然是字符串格式:sss="09Sep201410:00:00"PrintFormat(sss,"yyyy-m-dhh:nn:ss")日期变量是可以直接进行加减运算的,myDate=myDate+#8:00:00AM#表示在myDate这个时间点上再增加8个小时。
建立一个新窗体放上5个文本框一个按钮然后复制我的代码然后运行就能达到你的要求PrivateSubCommand1_Click()DimaAsInteger,bAsInteger,cAsInteger,dAsInteger,riqi,riqi1a=Text1.Text'输入小时b=Text2.Text'输入分钟c=Text3.Text'输入想要累加的分钟d=(b+c)Mod60'让他变成3分同时小时+1e=a+(b+c)\60'让他变成3分同时小时+1riqi=a&":"&b'累加前的时间riqi1=e&":"&d'累加后的时间Text4.Text=riqi'输出累加前的时间Text5.Text=riqi1'输出累加后的时间EndSubVB6.0测试通过而且每一步都给你说明了这样详细分数应该给我吧。
温馨提示:内容为网友见解,仅供参考
无其他回答

vb里面怎么把当前年月日合成一个唯一数字
VB会自动判断出这是个日期格式的字符串,然后把它赋值给一个日期型变量时,VB会自动进行转换的。转换后的日期格式是由你的电脑设置的日期格式决定的,比如你的电脑如果设的是2014\/9\/910:00:00,那么你直接显示这个日期的话也就是这样的格式。如果要显示为2014-9-910:00:00,可以用Format函数,不...

vb!如何把输入的日期和时间整合成一个时间变量?
使用Left(strn)和Right函数分别取出年月日时,然后算下就行了 === 加个时间空间和命令按钮 Option Explicit Dim strtime As Date Dim strdate As Date Private Sub Command1_Click()On Error GoTo err_do '错误处理 Dim y, m, d, n As Integer Dim h As Integer Dim total As Long y...

vb.net中怎样把年月日三个数字合成一个整型存入数据库?
combobox1'年 combobox2'月 combobox3'日 trim(combobox1.text) & trim(combobox2.text) & trim(combobox3.text)

vb如何将一个日期变成另一个值。
Private Sub DTPicker1_Change()Text1.Text = DateDiff("d", DTPicker1, DTPicker2)End Sub Private Sub DTPicker2_Change()Text1.Text = DateDiff("d", DTPicker1, DTPicker2)End Sub

VB中怎么把年月日分开输入的日期转化成数据库中的日期进行查询,跪求...
您好,可以用时间函数比如:date 截取当前系统时间(不包含时分秒)now 截取当前系统时间(包含时分秒)day(date) 截取当前天 month(date) 截取当前月 year(date) 截取当前年 hour(now) 截取当前时 minute(now) 截取当前分 second (now) 截取当前秒 然后连接数据库把取到的数据插入里面就可以了。使用...

vb字符格式转化为时间格式的函数
回答:看你TEXT中输入的数据了,是否只是区分时间就可以,还是会有年月日你输入的种类有几种,可以是12:00:00,会不会可能是120000,或者就是12,那首先判断是时间还是年月日,这情况很多,要说清楚,才能做

vb连接时间(年,月,日)
Format$("2006-1-7","dd") 返回值 07 ddd 周几 Format$(Now,"ddd") 返回值 周四 dddd 星期几 Format$(Now,"dddd") 返回值 星期四 ddddd 显示标准日期 Format$(Now,"ddddd") 返回值 2006-05-25 dddddd 长日期 Format$(Now,"dddddd") 返回值 2006年5月25日 w 一个星期中的第几天...

vb中如何把年月日换成斜线
1、首先打开软件的数据表格。2、其次在右边的单元格中输入函数=TEXT(A2,"0!\/00!\/00")。3、最后向下拖拽填充柄套用公式,可以把所有日期转成带斜线的格式。

VB怎样显示日期和时间的?
VB中合法的日期型常量用数字符号 (#) 扩起来。月份在前,中间是日期,最后是年份。例如,#January 1, 1993# 。日期型变量或常量也可以用一个双精度浮点数表示,其中整数部分表示从1899-12-30到该时间的天数(1899-12-30以前的日期则用负数表示),小数部分则是从午夜起到该时间所经过的秒数占全天...

VB 年月日转换为大写
MsgBox ("应该输入数字")End If Label37.Caption = NumChgWord(Mid(Text3.Text, 1, 1)) & NumChgWord(Mid(Text3.Text, 2, 1)) & NumChgWord(Mid(Text3.Text, 3, 1)) & NumChgWord(Mid(Text3.Text, 4, 1)) & "年" & NumChgWord2(Mid(Text3.Text, 6, 2)) & "月" & ...

相似回答