[
リストに戻る
]
No.632へ返信
ナカさんへ
- yonetch -
2019/06/13(Thu) 12:48:52
[No.626]
└
テストしてみました
- ナカ -
2019/06/19(Wed) 17:31:46
[No.628]
└
Re: テストしてみました
- yonetch -
2019/06/20(Thu) 09:31:48
[No.629]
└
Re: テストしてみました
- ナカ -
2019/06/20(Thu) 17:20:56
[No.631]
└
新バージョン送ります
- yonetch -
2019/06/26(Wed) 11:21:09
[No.632]
└
Re: 新バージョン送ります
- ナカ -
2019/06/26(Wed) 11:43:07
[No.633]
└
Re: 新バージョン送ります
- ナカ -
2019/06/26(Wed) 13:50:33
[No.634]
└
Re: 新バージョン送ります
- yonetch -
2019/06/26(Wed) 19:15:27
[No.635]
└
Re: 新バージョン送ります
- ナカ -
2019/06/27(Thu) 14:27:00
[No.636]
└
Re: 新バージョン送ります
- ナカ -
2019/06/27(Thu) 16:22:05
[No.637]
└
入金消込やりません?
- yonetch -
2019/06/27(Thu) 22:43:32
[No.638]
└
Re: 入金消込やりません?
- ナカ -
2019/06/28(Fri) 09:28:44
[No.639]
└
Re: 入金消込やりません?
- yonetch -
2019/06/28(Fri) 12:11:11
[No.640]
└
Re: 入金消込やりません?
- ナカ -
2019/07/01(Mon) 15:08:49
[No.641]
└
Re: 入金消込やりません?
- yonetch -
2019/07/01(Mon) 21:44:09
[No.642]
└
Re: 入金消込やりません?
- ナカ -
2019/07/04(Thu) 10:09:49
[No.643]
└
Re: 入金消込やりません?
- yonetch -
2019/07/04(Thu) 20:53:38
[No.644]
新バージョン送ります
(No.631 への返信) - yonetch
すすす、すみません!
重複メッセージを削除しようとして、違うメッセージを削除してしまいました。平にご容赦をm(_ _)m
で、先ほど納入先台帳を使わなくていいバージョンを送りましたのでお試しください
あと令和対応に際して日付を補正しているんですが、その式を
Function RtoH(wareki_dt As Long) As Long
RtoH = IIf(wareki_dt < 140000, 300000, 0) + wareki_dt
End Function
としました。意味するところは、6桁の和暦日付が140000未満なら300000を足すというものです。
すなわち、平成14年以前のデータがもしあった場合は、令和扱いされることになります(ちなみにウチにはありません^^)。また、令和14年以降のデータも上手く扱えないでしょう。
まぁ、ナカさんの定年+αには適用できるからいっか!(爆)
[No.632]
2019/06/26(Wed) 11:21:09
Name
E-Mail
URL
Subject
> すすす、すみません! > > 重複メッセージを削除しようとして、違うメッセージを削除してしまいました。平にご容赦をm(_ _)m > > で、先ほど納入先台帳を使わなくていいバージョンを送りましたのでお試しください > > あと令和対応に際して日付を補正しているんですが、その式を > > Function RtoH(wareki_dt As Long) As Long > RtoH = IIf(wareki_dt < 140000, 300000, 0) + wareki_dt > End Function > > としました。意味するところは、6桁の和暦日付が140000未満なら300000を足すというものです。 > すなわち、平成14年以前のデータがもしあった場合は、令和扱いされることになります(ちなみにウチにはありません^^)。また、令和14年以降のデータも上手く扱えないでしょう。 > > まぁ、ナカさんの定年+αには適用できるからいっか!(爆)
Color
■
■
■
■
■
■
■
■
Cookie / Pass
-
HOME
-
お知らせ(3/8)
-
新着記事
-
記事検索
-
携帯用URL
-
フィード
-
ヘルプ
-
環境設定
-
Rocket Board Type-T (Free)