６７．システムの時間、日付を取得する

＜　使用用途　＞
システムの時間、日付を取得する

今回のサンプルソースをダウンロードする方は下記の「ダウンロード」を！
＝＞　ダウンロード・・・　下に書いてあるサンプルソースと同じです

　＜　説明　＞
ＡＰＩ関数のGetSystemTimeを使用します
GetSystemTime　＝＞システムの時間、日付を取得する
　　＜引数＞
　　　　　lpSystemTime：SYSTEMTIME構造体
　　＠戻り値＠
　　　　　なし
　　＊VBの標準機能を使ったほうがよい

<　ＳＡＭＰＬＥ　＞

'標準モジュール
Public Declare Sub GetSystemTime Lib "kernel32" (lpSystemTime As SYSTEMTIME)

Public Type SYSTEMTIME
　wYear As Integer　’西暦
　wMonth　As Integer　’月
　wDayOfWeekAs Integer　
　wDay As Intege’日
　wHour As Integer’時間
　wMinute As Integer　'分
　wSecond As Integer　'秒
　wMilliseconds As Integer
End Type

'ここからはフォーム内の処理です
Private Sub Command1_Click()
　　Dim Taro As SYSTEMTIME　
　　
　　List1.Clear

　　Call GetSystemTime(Taro)

　　List1.AddItem Taro.wYear
　　List1.AddItem Taro.wMonth
　　List1.AddItem Taro.wDayOfWeek
　　List1.AddItem Taro.wDay
　　List1.AddItem Taro.wHour
　　List1.AddItem Taro.wMilliseconds

End Sub