2008年6月16日 星期一

Perl 取系統日期

# 取得秒, 分, 時, 日, 月, 年
($sec,$min,$hour,$day,$mon,$year)=localtime(time);

# 月比實際少一, 所以加 1
if (length ($mon) == 1) {$mon = '0'.$mon;}
$mon++;

# 判斷是否為個位數, 若是則在前面補 0
if (length ($mon) == 1) {$mon = '0'.$mon;}
if (length ($day) == 1) {$day = '0'.$day;}
if (length ($hour) == 1) {$hour = '0'.$hour;}
if (length ($min) == 1) {$min = '0'.$min;}
if (length ($sec) == 1) {$sec = '0'.$sec;}

# 年比實際西元年少 1900, 所以加上 1900
$year += 1900;

# 組合成完整的時間
$date = "$year$mon$day";
$time = "$hour$min$sec";
$alltime = " $date/$time";
#年初、年底
$s_date = ($year-11)."$mon"."01";
$e_date = ($year-11)."$mon"."31";

2008年6月3日 星期二

SQL語法取當天日期Getdate()

  1. YYYY/MM/DD: Convert(varchar(10),Getdate(),111)
  2. YYYYMMDD: Convert(varchar(10),Getdate(),112)
  3. HH:MM:SS: Convert(varchar(8),Getdate(),108)
  4. HH:MM:SS:mmm: Convert(varchar(12),Getdate(),114)
  5. HHMMSS: Replace(Convert(varchar(8),Getdate(),108),':','')
  6. HHMMSSmmm: Replace(Convert(varchar(12),Getdate(),114),':','')
  7. YYYY/MM/DD HH:MM:SS: Replace(Convert(varchar(30),Getdate(),120),'-','/')
  8. YYYY/MM/DD HH:MM:SS: Replace(Convert(varchar(30),Getdate(),121),'-','/')
  9. YYYY/MM/DD HH:MM:SS: Convert(varchar(10),Getdate(),111) + Space(1) + Convert(varchar(8),Getdate(),108)
  10. YYYYMMDDHHMMSS: Convert(varchar(10),Getdate(),112) + Replace(Convert(varchar(8),Getdate(),108),':','')