Hello,

I wont to seve the tags on midnight to data log

In attachment are print Screens

Dim , Record_total_24h, Record_total_r2_test_h 

'Wykrywanie czasu 
Dim MyTime,current_time_h, current_time_m, current_time_s 
MyTime = Now 
current_time_h = Hour(MyTime) 
current_time_m = Minute(MyTime) 
current_time_s = Second(MyTime) 


If current_time_h = 23 And current_time_m = 59 And current_time_m = 30  Then 

   Set Record_total_24h = True 
Else 
   Set  Record_total_24h = False 
End 
SmartTags("BCR1\Data_log_total_start") = Record_total_24h 

If current_time_h = 1  And current_time_m = 59 And current_time_m = 30 Then 
   Set Record_total_r2_test_h = True 
Else 
   Set  Record_total_r2_test_h = False 
End 
SmartTags("BCR1\Data_log_total_start_R2_18") = Record_total_r2_test_h

-------------------------

thank you in advance for your help

Hi Tholin,

If you're determined to stick with this method.

A) what's your problem ?

B) it isn't going to work if you check for minutes equals 59 and 30 in the same statement

regards

Yanto

hello,

now i try us "Scheduler".

But is not working, can you check why ?