Comment formater une heure en HHMM avec AppleScript ?

Voici un script qui prend l'heure actuelle et la transforme en HHMM comme vous l'avez demandé.

-- preserve the current text item delimiters so we can put them back
set oldDelims to AppleScript's text item delimiters

set right_now to current date
set the_time to time string of right_now -- something like "4:20:56 PM"
set am_pm to characters -2 thru -1 of the_time as string -- is it AM or PM

set AppleScript's text item delimiters to ":"
set the_hour to text item 1 of the_time as string -- in this example, "4"
set the_minute to text item 2 of the_time as string -- in this example, "20"

if (am_pm is "PM") then
    set the_hour to the_hour + 12
end if

if the_hour is "24" then
    set the_hour to "12"
end if
-- that could have been more graceful but it's nice and obvious this way

if (count of the_hour) is 1 then -- padding with a zero if necessary
    set the_hour to "0" & the_hour
end if

if (count of the_minute) is 1 then -- padding with a zero if necessary
    set the_minute to "0" & the_minute
end if

set AppleScript's text item delimiters to ""
set steves_string to the_hour & the_minute as string -- putting the pieces together

set AppleScript's text item delimiters to oldDelims -- cleaning up

return steves_string -- you would not need this line, but for testing it's nice

Je suis sûr que cela pourrait être renforcé, mais j'ai pensé qu'il était instructif de le voir étape par étape.

Vous pouvez certainement indiquer l'heure que vous voulez - il n'est pas nécessaire que ce soit la "date du jour". (Notez que la date actuelle comprend également l'heure. Vous enlevez la partie "heure" d'une date en demandant "la chaîne de temps" de celle-ci.