我会使用具有良好日期时间库的语言。比如perl
perl -MDateTime -E '
($hour, $minute, $duration) = @ARGV;
$fmt = "%F %T %Z";
$local = DateTime->now(time_zone=>"local")->set(hour=>$hour, minute=>$minute, second=>0);
say $local->strftime($fmt);
$jp = $local->clone->set_time_zone("Asia/Tokyo");
say $jp->strftime($fmt);
$jp2 = $jp->subtract(minutes => $duration);
say $jp2->strftime($fmt);
' 8 0 45
2015-01-17 08:00:00 EST
2015-01-17 22:00:00 JST
2015-01-17 21:15:00 JST
或Tcl
hour=8
minute=0
duration=45
export hour minute duration
tclsh <<'END'
set fmt "%Y-%m-%d %T %Z"
set t [clock scan "$env(hour):$env(minute) today"]
puts [clock format $t -format $fmt]
puts [clock format $t -format $fmt -timezone "Asia/Tokyo"]
puts [clock format [clock add $t -$env(duration) minutes] -format $fmt -timezone "Asia/Tokyo"]
END
2015-01-17 08:00:00 EST
2015-01-17 22:00:00 JST
2015-01-17 21:15:00 JST
根据您的评论:
perl -MDateTime -E '
($hour, $minute, $duration) = @ARGV;
say uc DateTime->now(time_zone=>"local")
->set(hour=>$hour, minute=>$minute, second=>0)
->set_time_zone("Asia/Tokyo")
->subtract(minutes => $duration)
->strftime("%a %H:%M");
' 8 0 45 >| output.file