#!/usr/bin/perl

# ******** 日時表示 ********

sub st_dateform{

    ($cur_sec,$cur_min,$cur_hour,$mday,$month,$cur_year,$wday,$yday,$isdt)=gmtime(time+9*60*60);
    @wk=("日","月","火","水","木","金","土");
    if($cur_year<1900){$cur_year=$cur_year+1900;}
    $cur_mon  = $month+1;
    $cur_day  = $mday;
    $cur_week = $wk[$wday];
    $cur_time = time;
# 100
    if($cur_mon  < 10){$cur_mon="0".$cur_mon;}
    if($cur_day  < 10){$cur_day="0".$cur_day;}
    if($cur_hour < 10){$cur_hour="0".$cur_hour;}
    if($cur_min  < 10){$cur_min="0".$cur_min;}
    if($cur_sec  < 10){$cur_sec="0".$cur_sec;}

    $date_day=$cur_year."-".$cur_mon."-".$cur_day;
    $date_min=$cur_year."-".$cur_mon."-".$cur_day."/".$cur_hour.":".$cur_min;
    $date_sec=$cur_year."-".$cur_mon."-".$cur_day."/".$cur_hour.":".$cur_min.":".$cur_sec;
}

# ******** 年月日表示変更 ********

sub st_datejpn{
    my ($date_fig) = @_;
#print "DEBUG 00021 - $date_fig<BR>\n";

    my $year_jpn = substr($date_fig,0,4);
    my $mon_jpn = substr($date_fig,5,2);
    $mon_jpn = $mon_jpn+0;
    my $day_jpn = substr($date_fig,8,2);
    $day_jpn = $day_jpn+0;
    $year_jpn = $year_jpn - 1988;

    $date_jpn = "平成　".$year_jpn." 年 ".$mon_jpn." 月 ".$day_jpn." 日";
#print "DEBUG 00022 - $date_jpn<BR>\n";
    return($date_jpn);
}

# ******** 数値整形（コンマ） 新　*******

sub st_commaform{
    my ($fig_val) = @_;

    $fig_val =~ s/\./<BR>/g;
    (my $int_val,my $dcml_val)=split("<BR>",$fig_val);
    my $length1  = length($int_val);
    my $comma1   = int(($length1-1)/3);
    my $int_str  = substr($int_val,0,$length1-$comma1*3);
    if($comma1>=1){
        for(my $g=0;$g<$comma1;$g++){
            my $pos1=$length1-($comma1-$g)*3;
            $int_str=$int_str.",".substr($int_val,$pos1,3);
        }
    } 
    $fig_str=$int_str.".".$dcml_val;
    return($fig_str);
}

# ******** 数値整形（切り上げ、四捨五入、切り捨て） ********

sub st_dcmlform{
    my ($dcml_dgt,$dcml_adj,$dcml_val) = @_;
#print "DEBUG 00g-51 $dcml_adj - $dcml_dgt - $dcml_val<BR>\n";
    my $dcml_k=10**$dcml_dgt;
#print "DEBUG 00g-52 $dcml_adj - $dcml_dgt - $dcml_val - $dcml_k<BR>\n";

    my $dcml_val2=$dcml_val*$dcml_k;
    if($dcml_adj eq "up"){$dcml_val2 = int($dcml_val2+0.999999999);}
    elsif($dcml_adj eq "dn"){$dcml_val2 = int($dcml_val2);}
    else{$dcml_val2 = int($dcml_val2+0.5);}
    $dcml_str=$dcml_val2/$dcml_k;

#print "DEBUG 00g-53 $dcml_adj - $dcml_val -  $dcml_str - $dcml_dgt<BR>\n";

    if($dcml_dgt > 0){
        if(abs(int($dcml_str)-$dcml_str)<0.000000001){
             $dcml_str=$dcml_str.".";
        }
        $dcml_val2="".$dcml_val2;
        $dcml_str="".$dcml_str;
        my $g_len1=length($dcml_val2);
        my $g_len2=length($dcml_str);
        my $g_dif = $g_len1 + 1 - $g_len2;
        if($dcml_val < 1){
            $dcml_dgt = $dcml_dgt + 0;
            $g_dif = $dcml_dgt + 2 - $g_len2;
        }
#print "DEBUG 00g-54  $dcml_val - $dcml_str -  $g_len2 - $dcml_dgt - $g_dif - AAA<BR>\n";

        for(my $g=1;$g<=$g_dif;$g++){  
# 160
             $dcml_str=$dcml_str."0";
        }
    }
#print "DEBUG 00g-55  $dcml_val - $dcml_str -  $g_len2 - $dcml_dgt - $g_dif - AAA<BR>\n";
    return($dcml_str);
}

# ******** 数値整形（桁数揃え、コード用ほか） ********

