By using this site, you agree to our updated Privacy Policy and our Terms of Use. Manage your Cookies Settings.
444,219 Members | 2,242 Online
Bytes IT Community
+ Ask a Question
Need help? Post your question and get tips & solutions from a community of 444,219 IT Pros & Developers. It's quick & easy.

Calendar Date Format

P: n/a
Thanks in advance -

Trying to get this format returned when selecting a date on a calendar
and having a little difficulty

Format needs to be mmyy/Dayd

Example

Feb 3, 2004 would return 0204\Day3
Dec 15, 2002 would reurn 1202\Day15
Code I have tried

This way actually almost works cept the "y" in "Day" is pulling a 6

Protected Sub Calendar1_SelectionChanged(ByVal sender As Object, ByVal
e As System.EventArgs) Handles Calendar1.SelectionChanged
Dim selection As String = Format(Calendar1.SelectedDate(),
"MMyy" & "\Day" & "d")
Response.Redirect("\\server\report\" & selection & ".XLS")
End Sub
Protected Sub Calendar1_SelectionChanged(ByVal sender As Object, ByVal
e As System.EventArgs) Handles Calendar1.SelectionChanged
Dim monthyear As String = Format(Calendar1.SelectedDate(),
"MMyy")
Dim day As String = Format(Calendar1.SelectedDate(), "d")
Dim selection As String = monthyear & "\Day" & day
Response.Redirect("\\server\report\" & selection & ".XLS")
End Sub

Protected Sub Calendar1_SelectionChanged(ByVal sender As Object, ByVal
e As System.EventArgs) Handles Calendar1.SelectionChanged
Dim monthyear As String = Format(Calendar1.SelectedDate(),
"MMyy")
Dim day As String = Format(Calendar1.SelectedDate(), "d")
Dim selection As String = monthyear & "\Day" & day
Response.Redirect("\\server\report\" & selection & ".XLS")
End Sub

The response redirect is another problem, but cant move onto that
problem til I get the formating working out...

Thanks!!

JD

Apr 3 '06 #1
Share this Question
Share on Google+
2 Replies


P: n/a
Escape the literals with a \

("MMyy" & "\D\a\y" & "d")

The y is being formated as the single digit year.

<ne***********@gmail.com> wrote in message
news:11**********************@g10g2000cwb.googlegr oups.com...
Thanks in advance -

Trying to get this format returned when selecting a date on a calendar
and having a little difficulty

Format needs to be mmyy/Dayd

Example

Feb 3, 2004 would return 0204\Day3
Dec 15, 2002 would reurn 1202\Day15
Code I have tried

This way actually almost works cept the "y" in "Day" is pulling a 6

Protected Sub Calendar1_SelectionChanged(ByVal sender As Object, ByVal
e As System.EventArgs) Handles Calendar1.SelectionChanged
Dim selection As String = Format(Calendar1.SelectedDate(),
"MMyy" & "\Day" & "d")
Response.Redirect("\\server\report\" & selection & ".XLS")
End Sub
Protected Sub Calendar1_SelectionChanged(ByVal sender As Object, ByVal
e As System.EventArgs) Handles Calendar1.SelectionChanged
Dim monthyear As String = Format(Calendar1.SelectedDate(),
"MMyy")
Dim day As String = Format(Calendar1.SelectedDate(), "d")
Dim selection As String = monthyear & "\Day" & day
Response.Redirect("\\server\report\" & selection & ".XLS")
End Sub

Protected Sub Calendar1_SelectionChanged(ByVal sender As Object, ByVal
e As System.EventArgs) Handles Calendar1.SelectionChanged
Dim monthyear As String = Format(Calendar1.SelectedDate(),
"MMyy")
Dim day As String = Format(Calendar1.SelectedDate(), "d")
Dim selection As String = monthyear & "\Day" & day
Response.Redirect("\\server\report\" & selection & ".XLS")
End Sub

The response redirect is another problem, but cant move onto that
problem til I get the formating working out...

Thanks!!

JD

Apr 3 '06 #2

P: n/a
Thanks - that did did the trick - had to add another \ to end of MMyy

("MMyy\" & "\D\a\y" & "d")

JD

Apr 5 '06 #3

This discussion thread is closed

Replies have been disabled for this discussion.