VB 日期格式化问题 yyyy-MM-DD 上午 hh:mm:ss

Range("a:a").NumberFormatLocal = "yyyy/mm/dd hh:mm:ss"执行后的效果：

字符串变量=Format(表示日期的常量或变量, "yyyy/mm/dd")如果不行就自己写 year(now) & "/" & month(mow) & "/" & day(mow)还可以这样：默认的now是2010-04-30格式 然后执行字符串替换，把-替换为/即可 replace(date,"-","/")...

label1.caption=format(now,"YYYY年MM月DD日 HH:mm:ss") '显示日期和时间 label1.backcolor=qbcolor(3) '背景颜色，想更细，也可以用RGB函数 label1.forecolor=vbRed '显示文字的颜色，也可以用QBcolor 或RGB函数

d=dataserial(left(s,2),mid(s,5,2),mid(s,7,2))+timeserial(mid(s,9,2),mid(s,11,2),0)

'xx年xx月xx日 星期几 系统时间hh:mm:ss Private Sub Timer1_Timer()Me.Caption = Year(Date) & "年" & Month(Date) & "月" & Day(Date) & "日 星期" & GetWD(Weekday(Date)) & " 系统时间" & Format$(Time, "hh:mm:ss")'"xx年xx月xx日 星期几 系统时间hh:mm:ss"End...

12 bs = "上午"Case Is < 14 bs = "中午"Case Is < 17 bs = "下午"Case Else bs = "晚上"End Select Label1.Caption = Format(s, "YYYY年MM月DD日 hh:mm:ss " & bs & " 星期" & Choose(Weekday(s), "日", "一", "二", "三", "四", "五", "六"))End Sub ...

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

如果是要取hh:mm:ss格式变量里的分钟数,可以这么写 dim a dim b as integer a=format(time,"hh:mm:ss")b=minute(a)print b 如果是把当前时间转换为分钟,就参考hydengackt的做法就OK了.b=HOUR(TIME)*60+MINUTE(TIME)+SECOND(TIME)/60 print b ...

' 以系统设置的长日期格式返回当前系统日期。MyStr = Format(Date, "Long Date")MyStr = Format(MyTime, "h:m:s") ' 返回 "17:4:23"。MyStr = Format(MyTime, "hh:mm:ss AMPM") ' 返回 "05:04:23 PM"。MyStr = Format(MyDate, "dddd, mmm d yyyy") ' 返回 "...

'设置系统日期和时间 Date = Format(CDate(Text1), "yyyy-mm-dd")Time = Format(CDate(Text1), "hh:mm:ss")Else MsgBox "输入时间错误！"End If End Sub 一般的，使用Form_Load初始化文本框（可选的）：Private Sub Form_Load()Text1.Text = Now End Sub OK！这就解决问题了。这里的...