August 2008アーカイブ

Sub sample()

    MsgBox Len("ABC") '文字数
    MsgBox Len("ABCDEFG") '文字数

End Sub

Sub sample()

    MsgBox Mid("abcdef", 2, 3) '2文字目から3文字

End Sub

Sub sample()

    MsgBox Right("abcdef", 3) '右の3文字
    MsgBox Left("abcdef", 3) '左の3文字

End Sub

Sub sample()

    MsgBox Hour(Now) '時
    MsgBox Minute(Now) '分
    MsgBox Second(Now) '秒

End Sub

Sub sample()

    MsgBox Year(Now) '年
    MsgBox Month(Now) '月
    MsgBox Day(Now) '日

End Sub