Excel VBA質問箱 IV

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

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


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

49575 / 76732

←次へ　｜　前へ→


	【32062】経過日付の計算方法

勝子 - 05/12/5(月) 17:17 -


	引用なし

	パスワード

すみません、またお世話にならせてください
月が替わったときの日付の経過日付の計算方法を教えてください。
同一月内だと下記の計算式で動いていたのですが、月が替わったら下記の式では無理になってしまいました。
”☆☆”の所で今日ー昨日と言う計算をさせているのです。

If CLng(Mid(Range("F1"), 1, 2)) = 20 Then
　 Day_cnt11 = CLng(Mid(Range("F1"), 3, 2)) * 10000　　'基準日(F1)の年を数値化
　 Day_cnt12 = CLng(Mid(Range("F1"), 6, 2)) * 100　　　'基準日(F1)の月を数値化
　 Day_cnt13 = CLng(Mid(Range("F1"), 9, 2))　　　　　　'基準日(F1)の日を数値化
Else
　 Day_cnt11 = CLng(Mid(Range("F1"), 1, 2)) * 10000　　'基準日(F1)の年を数値化
　 Day_cnt12 = CLng(Mid(Range("F1"), 4, 2)) * 100　　　'基準日(F1)の月を数値化
　 Day_cnt13 = CLng(Mid(Range("F1"), 7, 2))　　　　　　'基準日(F1)の日を数値化
End If

　 Day_cnt1 = Day_cnt11 + Day_cnt12 + Day_cnt13　　　　'合算して年月日(yymmdd型)を数字化する
　　
　 Day_cnt2 = .Cells(xa, 3) - 20000000　　　　　　　　 '見るファイルデータの年月日(yymmdd型)を数字化する
　　
☆☆ Day_cnt = Day_cnt1 - Day_cnt2　　　　　　　　　　　 '基準日とデータの差を出す。

例）”☆☆”の計算式に当てはめると
基準日を11/28とする。見に行くファイルの日付を11/25とする
　　　051128 ― 051125= 3　となればＯＫ

基準日を12/1とする。見に行くファイルの日付を11/30とする
　　　051201-051130＝71　　　となってしまうんです。

よろしくお願いします

1 hits

▼

【32062】経過日付の計算方法 勝子 05/12/5(月) 17:17

≪