返信ありがとうございます
日付値から日付文字列を取得する
このトピックの本旨を叶えるのは、返信のかたのコードのほうがいいと思います。自作(まっ)は初心者に加え、かすかな記憶をたぐって検証も数年しかしてませんでした。ごめんなさい。
標準で関数が無かった(見つけられなかった)のでプラス1歩で役に立てば、と思った次第です。
プロシージャ ZSTRRGT (StringRight 文字列・右)
元々UPしたかったプロシージャ ZDTEVS6 で使ってたので付け加えたのですが、変数の使い方が汚なかったので整理したら ZLEN が重複してました。ごめんなさい。
Right$関数と同等なので、わざわざの必要は無いんです。なんですが、Right$関数での戻値が、んんん、ありえない???事が何回もあったので、チェックの時間よりも自作のほうがてっとりばやかった。ってな事情です。
コード:
''''' StringRight 文字列・右
Function ZSTRRGT(ZSTR as string, ZLEN as long) as string
ZSTRRGT="" : If ZSTR="" or ZLEN<1 then Exit Function
Dim ZCHK as long : ZCHK=Len(ZSTR) : If ZCHK<=ZLEN then ZSTRRGT=ZSTR : Exit Function
ZSTRRGT=ZeroString(ZLEN) : memcpy(StrPtr(ZSTRRGT),StrPtr(ZSTR)+ZCHK-ZLEN,ZLEN)
End Function