sub st_nmbrform{
	my ($nmbr_dgt, $nmbr_mark, $nmbr_val) = @_;

    $nmbr_str="";
    for(my $g=1;$g<=$nmbr_dgt;$g++) {$nmbr_str=$nmbr_str.$nmbr_mark;}
    $nmbr_val="".$nmbr_val;
    my $len=length($nmbr_val);
    if($nmbr_dgt<$len){
         $errmsg = "指定の桁数が数値の桁数より小です。\n";
         $errref2 = "操作エラー：".$prjcode0." - ".$work." - ".$prgname." - cg_00st30x - st_nmbrform";
         &io_errexit($errmsg,$errref2,$g_manager);
    }
    else{
         substr($nmbr_str,$nmbr_dgt-$len,$len)=$nmbr_val;

#print "DEBUG 00g-65  $nmbr_val - $nmbr_str<BR>\n";

         return($nmbr_str);
    }
}
# ******** 文字列整形（桁数揃え、コード用ほか） ********

sub st_strform{
	my ($fixlen,$mark,$pos1,$string0) = @_;
    $string0 =~ s/ //g;
    $string1="";
    for(my $g=0;$g<$fixlen;$g++) {$string1=$string1.$mark;}
    my $len=length($string0);
    if($fixlen<$len){
         $errmsg  = "指定の桁数が文字列の桁数より小です。\n";
         $errref2 = "操作エラー：".$prjcode0." - ".$work." - ".$prgname." - cg_00st30x - st_strform";
         &io_errexit($errmsg,$errref2,$g_manager);
    }
    else{

         if($pos1 eq "head"){substr($string1,$fixlen-$len,$len) = $string0;}
         else{substr($string1,0,$len) = $string0;}

         return($string1);
    }
}
# ******** 乱数コード（大小英字・数字） ********

sub st_rndmform{
    my ($rndm_dgt) = @_;
    my $rndm_k=10**$rndm_dgt;
    my $g_chk="A";
    do{
        $rndm_str = rand;
        $rndm_str = int($rndm_str * $rndm_k); 
        ($cur_sec,$cur_min,$cur_hour,$mday,$month,$cur_year,$wday,$yday,$isdt)=gmtime(time+9*60*60);
        $rndm_str = crypt($rndm_str,$cur_sec);
        $rndm_str = substr($rndm_str,0,$rndm_dgt);
        if($rndm_str =~ /[0-9a-zA-Z]{$rndm_dgt,}/){$g_chk="0";}
    }while($g_chk eq "A");
    return($rndm_str);
}

sub st_hankakuform{
    my($msg) = @_;
    $msg   =~ s/０/0/g;
    $msg   =~ s/１/1/g;
    $msg   =~ s/２/2/g;
    $msg   =~ s/３/3/g;
    $msg   =~ s/４/4/g;
    $msg   =~ s/５/5/g;
    $msg   =~ s/６/6/g;
    $msg   =~ s/７/7/g;
    $msg   =~ s/８/8/g;
    $msg   =~ s/９/9/g;
    $msg   =~ s/Ａ/A/g;
    $msg   =~ s/Ｂ/B/g;
    $msg   =~ s/Ｃ/C/g;
    $msg   =~ s/Ｄ/D/g;
    $msg   =~ s/Ｅ/E/g;
    $msg   =~ s/Ｆ/F/g;
    $msg   =~ s/Ｇ/G/g;
    $msg   =~ s/Ｈ/H/g;
    $msg   =~ s/Ｉ/I/g;
    $msg   =~ s/Ｊ/J/g;
    $msg   =~ s/Ｋ/K/g;
    $msg   =~ s/Ｌ/L/g;
    $msg   =~ s/Ｍ/M/g;
    $msg   =~ s/Ｎ/N/g;
    $msg   =~ s/Ｏ/O/g;
    $msg   =~ s/Ｐ/P/g;
    $msg   =~ s/Ｑ/Q/g;
    $msg   =~ s/Ｒ/R/g;
    $msg   =~ s/Ｓ/S/g;
    $msg   =~ s/Ｔ/T/g;
    $msg   =~ s/Ｕ/U/g;
    $msg   =~ s/Ｖ/V/g;
    $msg   =~ s/Ｗ/W/g;
    $msg   =~ s/Ｘ/X/g;
    $msg   =~ s/Ｙ/Y/g;
    $msg   =~ s/Ｚ/Z/g;
    $msg   =~ s/ａ/a/g;
    $msg   =~ s/ｂ/b/g;
    $msg   =~ s/ｃ/c/g;
    $msg   =~ s/ｄ/d/g;
    $msg   =~ s/ｅ/e/g;
    $msg   =~ s/ｆ/f/g;
    $msg   =~ s/ｇ/g/g;
    $msg   =~ s/ｈ/h/g;
    $msg   =~ s/ｉ/i/g;
    $msg   =~ s/ｊ/j/g;
    $msg   =~ s/ｋ/k/g;
    $msg   =~ s/ｌ/l/g;
    $msg   =~ s/ｍ/m/g;
    $msg   =~ s/ｎ/n/g;
    $msg   =~ s/ｏ/o/g;
    $msg   =~ s/ｐ/p/g;
    $msg   =~ s/ｑ/q/g;
    $msg   =~ s/ｒ/r/g;
    $msg   =~ s/ｓ/s/g;
    $msg   =~ s/ｔ/t/g;
    $msg   =~ s/ｕ/u/g;
    $msg   =~ s/ｖ/v/g;
    $msg   =~ s/ｗ/w/g;
    $msg   =~ s/ｘ/x/g;
    $msg   =~ s/ｙ/y/g;
    $msg   =~ s/ｚ/z/g;

    return($msg);
}

1;