日付のカウントダウンを表示させたい

青山 [E-Mail] 1998/03/01(日) 17:26:54
ＣＧＩ、ＳＳＩ可のプロバイダーを使用してます。
ワールドカップまであと何日、みたいな
日付のカウントダウンを表示させたいのですが、
ご存知の方いましたら教えて欲しいのです
宜しくお願いします～

B-Cus 1998/03/01(日) 18:59:18
こんなもんでいかがでしょう。
計算結果が正しいかどうかはよく確かめてませんが。

#!/usr/bin/perl

require "timelocal.pl";
$world_cup = "1998-6-1 10:0:0";

($w_year,$w_mon,$w_day,$w_hour,$w_min,$w_sec) = split(/[- \:]/,$world_cup);
$w_year-=1900; $w_mon--;

$now = time();
$w_cup = &timelocal($w_sec,$w_min,$w_hour,$w_day,$w_mon,$w_year);

$diff = $w_cup - $now;

print "Content-type: text/plain\n\n";
print int($diff/(60*60*24)),"days ",($diff/(60*60))%24,":",$diff/60%60,":",$diff%60,"\n";

B-Cus 1998/03/01(日) 19:01:35
おっと、忘れてた。実行結果は

91days 15:0:9

でした。91日と15時間9秒ってことです。あってる？

青山 [E-Mail] 1998/03/01(日) 19:04:16
[[解決]]
こんなに早く返事がくるなんて・・感謝！
B-Cusさん、どうもありがとうございました(^^)
さっそく試してみて、
上手く出来たらまた報告しますね♪

また分からないことがあったら来ますので
そのときはお願いします～

青山 [E-Mail] 1998/03/01(日) 19:08:24
[[解決]]
えっと、6月1日までは、3ヶ月で、10時までだから・・
ばっちりあってます(^^)

実行結果までしてくれるなんて～・・
ほんとに助かりました♪
ほんとにどうも、有難うございました

[上に] [前に] [次に]