[表示 : 全て 最新50 1-99 101- 201- 301- 401- 501- 601- 701- 801- 901- 1001- 2chのread.cgiへ]
Update time : 04/25 05:23 / Filesize : 232 KB / Number-of Response : 1002
[このスレッドの書き込みを削除する]
[+板 最近立ったスレ&熱いスレ一覧 : +板 最近立ったスレ/記者別一覧] [類似スレッド一覧]


↑キャッシュ検索、類似スレ動作を修正しました、ご迷惑をお掛けしました

Perlについての質問箱 50箱目



665 名前:デフォルトの名無しさん [2012/02/12(日) 21:32:10.50 ]
@t = localtime( time );
if ( $t[0] != 0 ){
   $t[0] = 0;
   $t[1]++;
   if ( $t[1] >= 60 ){
      $t[1] = 0;
      $t[2]++;
      if ( $t[2] >= 24 ){
         $t[2] = 0;
         $t[3]++;
         if ( $t[4] == 2 ){
            $maxday = 28;
         }elsif ( ( $t[4] == 4 )||( $t[4] == 6 )||( $t[4] == 9 )||( $t[4] == 11 ) ){
            $maxday = 30;
         }else{
            $maxday = 31
         }
         if ( $t[3] > $maxday ){
            $t[3] = 1;
            $t[4]++;
            if ( $t[4] >= 13 ){
               $t[4] = 1;
               $t[5]++;
            }
         }
      }
   }
}






[ 続きを読む ] / [ 携帯版 ]

全部読む 前100 次100 最新50 [ このスレをブックマーク! 携帯に送る ] 2chのread.cgiへ
[+板 最近立ったスレ&熱いスレ一覧 : +板 最近立ったスレ/記者別一覧]( ´∀`)<232KB

read.cgi ver5.27 [feat.BBS2 +1.6] / e.0.2 (02/09/03) / eucaly.net products.
担当:undef