Копировать системное время в буфер обмена.

[All-Seeing]

Доброго времени суток.

Появились необходимость, использовать системное время Windows минус четыре часа, а полученный результат скопировать в буфер обмена.

Подскажите пожалуйста, как можно реализовать такую задачу... У меня к сожалению ничего не получилось.

[Oraven]

Вот, проверяй

Code: (clickermann) [Select]

$th = $_time_h - 4
IF($th < 0)
   $th = 24 + $th
END_IF

$tm = $_time_m
$ts = $_time_s
IF(STRLEN($th)<2)
   $th = STRCONCAT ("0", $th)
END_IF
IF(STRLEN($tm)<2)
   $tm = STRCONCAT ("0", $tm)
END_IF
IF(STRLEN($ts)<2)
   $ts = STRCONCAT ("0", $ts)
END_IF

LOGWRITE ($th,":",$tm,":",$ts)

TOCLIP(STRCONCAT($th,":",$tm,":",$ts))

halt // стоп

[All-Seeing]

Большое спасибо Oraven!

Code: (clickermann) [Select]

TOCLIP(STRCONCAT($th,":",$tm,":",$ts))То, что нужно использовать TOCLIP я в курсе, но вот самостоятельно правильно построить выражение у меня не получилось.

Еще раз Спасибо.
Удачи!)

[Aleksandr31]

Спасибо и мне пригодится (handshake)