ID:231 日付、時間の取得(時間変数に時間を設定する)
by うwsc 2009/06/17(Wed) 00:19:39
| // 日付、時間の取得(時間変数に時間を設定する) 戻値 = GETTIME( [±n日, 基準日] ) 引数 ±n日: nを指定すると当日もしくは基準日からプラスマイナス n日とする (デフォルト=0) 基準日: 指定された日付(YYYYMMDD)を基に日付を設定する (デフォルト=当日) 戻値 2000年1月1日からの秒数を返す 値がセットされる特殊変数 G_TIME_YY // 年 G_TIME_MM // 月 G_TIME_DD // 日 G_TIME_HH // 時 G_TIME_NN // 分 G_TIME_SS // 秒 G_TIME_ZZ // ミリ秒 G_TIME_WW // 曜日 (0:日曜....6:土曜) G_TIME_YY2 // 年をxxの文字型 G_TIME_MM2 // 月をxxの文字型 G_TIME_DD2 // 日をxxの文字型 G_TIME_HH2 // 時をxxの文字型 G_TIME_NN2 // 分をxxの文字型 G_TIME_SS2 // 秒をxxの文字型 G_TIME_ZZ2 // ミリ秒をxxxの文字型 G_TIME_YY4 // 年をxxxxの文字型 // CSVファイルの値を2倍して書き戻す fid = FOPEN("TEST.CSV", F_READ or F_WRITE) // ファイルオープン For 行 = 1 to FGET(fid, -1) // 行数分 For 列 = 1 to 3 // 3列 atai = FGET(fid, 行, 列) // GET if ChkNum(atai) then atai = atai * 2 // 数字であれば2倍 FPUT(fid, atai, 行, 列) // PUT next next FCLOSE(fid) // ファイルクローズ // 昨日の日報(yymmdd.dat), 月報(yymm.dat)名を生成 GetTime(-1) // 昨日の日付を取得 日報ファイル = G_TIME_YY2 +G_TIME_MM2 +G_TIME_DD2 +".DAT" 月報ファイル = G_TIME_YY2 +G_TIME_MM2 +".DAT" // 2005年4月1日から60日目を算出 GetTime(60, "20050401") // 2005年4月1日を基準に+60日 指定日 = G_TIME_YY2 +G_TIME_MM2 +G_TIME_DD2 +".DAT" |






