If IsNumeric(Duration) Then
EndDte.txt = Format(Date + clng(Duration),"dd-mmm-yy")
End If

--
Regards,
Tom Ogilvy


Mike NG wrote in message
...
I have two fields on a UserForm, Duration and EndDte so that a default
is provided in the end date field

If IsNumeric(Duration) Then
EndDte = Date + Duration
End If

How do I format the EndDte as say 24-Sep-03, given that EndDte is
effectively a String
--
Mike

just for completeness, there is a typo.

EndDte.txt = Format(Date + clng(Duration),"dd-mmm-yy")

should be

EndDte.text = Format(Date + clng(Duration),"dd-mmm-yy")

--
Regards,
Tom Ogilvy

Mike NG wrote in message
...
On Sun, 14 Sep 2003 at 10:12:37, Tom Ogilvy (Tom Ogilvy
) wrote:
If IsNumeric(Duration) Then
EndDte.txt = Format(Date + clng(Duration),"dd-mmm-yy")
End If

Many thanks - worked a treat
--
Mike