Login | Register   
LinkedIn
Google+
Twitter
RSS Feed
Download our iPhone app
TODAY'S HEADLINES  |   ARTICLE ARCHIVE  |   FORUMS  |   TIP BANK
Browse DevX
Sign up for e-mail newsletters from DevX


Tip of the Day
Language: VB5,VB6
Expertise: Intermediate
Aug 18, 2001

FormatDateTimeEx - Extended formatting for date and time values

Enum DateTimeFormat
    dtGeneralDate
    dtLongDate
    dtMediumDate
    dtShortDate
    
    dtLongTime
    dtMediumTime
    dtShortTime
    
    dtCustom
End Enum


' Enhanced VB FormatDateTime function
Function FormatDateTimeEx(newDate, Optional ByVal dtFormat As DateTimeFormat = _
    dtGeneralDate, Optional FirstDayOfWeek As VbDayOfWeek = vbSunday, _
    Optional FirstWeekOfYear As VbFirstWeekOfYear = vbFirstJan1)
    
    ' Select the right formatting function
    Select Case dtFormat
        Case dtGeneralDate
            FormatDateTimeEx = FormatDateTime(newDate, vbGeneralDate)
        Case dtLongDate
            FormatDateTimeEx = FormatDateTime(newDate, vbLongDate)
        Case dtMediumDate
            FormatDateTimeEx = Format(newDate, "Medium Date", FirstDayOfWeek, _
                FirstWeekOfYear)
        Case dtShortDate
            FormatDateTimeEx = FormatDateTime(newDate, vbShortDate)
        Case dtLongTime
            FormatDateTimeEx = FormatDateTime(newDate, vbLongTime)
        Case dtMediumTime
            FormatDateTimeEx = Format(newDate, "Medium Time", FirstDayOfWeek, _
                FirstWeekOfYear)
        Case dtShortTime
            FormatDateTimeEx = FormatDateTime(newDate, vbShortTime)
        Case dtCustom
            FormatDateTimeEx = Format(newDate, "dddd d mmmm yyyy - Hh:Nn:Ss")
    End Select
    
End Function
Alberto Falossi
 
Comment and Contribute

 

 

 

 

 


(Maximum characters: 1200). You have 1200 characters left.

 

 

Sitemap
Thanks for your registration, follow us on our social networks to keep up-to-date