dcsimg
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

By submitting your information, you agree that devx.com may send you DevX offers via email, phone and text message, as well as email offers about other products and services that DevX believes may be of interest to you. DevX will process your information in accordance with the Quinstreet Privacy Policy.


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

WEBINAR:

On-Demand

Building the Right Environment to Support AI, Machine Learning and Deep Learning


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