Time sets C, Daily and Diario don't work with higher frequencies

[Víctor de Buen Remiro]

In the next TOL code you can test how C time set doesn't reset to 0 the time info.

Succ(y2003m06d08h20i26s25.000, C, -1) = y2003m06d07h20i26s25.000
Succ(y2003m06d08h20i26s25.000, H(0), -1) = y2003m06d08
Succ(y2003m06d08h20i26s25.000, WD(1), -1) = y2003m06d02
Succ(y2003m06d08h20i26s25.000, D(1), -1) = y2003m06d01

Date dte = TextToDate("2003-06-08 20:26:25");
WriteLn("Succ("<<dte<<", C, -1) = "<<Date Succ(dte, C, -1));
WriteLn("Succ("<<dte<<", H(0), -1) = "<<Date Succ(dte, H(0), -1));
WriteLn("Succ("<<dte<<", WD(1), -1) = "<<Date Succ(dte, WD(1), -1));
WriteLn("Succ("<<dte<<", D(1), -1) = "<<Date Succ(dte, D(1), -1));

Regards

[Víctor de Buen Remiro]

Problem was solved but not notified.
A test has been added to tol_tests/tol/Bugzilla/bug_000097

Thanks to report

[Víctor de Buen Remiro]

I propose a temporary solution available when a database is open.

Real SqlLike(Text txt, Text pattern)
{

Text qry = "select '"+txt+"' LIKE '"+pattern+"' from dual";

WriteLn(qry);

Set s = DBTable(qry);
If(Card(s)!=1,?,s[1][1])

};
PutDescription(I2(
"Calls to the currently open database LIKE function.",
"Llama a la función LIKE de la base de datos abierta."),SqlLike);

Real SqlLike("farola","%o%a");

With a AMD64 with local MySQL server the total time for 10000 iterations of SqlLike calls was 3.328 seconds. Calling TextMatch total 1000 times ends in 0.578 seconds.