ab.com コミュニティ

ActiveBasicを通したコミュニケーション
現在時刻 - 2017年9月22日(金) 11:27

All times are UTC+09:00




新しいトピックを投稿する  トピックへ返信する  [ 2 件の記事 ] 
作成者 メッセージ
投稿記事Posted: 2008年2月18日(月) 00:54 
オフライン

登録日時: 2008年2月17日(日) 18:55
記事: 18
''''' DateString6Value 日付・日付文字列6桁・日付値取得
Function ZDTES6V(ZDTE as string) as long
Dim ZYAR as long , ZMON as long , ZDAY as long , ZDDC as long , ZURU as long , ZVAL as long
ZVAL=Val(ZDTE) : ZYAR=Int(ZVAL/10000) : ZVAL=ZVAL-(ZYAR*10000) : ZMON=Int(ZVAL/100) : ZDAY=ZVAL-(ZMON*100)
ZVAL=Int((ZYAR-1)/4) : ZDDC=ZVAL*1461 : ZVAL=ZYAR-(ZVAL*4) : ZDDC=ZDDC+((ZVAL-1)*365) : ZURU=0 : If ZVAL=4 then ZURU=1
If ZMON>1 then ZDDC=ZDDC+31 : If ZMON>2 then ZDDC=ZDDC+28+ZURU : If ZMON>3 then ZDDC=ZDDC+31 : If ZMON>4 then ZDDC=ZDDC+30 : If ZMON>5 then ZDDC=ZDDC+31 : If ZMON>6 then ZDDC=ZDDC+30 : If ZMON>7 then ZDDC=ZDDC+31 : If ZMON>8 then ZDDC=ZDDC+31 : If ZMON>9 then ZDDC=ZDDC+30 : If ZMON>10 then ZDDC=ZDDC+31 : If ZMON>11 then ZDDC=ZDDC+30
ZDTES6V=36891+ZDDC+ZDAY
End Function

戻値 ZDTES6V
だいたいのWindowsソフトで共通の日付値です。と思います。エクセルで検証しました。

引数 ZDTE
yymmdd の6桁の文字列で固定です。2000年以降の年しか考慮していません。
~Ptrの使い方がイマイチ勉強不足で string型 を使用してます。カンベンして。

西暦で
通常は年365日。4で割れる年は366日。100で割れる年は365日。400で割れる年は366日。。。だったと思う。

と思います。が多くてすいません。だいぶ前に作ったので多少のコメント違いはあるかもしれませんが、コードは現在進行形で使用中ですので間違いは無いと思います。と思います。


通報する
ページトップ
 記事の件名:
投稿記事Posted: 2008年2月18日(月) 07:10 
オフライン

登録日時: 2005年7月25日(月) 13:27
記事: 893
住所: 埼玉県東松山市
codeタグとhideタグを組み合わせれば、きれいに表示できますよ。

_________________
Website→http://web1.nazca.co.jp/himajinn13sei/top.html
ここ以外の場所では「暇人13世」というHNを主として使用。

に署名を書き換えて欲しいと言われたので暇だしやってみるテスト。


通報する
ページトップ
期間内表示:  ソート  
新しいトピックを投稿する  トピックへ返信する  [ 2 件の記事 ] 

All times are UTC+09:00


オンラインデータ

このフォーラムを閲覧中のユーザー: なし & ゲスト[1人]


トピック投稿:  可
返信投稿:  可
記事編集: 不可
記事削除: 不可
ファイル添付: 不可

検索:
ページ移動:  
cron
Powered by phpBB® Forum Software © phpBB Limited
Japanese translation principally by KONISHI Yohsuke