VB时间格式化_VB日期加减方法分享

在VB6中，可以使用Format$函数来对日期和时间进行格式化。

以下是一些常用的日期和时间格式标志符：

yyyy：四位数的年份表示（例如：2021）

yy：两位数的年份表示（例如：21）

mm：两位数的月份表示（01-12）

mmm：缩写的月份表示（例如：Jan, Feb, Mar）

dddd：完整的星期几表示（例如：Monday, Tuesday, Wednesday）

dd：两位数的日期表示（01-31）

hh：两位数的小时（12小时制）表示（00-11）

HH：两位数的小时（24小时制）表示（00-23）

nn：两位数的分钟表示（00-59）

ss：两位数的秒钟表示（00-59）

tt：上午/下午标识符（AM/PM）

你可以通过将这些格式标志符组合起来，来创建自定义的日期和时间格式。

VB时间格式化代码

 time = Format$(Now, "yyyy/mm/dd hh:mm:ss")  '显示的时间为  2023/07/05 21:33:33  

 通过上面例子 可以格式化出多种时间格式

 1. time = Format$(Now, "yyyy/mm/dd")  '显示的时间为  2023/07/05  

 2. time = Format$(Now, "mm-dd")  '显示的时间为  07-05  

 3. time = Format$(Now,"hh:mm AM/PM") 返回值 04:50 PM

 发挥你得想想自由组合你需要得时间格式

 当前日期减去一天：

 Dim currentDate As Date

currentDate = DateAdd("d", -1, Now) ' 将当前日期减去一天

Dim formattedDate As String

formattedDate = Format$(currentDate, "yyyy/mm/dd") ' 格式化日期

MsgBox formattedDate ' 显示减去一天后的日期

当前日期减少1小时

Dim currentDate As Date

currentDate = DateAdd("h", -1, Now) ' 将当前日期减去一小时

Dim formattedDateTime As String

formattedDateTime = Format$(currentDate, "yyyy/mm/dd hh:mm") ' 格式化日期时间

MsgBox formattedDateTime ' 显示减去一小时后的日期时间