Форум » [x]Harbour » Время с милисекундами » Ответить
Время с милисекундами
nick_mi: Есть ли такая функция в Harbour
Ответов - 6
fil: datatime функции работают с форматом YYYYMMDDhhmmss.ccc
Dima: hb_datetime()
nick_mi: Спасибо
Dima: Наваял по бырому [pre2] Func TimeMS() local cRegExp:="([0-9]{2}[:]{1}[0-9]{2}[:]{1}[0-9]{2}[.]{1}[0-9]{3})" local ret:="" local ctime:=hb_tstostr(hb_datetime()) if hb_Regexhas( cRegExp , ctime) ret:=hb_Regex( cRegExp,ctime,.f.)[1] endif return ret [/pre2]
SergKis: Меня устраивало: Dtos(Date())+' '+StrTran(Time(),':', '')+'.'+right(hb_ntos(HB_MILLISECONDS()), 3)
Dima: SergKis пишет: Меня устраивало: По скорости срабатывания одно и тоже , проверил в цикле оба варианта от 1 до 1 000 000
полная версия страницы