![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?8acaa2e)
No.3ベストアンサー
- 回答日時:
かなり手抜きですかが、下記のような感じで、どうでしょうか?
ファイル名ge.cgiで。
入力内容のチェック等は行なっていないので、日付でないものが入力されたら、変な年齢が出ます^^
#!/usr/bin/perl
use CGI;
$b_year = &CGI::param("b_year");
$b_mon = &CGI::param("b_mon");
$b_day = &CGI::param("b_day");
$b_age = &calc_age($b_year, $b_mon, $b_day);
print "Content-type: text/html\n\n";
print <<__EndOfHere__;
<form action="age.cgi" method="POST">
Birthday:<input type="text" name="b_year" value="$b_year">/
<input type="text" name="b_mon" value="$b_mon">/
<input type="text" name="b_day" value="$b_day">
<input type="submit">
age:<input type="text" name="b_age" value="$b_age">
</form>
__EndOfHere__
sub calc_age{
my ($b_year, $b_mon, $b_day) = @_;
my ($sec, $min, $hour, $mday, $mon, $year, $wday) = localtime(time());
my $today = sprintf("%d%02d%02d", $year+1900, $mon+1, $mday);
my $birthday = sprintf("%d%02d%02d", $b_year, $b_mon, $b_day);
return int(($today - $birthday) / 10000);
}
No.2
- 回答日時:
ベタな方法で。
・年、月、日それぞれについて、本日の値からフォームに入力された値を引きます。
・日の計算結果がマイナスになったら月の計算結果を-1します。
・月の計算結果がマイナスになったら年の計算結果を-1します。
・この結果、年の計算結果が年齢になります。
例:本日(2006/10/03)と2000/10/10の誕生日との計算
日:03 - 10 = -7 … 月の計算結果を-1
月:10 - 10 - 1 = -1 … 年の計算結果を-1
年:2006 - 2000 - 1 = 5 …これが年齢になる
この回答への補足
bgbg様 有難うございます。
具体的な構文を教えていただけると助かるのですが…。
(年項目が間違ってました。正しくは、b_year です)
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセルの数式で教えてください。 2 2023/03/10 08:51
- 年末調整 令和5年分 給与所得者の扶養控除等(異動)申告書 2 2022/11/02 16:18
- 財務・会計・経理 ある会で、会計を担当しています。 2 2023/05/30 21:40
- その他(税金) 国民健康保険料の計算がサイトによってかなり違うのですが、何故でしょうか? 4 2022/03/24 14:51
- ふるさと納税 ふるさと納税の限度額計算 3 2022/12/16 11:01
- その他(ビジネス・キャリア) エクセルで一覧表を作るときのレイアウト、月日と項目の配置について相談です。 2 2023/04/11 09:37
- 所得・給料・お小遣い 確定拠出年金について質問です。 確定拠出年金の掛金を毎月3000円の契約?として、先月の給料分から適 5 2023/02/10 12:09
- 年末調整 年末調整の令和5年中の所得見積額、について。税金の扶養内でパートで働いてます。 自分の職場の年末調整 3 2022/11/09 18:52
- Excel(エクセル) 列を自動で追加したい 3 2022/07/11 12:58
- 確定申告 個人の確定申告。「医療費のお知らせ」記載内容と医療費控除の明細書【内訳書】に記入する内容の関係 4 2023/03/04 18:41
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
PICで世界時計を作りたいのですが
-
前日の日付取得するには?
-
大至急お願いします。出力で悩み。
-
Perlの日付の比較に関して
-
日付求め
-
mod_rewriteが反映されない
-
年月日の数値化?
-
Application.ScreenUpdating = ...
-
int(input("○○"))の使い方
-
PerlでXMLを解析して出力する。
-
整数でないとき
-
CGI メールフォームからBCCのア...
-
CGI初心者です
-
1つのプログラム内で"html出力...
-
JSONで文字列が長い時
-
確認画面に空白がでます
-
optionのselectedは更新時は効...
-
perlがうごきません
-
awkの正規表現での最左最短マッ...
-
javaのパッケージ構成で各パッ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
先月(YYYYMM)の生成方法
-
日齢計算プログラム
-
大至急お願いします。出力で悩み。
-
2つの日付・時間の差分を求め...
-
サマータイムの判定について
-
CSV読み込み時に条件に合う行(...
-
1桁の日付に0を付ける
-
Perlの日付の比較に関して
-
ソースの詳細を教えてください。
-
当日の日付をプルダウンメニュ...
-
前日の日付取得するには?
-
日付の差分の求め方(日、分)
-
体重が3kg増える/減る の英語...
-
日付範囲をの連番と月末を取得
-
PICで世界時計を作りたいのですが
-
Schemeのプログラミング うる...
-
PerlからMysqlに接続してデータ...
-
perlでcheckboxがうまく整理で...
-
年令の計算方法
-
Perlで60進数を作りたい
おすすめ情報