送分100分：怎么从一个时间变量中提取出年月日时分秒

送分100分：如何从一个时间变量中提取出年月日时分秒。
如何从一个时间变量中提取出年月日时分秒等信息
具体如下

 Dim Nian As String * 2, Yue As String * 2, Ri As String * 2, Shi As String * 2, Feng As String * 2, Miao As String * 2
 SHIJIAN =NOW()

可能还要考虑到AM/PM的问题，如下午2点，SHI应该返回14.

 

[解决办法]
year()
month()
day()
hour()
minute()
second()

[解决办法]
Dim Nian As String * 2, Yue As String * 2, Ri As String * 2, Shi As String * 2, Feng As String * 2, Miao As String * 2
Nian=year(NOW)
Yue=month(NOW)
Ri=day(NOW)
Shi=hour(NOW)
Feng=minute(NOW)
Miao=second(NOW)
[解决办法]
Weekday 函数


返回一个 Variant (Integer)，包含一个整数，代表某个日期是星期几。

语法

Weekday(date, [firstdayofweek])

Weekday 函数语法有下列的命名参数：

部分 描述 
date 必要。能够表示日期的 Variant、数值表达式、字符串表达式或它们的组合。如果 date 包含 Null，则返回 Null。 
Firstdayofweek 可选。指定一星期第一天的常数。如果未予指定，则以 vbSunday 为缺省值。 


设置

firstdayofweek 参数有以下设定值：

常数 值 描述 
vbUseSystem 0 使用 NLS API 设置。 
VbSunday 1 星期日（缺省值） 
vbMonday 2 星期一 
vbTuesday 3 星期二 
vbWednesday 4 星期三 
vbThursday 5 星期四 
vbFriday 6 星期五 
vbSaturday 7 星期六 


返回值

Weekday 函数可以返回以下诸值：

常数 值 描述 
vbSunday 1 星期日 
vbMonday 2 星期一 
vbTuesday 3 星期二 
vbWednesday 4 星期三 
vbThursday 5 星期四 
vbFriday 6 星期五 
vbSaturday 7 星期六 


[解决办法]
获取上午还是下午.
Format(Now, "HH:nn:ss AM/PM")
[解决办法]
楼主还是多看看MSDN吧，又是一个不是问题的问题，学编程基础不好可不行
[解决办法]
一个format搞定！
format函数重载就好多版本，你可以搜索它的用法，很好很强大
[解决办法]

VB code

Private Sub Command1_Click()    Dim Nian As String * 2, Yue As String * 2    Dim Ri As String * 2, Zhouj As String * 1    Dim Shi As String * 2, Fen As String * 2    Dim Miao As String * 2        Nian = Format(Now, "yy")    yeu = Format(Now, "mm")    Ri = Format(Now, "dd")    Zhouj = Format(Now, "w", vbMonday)    Shi = Format(Now, "hh")    Fen = Format(Now, "nn")    Miao = Format(Now, "ss")End Sub
[解决办法]
VB code
Private Sub Form_Load()    Debug.Print ChsWeekday(Now)    Debug.Print ChsWeekday(Now, "周")End Sub'---------------------------------------------------' 过程名    : ChsWeekday' 时间      : 2010-3-31 09:17' 作者      : 杨过.网狐.cn(csdn bcrun)' 功能      : 获得中文习惯的星期名' 说明      : 以国人的习惯周一为一个星期的第一天' 备注      :'---------------------------------------------------'Public Function ChsWeekday(ByVal dteValue As Date, Optional ByVal str前缀 As String = "星期") As String    ChsWeekday = str前缀 & Mid$("一二三四五六日", Weekday(dteValue, vbMonday), 1)End Function
[解决办法]
用Format函数最方便
Format(Now, "HH:nn:ss")