We have a textbox which holds a year value and is stored as numeric. I need to determine if the user entered a two digit year (in which case we convert it as below) for the year 2000 (the user would enter 00 then) or if he did not enter any value in which case the variable's value is 0 (it is initialized as 0 throughout the app) and in that case I want to set it to the current year by default. Any ideas? I must be missing something obvious? How to determine if he pressed enter without entering a value or if he entered 00? The below routine is called from the valid of the textbox for mvh_year which is initialized to 0 when it is created:
PARAMETERS CurrentYear
PRIVATE iYear, iEpoc
iYear = CurrentYear
iEpoc = 20
DO CASE
CASE CurrentYear = 0
iYear = 2000
CASE CurrentYear < iEpoc
iYear = 2000 + CurrentYear
CASE CurrentYear < 100
iYear = 1900 + CurrentYear
ENDCASE
RETURN iYear
.·*´¨)
.·`TCH
(..·*
010000110101001101101000011000010111001001110000010011110111001001000010011101010111001101110100
"When the debate is lost, slander becomes the tool of the loser." - Socrates
Vita contingit, Vive cum eo. (Life Happens, Live With it.)
"Life is not measured by the number of breaths we take, but by the moments that take our breath away." -- author unknown
"De omnibus dubitandum"