Date Control

// Creates a date control that uses YYYY-MM-DD format.
// Sticking to one standard date format simplifies life immensely.
// You can enter a date directly in YYYY-MM-DD format. You can also use up/down
// buttons. And you can also use the mouse scroll wheel.
// Two SetVariable controls are used - one to display the date and to accept a date string
// and the other to provide the up/down buttons.
// Does not support fractional dates or date and time.
// To try it, execute:
//  DemoDateControlPanel()

static Constant kDebugDateControl = 0   // Set to 1 for debug printouts

Function ConvertYYYYMMDDToIgorDate(dateStr)
    String dateStr      // In YYYY-MM-DD format

    String separatorStr = "-"

    Variable month, day, year
    String formatStr = "%d" + separatorStr + "%d" + separatorStr + "%d"
    sscanf dateStr, formatStr, year, month, day
    Variable dt = date2secs(year, month, day )
    return dt
End

Function/S SetDateControlDate(panelName, controlName, igorDateTimeValue)
    String panelName
    String controlName
    Variable igorDateTimeValue      // In Igor date/time format (seconds since 1904)
   
    String dateStr = Secs2Date(igorDateTimeValue, -2)
    SetVariable $controlName win=$panelName, value=_STR:dateStr
    return dateStr
End

// DateUpDownSetVarProc(sva)
// This is the action procedure for the SetVariable control that provides the
// up and down buttons.
Function DateUpDownSetVarProc(sva) : SetVariableControl
    STRUCT WMSetVariableAction &sva

    switch( sva.eventCode )
        case 1: // mouse up
        case 3: // Live update
            Variable dval = sva.dval
            ControlInfo DateStringSetVar
            String dateStr = S_value        // e.g., "2011-06-19"
            Variable igorDateTimeValue = ConvertYYYYMMDDToIgorDate(dateStr)
            igorDateTimeValue += dval * 86400
            dateStr = SetDateControlDate(sva.win, "DateStringSetVar", igorDateTimeValue)
            SetVariable DateUpDownSetVar value=_NUM:0
            if (kDebugDateControl)
                if (dval > 0)
                    Printf "Up button; Result = %s (Igor date/time value=%d)\r", dateStr, igorDateTimeValue
                else
                    Printf "Down button; Result = %s (Igor date/time value=%d)\r", dateStr, igorDateTimeValue
                endif
            endif
            break
    endswitch

    return 0
End

// DateStringSetVarProc(sva)
// This is the action procedure for the SetVariable control that displays the
// date and accepts manually-entered dates.
Function DateStringSetVarProc(sva) : SetVariableControl
    STRUCT WMSetVariableAction &sva
   
    Variable igorDateTimeValue
    String dateStr

    switch( sva.eventCode )
        case 1: // mouse up
            Printf "Mouse up: text = %s\r", sva.sval
            break
           
        case 2: // Enter key
            igorDateTimeValue = ConvertYYYYMMDDToIgorDate(sva.sval)
            dateStr = Secs2Date(igorDateTimeValue, -2)
            if (kDebugDateControl)
                Printf "Enter key: Result = %s (Igor date/time value=%d)\r", dateStr, igorDateTimeValue
            endif
            break
           
        case 4: // Scroll wheel up
            igorDateTimeValue = ConvertYYYYMMDDToIgorDate(sva.sval)
            igorDateTimeValue += 86400      // Add one day
            dateStr = SetDateControlDate(sva.win, sva.ctrlName, igorDateTimeValue)
            if (kDebugDateControl)
                Printf "Scroll wheel up: Result = %s (Igor date/time value=%d)\r", dateStr, igorDateTimeValue
            endif
            break
           
        case 5: // Scroll wheel down
            igorDateTimeValue = ConvertYYYYMMDDToIgorDate(sva.sval)
            igorDateTimeValue -= 86400      // Subtract one day
            dateStr = SetDateControlDate(sva.win, sva.ctrlName, igorDateTimeValue)
            if (kDebugDateControl)
                Printf "Scroll wheel down: Result = %s (Igor date/time value=%d)\r", dateStr, igorDateTimeValue
            endif
            break
    endswitch

    return 0
End

Window DemoDateControlPanel() : Panel
    PauseUpdate; Silent 1       // building window...
    NewPanel /W=(197,60,639,265) /K=2 as "Demo Date Control"
   
    SetVariable DateStringSetVar,pos={1,2},size={150,19},live=1,proc=DateStringSetVarProc,title="Date:"
    SetVariable DateStringSetVar,fSize=12,value= _STR:"2011-06-19"
   
    Variable hintVPos = 2                   // Works well on Macintosh
    #ifdef WINDOWS
        hintVPos = 3                        // Works better on Windows
    #endif
    TitleBox DateHint,pos={171,3},size={85,16},title="(YYYY-MM-DD)",fSize=12,frame=0
   
    Variable upDownSetVarWidth
    Variable upDownSetVarLeft
    if (CmpStr("Windows",IgorInfo(2)) == 0)
        upDownSetVarLeft = 149          // Works better on Windows
        upDownSetVarWidth = 14          // Works better on Windows
    else
        upDownSetVarLeft = 152          // Works better on Macintosh
        upDownSetVarWidth = 18          // Works well on Macintosh
    endif
    SetVariable DateUpDownSetVar,pos={upDownSetVarLeft,2},size={upDownSetVarWidth,19},proc=DateUpDownSetVarProc,fSize=12
    SetVariable DateUpDownSetVar,value= _NUM:0
EndMacro