Need to reset a count at the beginning of each year

[medic3212]

Greatings,

I am a vbs newbie, about two months of class.

I am working on a dispatching program which uses an incrementing call number. The call number is made up of two separate parts, the last two digits of the year, (which I have worked out), and an integer, “CallCount” i.e. 07 0115. The two are displayed in a separate text boxes. Each time a call is added, (the “AddCall” button clicked), the CallCount is increased by one. I need to reset the four-digit count back to 1 at midnight on January 1st of each year. I am thinking a “Do Until” the date equals 31 December 11:59:59, or use the year string change as a trigger but I am unsure if this will actually work. Is there a simple solution?

Thanks in advance

[kadghar]

Greatings,

I am a vbs newbie, about two months of class.

I am working on a dispatching program which uses an incrementing call number. ...

how are you actualizing the text boxes? what you can do is to put a simple if there, lets say TextBox1 is the one of the year and TextBox2 is the one of the integer, then something like this should do

if textbox1.text <> right(str(year(date)),2) then textbox2=0
textbox1.text = right(str(year(date)),2)
textbox2.text = textbox2.text+1

HTH