初めまして。ちょっと教えてください。
DATEVAL(x) 日付連番を利用して曜日を出力できますでしょうか？
１０年分 (3000行程度)の日付付きのデータがあり、分析する為に、それに曜日を付け加えます。
FOR〜NEXTで年月日を日付連番に変換して、曜日を求めようと思ってます。

PIPSには曜日を扱う関数は無かったですよね？
マニュアル(Page 58)を見ると、
LET Z2=19910922;LET Z1=DATENUM(Z2) ==> Z1=727097　ありました。
1991年9月22日は日曜日なので、その日を基準日として曜日を求めるAUTOを作ろうかと、考えました。
それともエクセルで処理しようかと思ったり。。。
もし曜日の関数とか何か簡単な方法があれば、ご教授お願いします。

何年ぶりかでホームぺージを覗いたら、最終更新日がつい最近なのを見て、ちょっと感動しました。
貴クラブの会員さんだった名古屋の伊藤博幸さんから、この会の事は当時よくお聞きしました。だからとても懐かしい気分です。

近藤さん、こんばんは。

> DATEVAL(x) 日付連番を利用して曜日を出力できますでしょうか？
> １０年分 (3000行程度)の日付付きのデータがあり、分析する為に、それに曜日を付け加えます。
> FOR〜NEXTで年月日を日付連番に変換して、曜日を求めようと思ってます。
>
> PIPSには曜日を扱う関数は無かったですよね？
> マニュアル(Page 58)を見ると、
> LET Z2=19910922;LET Z1=DATENUM(Z2) ==> Z1=727097　ありました。
> 1991年9月22日は日曜日なので、その日を基準日として曜日を求めるAUTOを作ろうかと、考えました。

私自身は実務で曜日を求めるオートは作成したことがないのですが、
↑で半分以上の答えが出ているように思います。簡単に書くとある
日付の日付連番を求めて、これを 7 で割って出てくる余り(0〜6)
から曜日が求められると思います。

このサイトのトップページにあります「質問箱・回答箱」のコーナー
の131番の入川さんの回答がヒントになるかと思います。

http://www.pips.gr.jp/puc/qanda/qanda_131_que.htm

> 貴クラブの会員さんだった名古屋の伊藤博幸さんから、この会の事は当時よくお聞きしました。だからとても懐かしい気分です。

伊藤さんには大変にお世話になりましたが、突然、PUCから姿を消し
てしまいました。伊藤さんの消息をご存知でしょうか?

柏木@東京都

> 近藤さん、こんばんは。
>
> > DATEVAL(x) 日付連番を利用して曜日を出力できますでしょうか？
> > １０年分 (3000行程度)の日付付きのデータがあり、分析する為に、それに曜日を付け加えます。
> > FOR〜NEXTで年月日を日付連番に変換して、曜日を求めようと思ってます。
> >
> > PIPSには曜日を扱う関数は無かったですよね？
> > マニュアル(Page 58)を見ると、
> > LET Z2=19910922;LET Z1=DATENUM(Z2) ==> Z1=727097　ありました。
> > 1991年9月22日は日曜日なので、その日を基準日として曜日を求めるAUTOを作ろうかと、考えました。
>
> 私自身は実務で曜日を求めるオートは作成したことがないのですが、
> ↑で半分以上の答えが出ているように思います。簡単に書くとある
> 日付の日付連番を求めて、これを 7 で割って出てくる余り(0〜6)
> から曜日が求められると思います。
>
> このサイトのトップページにあります「質問箱・回答箱」のコーナー
> の131番の入川さんの回答がヒントになるかと思います。
>
> http://www.pips.gr.jp/puc/qanda/qanda_131_que.htm
>
> > 貴クラブの会員さんだった名古屋の伊藤博幸さんから、この会の事は当時よくお聞きしました。だからとても懐かしい気分です。
>
> 伊藤さんには大変にお世話になりましたが、突然、PUCから姿を消し
> てしまいました。伊藤さんの消息をご存知でしょうか?
>
> 柏木@東京都


柏木様
早速回答をいただきありがとうございます。
お話の入川さんの回答を参考にしてちょっとやってみます。


私も伊藤さんには随分とお世話になりました。
若い頃（1980年代ですからちょうどPIPSが全盛期だった頃です)は、二人で毎晩一緒にお酒を飲んでました。
とても博識でお話し好きな方でしたから、時間がたつのが早かったです。

伊藤さんは８年程前にすい臓がんを患って、気付いた時にはすでに遅くて、入院してわずか１週間程でお亡くなりになったそうです。
私が知ったのはその半年後で、伊藤さんの事務所を訪れたとき、大家さんからその話をお聞きしました。
伊藤さん、確か２３年生まれなので、６７歳だったと思います。早過ぎますよね。残念です。
柏木さんが伊藤さんを覚えてみえたのでうれしいです。

近藤さん、こんばんは。


LET Z1=TODAY;
LET Z2=(DATENUM(Z1))MOD7;
LET X1=INTG(Z2+1); /*日曜日=0 */
LET V1=KMID$("日月火水木金土",%X1,1);

伊藤さんのユニークなMyPIPSを今でも使わせて頂いております。

西村さん、初めまして。

ありがとうございます。
完璧な４行です！
LET Z1=TODAYだけを書き換えれば、欲しい曜日が求められます。
使わせて貰います。

伊藤さんの"MyPIPS"、それって、ひょっとして、SORDから一時期販売されてた PIPSの簡易版 のことですか？
それとも、伊藤さんが独自に作ったプログラムか何かですか？
今でもお使いということは、かなりの物ですね。

>伊藤さんが独自に作ったプログラムか何かですか？

2012年頃、伊藤さん独自のソフトで、PC上に仮想領域(P)を作り、その中でPIPSを動かすというソフトです。
利点は、メモリ上での作業なので処理が速い事です。

そうでしたか。
どうも、ご説明ありがとうございます。

近藤さん、西村さん、こんにちは。

西村さんの四行に絞り込んだAUTOに感心しました。
どうしてこのような簡潔なプログラムが作成できるのでしょうか？

伊藤さん、病気だったのですね。それも身辺整理をする間もなく
お亡くなりになったのですね。

伊藤さんの連絡が突然途絶えて、どうしたのかと心配していました。
豊田の西村さんが心配して車で近況をと伊藤さんの事業所まで訪問
したけど、すでに事業所はなく、その後の経緯がわからないとの
報告がありました。改めてご冥福をお祈りします。

>
>
> LET Z1=TODAY;
> LET Z2=(DATENUM(Z1))MOD7;
> LET X1=INTG(Z2+1); /*日曜日=0 */
> LET V1=KMID$("日月火水木金土",%X1,1);
>
> 伊藤さんのユニークなMyPIPSを今でも使わせて頂いております。

西村さんのこの投稿が気になっていたのですが、頭が廻らなくて
パスしていました。最近、ようやくどういう理屈なのか？確認
してみたいという意欲がでてきたようで、体調が回復してきた
手応えを感じています。（まだまだだけどね）
元山より


> 近藤さん、こんばんは。
>
>
> LET Z1=TODAY;
> LET Z2=(DATENUM(Z1))MOD7;
> LET X1=INTG(Z2+1); /*日曜日=0 */
> LET V1=KMID$("日月火水木金土",%X1,1);
>
> 伊藤さんのユニークなMyPIPSを今でも使わせて頂いております。