[RESOLVED] todays date help need 0 before 1-9

[winracer]

I am using the code below for todays date. but I need when today is the 1st to have 01 and not 1 and any date 1-9 I need 0 in front of number.

any thoughts



($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime (time);
@Days = ("Sunday", "Monday", "Tuesday", "Wednesday", "Thursday", "Friday", "Saturday");
@Months = ("01", "02", "03", "04", "05", "06", "07", "08", "09", "10", "11", "12");
$day = $Days[$wday];
$date = $mday + 0;
$year = 1900 + $year;
$month = $Months[$mon];
# Format the date any way you want, ie. $date/$month/$year or $year/$date/$month

$new986 = "$month/$date/$year,";

[Charles]

You need to employ a couple of little tricks. This should work:($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime (time);
@days = ("Sunday", "Monday", "Tuesday", "Wednesday", "Thursday", "Friday", "Saturday");
$day = $days[$wday];
$year = 1900 + $year;
$month = ++$mon < 10 ? '0'.$mon : $mon;
$date = $mday < 10 ? '0'.$mday : $mday;
$new986 = "$month/$date/$year,";

[winracer]

You need to employ a couple of little tricks. This should work:($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime (time);
@days = ("Sunday", "Monday", "Tuesday", "Wednesday", "Thursday", "Friday", "Saturday");
$day = $days[$wday];
$year = 1900 + $year;
$month = ++$mon < 10 ? '0'.$mon : $mon;
$date = $mday < 10 ? '0'.$mday : $mday;
$new986 = "$month/$date/$year,";

thanks charles worked like a charm

[Sixtease]

You might also like to check sprintf $twodigits = sprintf "%02d", 4

[winracer]

You might also like to check sprintf $twodigits = sprintf "%02d", 4


thanks Sixtease I will read up on it.