QDI Function (Quick Date Info )

[AlanJordan]

How many times have you stopped what you were doing to find out what day of the week (or weeknumber) that a particular date is associated?

I finally got tired of it, and wrote this function. I hope you enjoy it.

Function QDI(DateToReturn As Date, Optional strFormatDesired As String, _
         Optional boolLT As Boolean, Optional boolLD As Boolean)
[COLOR=green]colored      
    'A quick and dirty function By Alan H. Jordan 
    'QDI stands for Quick Date Info
    'Feel free to use it or modify it.  If you do modify it, please post the code.
    
    'Purpose precludes typing in tedious formatting strings _
    just to find out what day of the week is associated with a particular date.
    'strFormatDesired is used if you do want a format other than "dddd", for example "ddd" which returns a three-day week
    
    'Format options:
    'd 1 - 30
    'dd 1 - 30
    'ww 1 - 51
    'mmm Displays full month names (Hijri month names have no abbreviations).
    'y 1 - 355
    'yyyy 100 - 9666

    
    'Immediate Window Usage:  ?QDI(#7/31/2005#, "ddd") , ?QDI(#7/31/2005#) _
                              ?QDI = (#7/31/2005#,,,True) returns Sunday, July 31, 2005
[/color]
    If boolLT = True Then
        QDI = Format(DateToReturn, "Long Time")
        Exit Function
    ElseIf boolLD = True Then
        QDI = Format(DateToReturn, "Long Date")
        Exit Function
    End If
    
    If strFormatDesired = vbNullString Then
        QDI = Format(DateToReturn, "dddd")
    Else
        QDI = Format(DateToReturn, strFormatDesired)
    End If

End Function

 

[mp9]

How about a minor (untested) revision:

Function QDI(DateToReturn As Date, Optional strFormatDesired As String, _
         Optional boolLT As Boolean, Optional boolLD As Boolean)
colored      
    'A quick and dirty function By Alan H. Jordan 
    'QDI stands for Quick Date Info
    'Feel free to use it or modify it.  If you do modify it, please post the code.
    
    'Purpose precludes typing in tedious formatting strings _
    just to find out what day of the week is associated with a particular date.
    'strFormatDesired is used if you do want a format other than "dddd", for example "ddd" which returns a three-day week
    
    'Format options:
    'd 1 - 30
    'dd 1 - 30
    'ww 1 - 51
    'mmm Displays full month names (Hijri month names have no abbreviations).
    'y 1 - 355
    'yyyy 100 - 9666

    
    'Immediate Window Usage:  ?QDI(#7/31/2005#, "ddd") , ?QDI(#7/31/2005#) _
                              ?QDI = (#7/31/2005#,,,True) returns Sunday, July 31, 2005

    If boolLT Then
        QDI = Format(DateToReturn, "Long Time")
    ElseIf boolLD Then
        QDI = Format(DateToReturn, "Long Date")
    Else
        QDI = Format(DateToReturn, Nz(strFormatDesired, "dddd"))
    End If

End Function

[pc2] [URL unfurl="true"]http://www22.brinkster.com/accessory/[/URL]