This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
'グループ毎の連番を入力する関数 | |
'指定の待機時間、ダイアログボックスを表示し、残り秒数カウントダウンします。 | |
'引数 FieldName:連番を格納するフィールド名(データ型は数値型) | |
' TableName:対象のテーブル名またはクエリ名(パラメータクエリは不可) | |
' GroupBy:グループ化するフィールド名(省略可能) | |
' 複数フィールドをカンマ区切りで指定可能 | |
' 省略した場合は全レコードを通しての連番になります。 | |
' Orderby:並べ替えするフィールド名(省略可能) | |
' SQLのORDER BY句内の式と同一 | |
' 省略した場合は並び順は不定になります。 |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
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:圧縮するファイルまたはフォルダーのパス |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
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 |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
' *************************************** | |
' 関数名: SelectControlNameOnOptionGroup | |
' 目 的: オプショングループ上の選択されたコントロールの名前を返します。 | |
' 作成者: hatena | |
' 作成日: 2012/07/29 | |
' 戻り値: バリアント型(文字列) | |
' 引数の説明: | |
' Opt -> 必須です。対象となる「オプショングループ」オブジェクトを指定します。 | |
' 使用上の注意: 未選択(Null値または、存在しないオプション値)の場合はNullを返します。 | |
' 使用例: |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Option Compare Database | |
Option Explicit | |
' *************************************** | |
' 関数名: FormSizeChange | |
' 目 的: フォームのサイズ、各コントロールのサイズ/位置を指定した比率で | |
' 拡大/縮小します。 | |
' 作成者: hatena | |
' 引数: |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
20100228 | |||||||
---|---|---|---|---|---|---|---|
長野 受付 | |||||||
部門 | 担当者 | 商品1 | 商品2 | 商品3 | 商品4 | 商品5 | |
総務 | A08さん | 0 | 0 | 0 | 0 | 0 | |
総務 | A09さん | 0 | 0 | 0 | 0 | 0 | |
総務 | A10さん | 30 | 5 | 2 | 3 | 0 | |
総務 | A11さん | 21 | 0 | 0 | 0 | 0 |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
'引数 西暦年 返値 閏年なら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 |