hatena19

'グループ毎の連番を入力する関数
'指定の待機時間、ダイアログボックスを表示し、残り秒数カウントダウンします。
'引数　FieldName：連番を格納するフィールド名(データ型は数値型)
'　　　TableName：対象のテーブル名またはクエリ名(パラメータクエリは不可)
'　　　GroupBy：グループ化するフィールド名（省略可能）
'               複数フィールドをカンマ区切りで指定可能
'               省略した場合は全レコードを通しての連番になります。
'　　　Orderby：並べ替えするフィールド名（省略可能）
'               SQLのORDER BY句内の式と同一
'               省略した場合は並び順は不定になります。

hatena19

Option Explicit

Private Declare Function SevenZip Lib "7-zip32.DLL" ( _
    ByVal hWnd As Long, _
    ByVal szCmdLine As String, _
    ByVal szOutput As String, _
    ByVal dwSize As Long) As Long

'ZIPファイルを作成
'引数 sSrsPath：圧縮するファイルまたはフォルダーのパス

hatena19

Option Compare Database
Option Explicit

Declare Function QueryPerformanceCounter Lib "Kernel32" _
                           (X As Currency) As Boolean
Declare Function QueryPerformanceFrequency Lib "Kernel32" _
                           (X As Currency) As Boolean
Dim Freq As Currency
Dim Overhead  As Currency
Dim Ctr1 As Currency, Ctr2 As Currency, Result As Currency

hatena19

' ***************************************
' 関数名： SelectControlNameOnOptionGroup
' 目　的： オプショングループ上の選択されたコントロールの名前を返します。
' 作成者： hatena
' 作成日： 2012/07/29
' 戻り値： バリアント型（文字列）
' 引数の説明：
' Opt -> 必須です。対象となる「オプショングループ」オブジェクトを指定します。
' 使用上の注意： 未選択（Null値または、存在しないオプション値）の場合はNullを返します。
' 使用例：

hatena19

Option Compare Database
Option Explicit


' ***************************************
' 関数名： FormSizeChange
' 目　的： フォームのサイズ、各コントロールのサイズ/位置を指定した比率で
'          拡大/縮小します。
' 作成者： hatena
' 引数：

hatena19

hatena19

'引数　西暦年　返値 閏年ならTrue　
Public Function IsLeapYear(aYear As Long) As Boolean
'    IsLeapYear = Month(DateSerial(aYear, 2, 29)) = Month(DateSerial(aYear, 2, 28))
    IsLeapYear = IsDate(aYear & "/2/29")
End Function