送分100分：如何从一个时间变量中提取出年月日时分秒。

Question

如何从一个时间变量中提取出年月日时分秒等信息
具体如下 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. 

Answer 1

year()
month()
day()
hour()
minute()
second()

Answer 2

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)

Answer 3

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 星期六 

Answer 4

获取上午还是下午.
Format(Now, "HH:nn:ss AM/PM")

Answer 5

楼主还是多看看MSDN吧，又是一个不是问题的问题，学编程基础不好可不行

Answer 6

一个format搞定！
format函数重载就好多版本，你可以搜索它的用法，很好很强大

Answer 7

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

Answer 8

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

Answer 9

用Format函数最方便
Format(Now, "HH:nn:ss")