Hi David,

There is not a way to do this without writing some custom script; however,
if you don't mind doing so here are sample steps:

** NOTE: I would encourage you to complete these steps completely then
migrate this to your application.

1) Create a new, blank InfoPath solution
2) From the Tools menu choose Form Options, select the Advanced tab and
make sure the Programming Language is set to VBScript.
3) Add a Date Picker control to your form (named field1) and a text box
control (named field2)
- Right-click on the Date Picker control and choose Properties
- Click the Data Validation button
- From the Events box choose OnAfterChange and then click Edit - you should
see the following:

Sub msoxd_my_field1_OnAfterChange(eventObj)

' Write code here to restore the global state.

If eventObj.IsUndoRedo Then
    ' An undo or redo operation has occurred and the DOM is read-only.
    Exit Sub
End If

' A field change has occurred and the DOM is writable. Write code here to
respond to the changes.

End Sub

- Just before the "End Sub" line of code add the following:

If eventObj.Operation = "Insert" Then
    Dim objField2
    Set objField2 = XDocument.DOM.selectSingleNode("//my:myFields/my:field2")

    Dim intDay
    Dim strDay

    intDay = DatePart("w", eventObj.Site.text)
    Select Case intDay
        case 1
            strDay = "Sunday"   
        case 2
            strDay = "Monday"   
        case 3
            strDay = "Tuesday"   
        case 4
            strDay = "Wednesday"   
        case 5
            strDay = "Thursday"   
        case 6
            strDay = "Friday"   
        case 7
            strDay = "Saturday"   
    End Select
    objField2.text = strDay
End If

- The entire code procedure should now look like this:

Sub msoxd_my_field1_OnAfterChange(eventObj)

' Write code here to restore the global state.

If eventObj.IsUndoRedo Then
    ' An undo or redo operation has occurred and the DOM is read-only.
    Exit Sub
End If

' A field change has occurred and the DOM is writable. Write code here to
respond to the changes.
If eventObj.Operation = "Insert" Then
    Dim objField2
    Set objField2 = XDocument.DOM.selectSingleNode("//my:myFields/my:field2")

    Dim intDay
    Dim strDay

    intDay = DatePart("w", eventObj.Site.text)
    Select Case intDay
        case 1
            strDay = "Sunday"   
        case 2
            strDay = "Monday"   
        case 3
            strDay = "Tuesday"   
        case 4
            strDay = "Wednesday"   
        case 5
            strDay = "Thursday"   
        case 6
            strDay = "Friday"   
        case 7
            strDay = "Saturday"   
    End Select
    objField2.text = strDay
End If
End Sub

- Save the code and close the code editor
- Preview the form and select a date from the Date Picker - the text box
should display the correct day!

I hope this helps! :-)

Scott L. Heim
Microsoft Developer Support

This posting is provided "AS IS" with no warranties, and confers no rights