Access VBA質問箱 IV

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

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


6402 / 9994 ←次へ | 前へ→

【6796】Re:クエリで質問があります
回答  YU-TANG WEB  - 05/11/11(金) 11:21 -

引用なし
パスワード
   こんにちは、YU-TANG です。

> 出来るでしょうが、私はそちらの方法に興味が無いので、パスします。
> 申し訳ありませんが、他の方のレスをお待ちください。

…と書いてから 48 時間経過しましたが、レスが付かないようですね。

こういうのは犯罪捜査と同じで、経験則的には 48 時間以内に被疑者を
検挙…じゃなくて、レスが付かないと、解決率が急激に低下する傾向が
あります。

オチの付かないツリーほど見苦しいものもないので、再レスを。

SELECT
 *,
 IIf(IsNull([再出荷日]), [出荷日], [再出荷日])       AS 開始日,
 IIf(IsNull([故障日]),Date(),[故障日])           AS 最終日,
 Format$([開始日], "mm\.dd") > Format$([最終日], "mm\.dd") AS 補正,
 DateDiff("m", [開始日], [最終日]) + [補正]        AS 月,
 (DateDiff("yyyy", [開始日], [最終日]) + [補正])
  & "年" & ([月] Mod 12) & "ヶ月"
  & ([最終日] - DateAdd("m", [月], [開始日])) & "日"   AS 寿命
FROM
 [電化製品]
WHERE
 [電化製品の寿命]
  = IIf(IsNull([故障日]), Date(), [故障日])
  - IIf(IsNull([再出荷日]), [出荷日], [再出荷日]);

上記 SQL 文をクエリの SQL ビューに貼り付けて保存してください。

簡易ロジックで、閏年対応を省いています。
2/29 が絡むと寿命が 1 日くらいズレるかもしれませんが、ご容赦を。

これを使うなら、SQL 文の意味を把握するようにしてください。
でないとメンテ不能になります。
クエリの SQL ビューとデザインビューを見比べるとか、関数ごとに
分割して解析するなどしてください。
その上で、不明点は質問してください。

それでは。

386 hits

【6627】クエリで質問があります TOMO 05/10/27(木) 11:56 質問
【6643】Re:クエリで質問があります YU-TANG 05/10/27(木) 21:28 回答
【6649】Re:クエリで質問があります TOMO 05/10/28(金) 9:39 質問
【6658】Re:クエリで質問があります YU-TANG 05/10/28(金) 15:33 発言
【6689】Re:クエリで質問があります TOMO 05/10/31(月) 11:36 回答
【6700】Re:クエリで質問があります YU-TANG 05/10/31(月) 18:29 回答
【6736】Re:クエリで質問があります TOMO 05/11/4(金) 10:46 質問
【6737】Re:クエリで質問があります YU-TANG 05/11/4(金) 12:16 回答
【6767】Re:クエリで質問があります TOMO 05/11/8(火) 16:23 質問
【6777】Re:クエリで質問があります YU-TANG 05/11/9(水) 7:14 発言
【6778】Re:クエリで質問があります TOMO 05/11/9(水) 9:52 お礼
【6796】Re:クエリで質問があります YU-TANG 05/11/11(金) 11:21 回答

6402 / 9994 ←次へ | 前へ→
ページ:  ┃  記事番号:
1078229
(SS)C-BOARD v3.8 is Free