今更ながらＶＢＡでの日付有効チェック

前に作ったはずなのにどこに行ったか分からなくなったので改めて



入力した日付がちゃんと日付として有効化どうかを判断

人は間違える生き物だとつくづく思う・・・

ＡＣＣＥＳＳ97でも有効
'******************************************
'* boolean値を、表示用文字列に変換
'* (表示を分かりやすくするためあえて使用)
'* True:"チェックＯＫ"　　Flse："チェックＮＧ"
'******************************************

Public Function bln(ByVal bool As Boolean) As String
If bool Then
　　　bln = "True"
Else
bln = "False"
End If
End Function



'*************************************
' 機　能：有効な日付かどうかをチェックする。
' 引　数：日付' 戻り値：有効な日付(True)、無効な日付(False)
'*************************************
Public Function dateCheck(ByVal vDate As Variant) As Boolean
dateCheck = False '日付型と判定できるかどうかをチェック
If IsDate(vDate) = True Then
dateCheck = True
Exit Function
'(数値列8桁)Format関数にて整形し、日付と判定できるかどうかをチェック
ElseIf IsNumeric(vDate) And Len(vDate) = 8 Then
If IsDate(Format(CStr(vDate), "####/##/##")) = True Then
dateCheck = True
Exit Function
End If End If
End Function


使用方法
If bln(dateCheck(”20100101”)) = "False" Then
MsgBox "日付の入力が不正です。正しい日付を入力して下さい"
Exit Sub
End If

インターリンクにはまいった・・・

直接関連していなかったのだが、メールの管理しているところがそのプロバイダを使用していたのである。
そっ・・・それがだ・・・

これほど重要なことにもかかわらず、案内はメール一つ・・・

お伺いも何もなしに強行・・・



そんなイメージで今回の工事が行われたというのが印象。



とにかくあぶなっかしくてメインではとても使えません。
さようなら。インターリンクさん。