パナ日付など取得方法 for VB6 その1 ---標準モジュール--- Type FILETIME '下位32ビット値 dwLowDateTime As Long '上位32ビット値 dwHighDateTime As Long End Type
Type SYSTEMTIME wYear As Integer wMonth As Integer wDayOfWeek As Integer wDay As Integer wHour As Integer wMinute As Integer wSecond As Integer wMilliseconds As Integer End Type
Public Declare Sub GetSystemTimeAsFileTime Lib "kernel32" (lpSystemTimeAsFileTime As FILETIME)
Public Declare Function FileTimeToLocalFileTime Lib "kernel32" (lpFileTime As FILETIME, lpLocalFileTime As FILETIME) As Long
Public Declare Function FileTimeToSystemTime Lib "kernel32" (lpFileTime As FILETIME, lpSystemTime As SYSTEMTIME) As Long
'UTC+9=(JST-9) ヴァナ歴の起点 Public Const CsVanaStartDateTime As String = "2002/01/01 00:00:00"
'UTC+9=(JST-9) ヴァナ歴の起点のヴァナ年 Public Const CdVanaYear As Double = 886#
Public Function fmod(dNumber1 As Double, dNumber2 As Double) As Long
パナ日付など取得方法 for VB6 その2 ---フォーム--- Private Sub Form_Load() Dim lRet As Long Dim filetime1 As FILETIME Dim filetime2 As FILETIME Dim systemtime1 As SYSTEMTIME Dim dDate As Date Dim dTime As Double Dim lYear As Long Dim lMonth As Long Dim dDay As Double Dim lDay As Long Dim lHour As Long Dim lMinute As Long Dim lSecond As Long Dim lMoonState As Long Dim lDayOfWeek As Long