Access VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

2963 / 9994

←次へ　｜　前へ→


	【10295】Re:和暦チェック

VBWASURETA - 08/3/5(水) 14:54 -


	引用なし

	パスワード

▼ぎんばしゃさん：
こんにちは。

簡単な条件でするのでしたら、構造体と配列で制限値を入れると
出来ると思います。
例えば以下のような感じで配列とデータを用意して
後は条件を作ることで出来ると思います。

例：

Type userYear
　　intYear As Integer
　　ChakDate As Date
End Type

Dim testyear() As userYear

Sub test()
　　Dim textdate As Date
　　
　　'制限年データセット
　　setYaerdata
　　
　　'*** ここに条件式 ***

End Sub

'制限データセット関数
Function setYaerdata()
　　ReDim testyear(3) As userYear
　　
　　'配列はtestyear(暦値,制限値)の二次元配列で管理
　　'素数２番目が 0 は制限年
　　testyear(0).intYear = 15　　　　　　'15年まで
　　'素数２番目が 1 は制限年月日
　　testyear(0).ChakDate = #1/1/1980#　 '1980/01/01まで
　　
　　testyear(1).intYear = 8　　　　　　 '8年まで
　　testyear(1).ChakDate = #7/1/1990#　 '1990/07/01まで
　　
　　testyear(2).intYear = 12　　　　　　'12年まで
　　testyear(2).ChakDate = #1/7/1998#　 '1998/01/07まで
　　
　　'現在
　　testyear(3).intYear = Year(Date) - Year(testyear(2).ChakDate)
　　testyear(3).ChakDate = Date　　　　 '現在年月日
End Function

694 hits

▼

【10291】和暦チェック ぎんばしゃ 08/3/4(火) 13:28