These are some examples how to format Date and Time data.
Attached are doc's and other example, explaining how to work with Date and Time data.
Attached are doc's and other example, explaining how to work with Date and Time data.
Code:
Option Explicit
Private Sub Form_Load()
Dim MYDATE As Date
Dim MYTIME As Date
Dim MYDATETIME As Date
Dim TEXTSTRING As String
With Me
.Caption = "Working with date and time_5. Formating"
.AutoRedraw = True
.Height = 13000
.Width = 10000
.Top = 0
.Left = 0
End With
MYDATE = "9/6/2004" '§ weekday= thursday
MYTIME = "2:6:9"
MYDATETIME = "9/6/2004 2:6:9" '§ weekday= thursday
Print "Format Function"
'§ User-Defined Date/Time Formats
Print "User-Defined Date/Time Formats"
'§ DATE
Print "== Date =="
Print "Format(MYDATE, "; """"; "dd/mm/yy"; """"; ") !! Date separator !! ==>"; _
Tab(80); Format(MYDATE, "dd/mm/yy")
Print "Format(MYDATETIME, "; """"; "dd-mm-yy"; """"; ") !! other characters may be used !! ==>"; _
Tab(80); Format(MYDATETIME, "dd-mm-yy")
Print "Format(MYDATE, "; """"; "d"; """"; ") !! number without a leading zero !! ==>"; _
Tab(80); Format(MYDATE, "d")
Print "Format(MYDATE, "; """"; "dd"; """"; ") !! number with a leading zero !! ==>"; _
Tab(80); Format(MYDATE, "dd")
Print "Format(MYDATE, "; """"; "ddd"; """"; ") !! abbreviation !! ==>"; _
Tab(80); Format(MYDATE, "ddd")
Print "Format(MYDATE, "; """"; "dddd"; """"; ") !! full name !! ==>"; _
Tab(80); Format(MYDATE, "dddd")
Print "Format(MYDATE, "; """"; "ddddd"; """"; ") !! complete date !! ==>"; _
Tab(80); Format(MYDATE, "ddddd")
Print "Format(MYDATE, "; """"; "dddddd"; """"; ") !! serial number as a complete date !! ==>"; _
Tab(80); Format(MYDATE, "dddddd")
Print "Format(MYDATE, "; """"; "w"; """"; ") !! day of the week as a number (first day of week: Sunday) !! ==>"; _
Tab(100); Format(MYDATE, "w")
Print "Format(MYDATE, "; """"; "w"; """"; ", vbThursday) !! day of the week as a number (first day of week: Thursday) !! ==>"; _
Tab(100); Format(MYDATE, "w", vbThursday)
Print "Format(MYDATE, "; """"; "ww"; """"; ") !! week of the year as a number (first week: with 1 Jan) !! ==>"; _
Tab(100); Format(MYDATE, "ww")
Print "Format(MYDATE, "; """"; "ww"; """"; ", , vbFirstFullWeek) !! first week: first full week !! ==>"; _
Tab(100); Format(MYDATE, "ww", , vbFirstFullWeek)
Print "Format(MYDATE, "; """"; "m"; """"; ") !! month as a number without a leading zero !! ==>"; _
Tab(80); Format(MYDATE, "m")
Print "Format(MYDATE, "; """"; "mm"; """"; ") !! month as a number with a leading zero !! ==>"; _
Tab(80); Format(MYDATE, "mm")
Print "Format(MYDATE, "; """"; "mmm"; """"; ") !! month as an abbreviation !! ==>"; _
Tab(80); Format(MYDATE, "mmm")
Print "Format(MYDATE, "; """"; "mmmm"; """"; ") !! month as a full month name !! ==>"; _
Tab(80); Format(MYDATE, "mmmm")
Print "Format(MYDATE, "; """"; "q"; """"; ") !! quarter of the year as a number !! ==>"; _
Tab(80); Format(MYDATE, "q")
Print "Format(MYDATE, "; """"; "y"; """"; ") !! day of the year as a number !! ==>"; _
Tab(80); Format(MYDATE, "y")
Print "Format(MYDATE, "; """"; "yy"; """"; ") !! year as a 2-digit numbe !! ==>"; _
Tab(80); Format(MYDATE, "yy")
Print "Format(MYDATE, "; """"; "yyyy"; """"; ") !! year as a 4-digit number !! ==>"; _
Tab(80); Format(MYDATE, "yyyy")
'§ Time
Print "== Time =="
Print "Format(MYTIME, "; """"; "hh-nn-ss"; """"; ") !! Time separator !! ==>"; _
Tab(80); Format(MYTIME, "hh-nn-ss")
Print "Format(MYDATETIME, "; """"; "hh.nn.ss"; """"; ") !! Time separator !! ==>"; _
Tab(80); Format(MYDATETIME, "hh.nn.ss")
Print "Format(MYTIME, "; """"; "h"; """"; ") !! hour as a number without leading zeros !! ==>"; _
Tab(80); Format(MYTIME, "h")
Print "Format(MYTIME, "; """"; "hh"; """"; ") !! hour as a number with leading zeros !! ==>"; _
Tab(80); Format(MYTIME, "hh")
Print "Format(MYTIME, "; """"; "n"; """"; ") !! minute as a number without leading zeros !! ==>"; _
Tab(80); Format(MYTIME, "n")
Print "Format(MYTIME, "; """"; "nn"; """"; ") !! minute as a number with leading zeros !! ==>"; _
Tab(80); Format(MYTIME, "nn")
Print "Format(MYTIME, "; """"; "s"; """"; ") !! second as a number without leading zeros !! ==>"; _
Tab(80); Format(MYTIME, "s")
Print "Format(MYTIME, "; """"; "ss"; """"; ") !! second as a number with leading zeros !! ==>"; _
Tab(80); Format(MYTIME, "ss")
Print "Format(MYTIME, "; """"; "ttttt"; """"; ") !! complete time !! ==>"; _
Tab(80); Format(MYTIME, "ttttt")
Print "Format(MYTIME, "; """"; "h.n.s AM/PM"; """"; ") !! 12-hour clock and 'AM' before noon; 'PM' between noon and 11:59 P.M !! ==>"; _
Tab(110); Format(MYTIME, "h.n.s AM/PM")
Print "Format(MYTIME, "; """"; "h.n.s am/pm"; """"; ") !! 12-hour clock and 'am' before noon; 'pm' between noon and 11:59 P.M !! ==>"; _
Tab(110); Format(MYTIME, "h.n.s am/pm")
Print "Format(MYTIME, "; """"; "h.n.s A/P"; """"; ") !! 12-hour clock and 'A' before noon; 'P' between noon and 11:59 P.M !! ==>"; _
Tab(110); Format(MYTIME, "h.n.s A/P")
Print "Format(MYTIME, "; """"; "h.n.s a/p"; """"; ") !! 12-hour clock and 'a' before noon; 'p' between noon and 11:59 P.M !! ==>"; _
Tab(110); Format(MYTIME, "h.n.s a/p")
Print "Format(MYTIME, "; """"; "h.n.s AMPM"; """"; ") !! 12-hour clock, AM and PM string literal as defined by your system !! ==>"; _
Tab(110); Format(MYTIME, "h.n.s AMPM")
'§ Date and Time
Print "== Date and Time =="
Print "Format(MYDATETIME, "; """"; "c"; """"; ") !! date as ddddd and the time as ttttt !! ==>"; _
Tab(80); Format(MYDATETIME, "c")
Print "Format(MYDATETIME, "; """"; "dd-mm-yy h.n.s AM/PM"; """"; ") !! mix !! ==>"; _
Tab(80); Format(MYDATETIME, "dd-mm-yy h.n.s AM/PM")
Print "============================================"
'§ Predefined date and time format names
Print "Predefined date and time format names"
'§ DATE
Print "== Date =="
Print "Format(MYDATETIME, "; """"; "General Date"; """"; ") !! is determined by your system settings !! ==>"; _
Tab(110); Format(MYDATETIME, "General Date")
Print "Format(MYDATETIME, "; """"; "Long Date"; """"; ") !! according to your system's long date format !! ==>"; _
Tab(110); Format(MYDATETIME, "Long Date")
Print "Format(MYDATETIME, "; """"; "Medium Date"; """"; ") !! appropriate for the language version of the host application !! ==>"; _
Tab(110); Format(MYDATETIME, "Medium Date")
Print "Format(MYDATETIME, "; """"; "Short Date"; """"; ") !! using system's short date format !! ==>"; _
Tab(110); Format(MYDATETIME, "Short Date")
'§ Time
Print "== Time =="
Print "Format(MYDATETIME, "; """"; "Long Time"; """"; ") !! system's long time format !! ==>"; _
Tab(110); Format(MYDATETIME, "Long Time")
Print "Format(MYDATETIME, "; """"; "Medium Time"; """"; ") !! in 12-hour format using hours and minutes and the system AM/PM !! ==>"; _
Tab(110); Format(MYDATETIME, "Medium Time")
Print "Format(MYDATETIME, "; """"; "Short Time"; """"; ") !! 24-hour format !! ==>"; _
Tab(110); Format(MYDATETIME, "Short Time")
Print "##########################################################"
Print "FormatDateTime Function"
'§ User-Defined Date/Time Formats
Print "User-Defined Date/Time Formats"
'§ DATE
Print "== Date =="
Print "FormatDateTime(MYDATETIME, vbGeneralDate) !! is determined by your system settings !! ==>"; _
Tab(110); FormatDateTime(MYDATETIME, vbGeneralDate)
Print "FormatDateTime(MYDATETIME, vbLongDate) !! according to your system's long date format !! ==>"; _
Tab(110); FormatDateTime(MYDATETIME, vbLongDate)
Print "FormatDateTime(MYDATETIME, vbShortDate) !! using system's short date format !! ==>"; _
Tab(110); FormatDateTime(MYDATETIME, vbShortDate)
'§ Time
Print "== Time =="
Print "FormatDateTime(MYDATETIME, vbLongTime) !! system's long time format !! ==>"; _
Tab(110); FormatDateTime(MYDATETIME, vbLongTime)
Print "FormatDateTime(MYDATETIME, vbShortTime) !! 24-hour format !! ==>"; _
Tab(110); FormatDateTime(MYDATETIME, vbShortTime)
End Sub