By using this site, you agree to our updated Privacy Policy and our Terms of Use. Manage your Cookies Settings.
428,829 Members | 1,798 Online
Bytes IT Community
Submit an Article
Got Smarts?
Share your bits of IT knowledge by writing an article on Bytes.

Working with Date and Time

Guido Geurs
Expert 100+
P: 767
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.
Expand|Select|Wrap|Line Numbers
  1. Option Explicit
  2.  
  3. Private Sub Form_Load()
  4. Dim MYDATE As Date
  5. Dim MYTIME As Date
  6. Dim MYDATETIME As Date
  7. Dim TEXTSTRING As String
  8.    With Me
  9.       .Caption = "Working with date and time_5. Formating"
  10.       .AutoRedraw = True
  11.       .Height = 13000
  12.       .Width = 10000
  13.       .Top = 0
  14.       .Left = 0
  15.    End With
  16.    MYDATE = "9/6/2004" ' weekday= thursday
  17.    MYTIME = "2:6:9"
  18.    MYDATETIME = "9/6/2004 2:6:9" ' weekday= thursday
  19.    Print "Format Function"
  20. ' User-Defined Date/Time Formats
  21.    Print "User-Defined Date/Time Formats"
  22. ' DATE
  23.    Print "== Date =="
  24.    Print "Format(MYDATE, "; """"; "dd/mm/yy"; """"; ") !! Date separator !! ==>"; _
  25.         Tab(80); Format(MYDATE, "dd/mm/yy")
  26.    Print "Format(MYDATETIME, "; """"; "dd-mm-yy"; """"; ") !! other characters may be used !! ==>"; _
  27.         Tab(80); Format(MYDATETIME, "dd-mm-yy")
  28.    Print "Format(MYDATE, "; """"; "d"; """"; ") !! number without a leading zero !! ==>"; _
  29.         Tab(80); Format(MYDATE, "d")
  30.    Print "Format(MYDATE, "; """"; "dd"; """"; ") !! number with a leading zero !! ==>"; _
  31.          Tab(80); Format(MYDATE, "dd")
  32.    Print "Format(MYDATE, "; """"; "ddd"; """"; ") !! abbreviation !! ==>"; _
  33.          Tab(80); Format(MYDATE, "ddd")
  34.    Print "Format(MYDATE, "; """"; "dddd"; """"; ") !! full name !! ==>"; _
  35.          Tab(80); Format(MYDATE, "dddd")
  36.    Print "Format(MYDATE, "; """"; "ddddd"; """"; ") !! complete date !! ==>"; _
  37.          Tab(80); Format(MYDATE, "ddddd")
  38.    Print "Format(MYDATE, "; """"; "dddddd"; """"; ") !! serial number as a complete date !! ==>"; _
  39.          Tab(80); Format(MYDATE, "dddddd")
  40.    Print "Format(MYDATE, "; """"; "w"; """"; ") !! day of the week as a number (first day of week: Sunday) !! ==>"; _
  41.          Tab(100); Format(MYDATE, "w")
  42.    Print "Format(MYDATE, "; """"; "w"; """"; ", vbThursday) !! day of the week as a number (first day of week: Thursday) !! ==>"; _
  43.          Tab(100); Format(MYDATE, "w", vbThursday)
  44.    Print "Format(MYDATE, "; """"; "ww"; """"; ") !! week of the year as a number (first week: with 1 Jan) !! ==>"; _
  45.          Tab(100); Format(MYDATE, "ww")
  46.    Print "Format(MYDATE, "; """"; "ww"; """"; ", , vbFirstFullWeek) !! first week: first full week !! ==>"; _
  47.          Tab(100); Format(MYDATE, "ww", , vbFirstFullWeek)
  48.    Print "Format(MYDATE, "; """"; "m"; """"; ") !! month as a number without a leading zero !! ==>"; _
  49.          Tab(80); Format(MYDATE, "m")
  50.    Print "Format(MYDATE, "; """"; "mm"; """"; ") !! month as a number with a leading zero !! ==>"; _
  51.          Tab(80); Format(MYDATE, "mm")
  52.    Print "Format(MYDATE, "; """"; "mmm"; """"; ") !! month as an abbreviation !! ==>"; _
  53.          Tab(80); Format(MYDATE, "mmm")
  54.    Print "Format(MYDATE, "; """"; "mmmm"; """"; ") !! month as a full month name !! ==>"; _
  55.          Tab(80); Format(MYDATE, "mmmm")
  56.    Print "Format(MYDATE, "; """"; "q"; """"; ") !! quarter of the year as a number !! ==>"; _
  57.          Tab(80); Format(MYDATE, "q")
  58.    Print "Format(MYDATE, "; """"; "y"; """"; ") !! day of the year as a number !! ==>"; _
  59.          Tab(80); Format(MYDATE, "y")
  60.    Print "Format(MYDATE, "; """"; "yy"; """"; ") !! year as a 2-digit numbe  !! ==>"; _
  61.          Tab(80); Format(MYDATE, "yy")
  62.    Print "Format(MYDATE, "; """"; "yyyy"; """"; ") !! year as a 4-digit number !! ==>"; _
  63.          Tab(80); Format(MYDATE, "yyyy")
  64. ' Time
  65.    Print "== Time =="
  66.    Print "Format(MYTIME, "; """"; "hh-nn-ss"; """"; ") !! Time separator !! ==>"; _
  67.         Tab(80); Format(MYTIME, "hh-nn-ss")
  68.    Print "Format(MYDATETIME, "; """"; "hh.nn.ss"; """"; ") !! Time separator !! ==>"; _
  69.         Tab(80); Format(MYDATETIME, "hh.nn.ss")
  70.    Print "Format(MYTIME, "; """"; "h"; """"; ") !! hour as a number without leading zeros !! ==>"; _
  71.         Tab(80); Format(MYTIME, "h")
  72.    Print "Format(MYTIME, "; """"; "hh"; """"; ") !! hour as a number with leading zeros !! ==>"; _
  73.         Tab(80); Format(MYTIME, "hh")
  74.    Print "Format(MYTIME, "; """"; "n"; """"; ") !! minute as a number without leading zeros !! ==>"; _
  75.         Tab(80); Format(MYTIME, "n")
  76.    Print "Format(MYTIME, "; """"; "nn"; """"; ") !! minute as a number with leading zeros !! ==>"; _
  77.         Tab(80); Format(MYTIME, "nn")
  78.    Print "Format(MYTIME, "; """"; "s"; """"; ") !! second as a number without leading zeros !! ==>"; _
  79.         Tab(80); Format(MYTIME, "s")
  80.    Print "Format(MYTIME, "; """"; "ss"; """"; ") !! second as a number with leading zeros !! ==>"; _
  81.         Tab(80); Format(MYTIME, "ss")
  82.    Print "Format(MYTIME, "; """"; "ttttt"; """"; ") !! complete time !! ==>"; _
  83.         Tab(80); Format(MYTIME, "ttttt")
  84.    Print "Format(MYTIME, "; """"; "h.n.s AM/PM"; """"; ") !! 12-hour clock and 'AM' before noon; 'PM' between noon and 11:59 P.M !! ==>"; _
  85.         Tab(110); Format(MYTIME, "h.n.s AM/PM")
  86.    Print "Format(MYTIME, "; """"; "h.n.s am/pm"; """"; ") !! 12-hour clock and 'am' before noon; 'pm' between noon and 11:59 P.M !! ==>"; _
  87.         Tab(110); Format(MYTIME, "h.n.s am/pm")
  88.    Print "Format(MYTIME, "; """"; "h.n.s A/P"; """"; ") !! 12-hour clock and 'A' before noon; 'P' between noon and 11:59 P.M !! ==>"; _
  89.         Tab(110); Format(MYTIME, "h.n.s A/P")
  90.    Print "Format(MYTIME, "; """"; "h.n.s a/p"; """"; ") !! 12-hour clock and 'a' before noon; 'p' between noon and 11:59 P.M !! ==>"; _
  91.         Tab(110); Format(MYTIME, "h.n.s a/p")
  92.    Print "Format(MYTIME, "; """"; "h.n.s AMPM"; """"; ") !! 12-hour clock, AM and PM string literal as defined by your system !! ==>"; _
  93.         Tab(110); Format(MYTIME, "h.n.s AMPM")
  94. ' Date and Time
  95.    Print "== Date and Time =="
  96.    Print "Format(MYDATETIME, "; """"; "c"; """"; ") !! date as ddddd and the time as ttttt !! ==>"; _
  97.         Tab(80); Format(MYDATETIME, "c")
  98.    Print "Format(MYDATETIME, "; """"; "dd-mm-yy h.n.s AM/PM"; """"; ") !! mix !! ==>"; _
  99.         Tab(80); Format(MYDATETIME, "dd-mm-yy h.n.s AM/PM")
  100.    Print "============================================"
  101. ' Predefined date and time format names
  102.    Print "Predefined date and time format names"
  103. ' DATE
  104.    Print "== Date =="
  105.    Print "Format(MYDATETIME, "; """"; "General Date"; """"; ") !! is determined by your system settings !! ==>"; _
  106.         Tab(110); Format(MYDATETIME, "General Date")
  107.    Print "Format(MYDATETIME, "; """"; "Long Date"; """"; ") !! according to your system's long date format !! ==>"; _
  108.         Tab(110); Format(MYDATETIME, "Long Date")
  109.    Print "Format(MYDATETIME, "; """"; "Medium Date"; """"; ") !! appropriate for the language version of the host application !! ==>"; _
  110.         Tab(110); Format(MYDATETIME, "Medium Date")
  111.    Print "Format(MYDATETIME, "; """"; "Short Date"; """"; ") !! using system's short date format !! ==>"; _
  112.         Tab(110); Format(MYDATETIME, "Short Date")
  113. ' Time
  114.    Print "== Time =="
  115.    Print "Format(MYDATETIME, "; """"; "Long Time"; """"; ") !! system's long time format !! ==>"; _
  116.         Tab(110); Format(MYDATETIME, "Long Time")
  117.    Print "Format(MYDATETIME, "; """"; "Medium Time"; """"; ") !! in 12-hour format using hours and minutes and the system AM/PM  !! ==>"; _
  118.         Tab(110); Format(MYDATETIME, "Medium Time")
  119.    Print "Format(MYDATETIME, "; """"; "Short Time"; """"; ") !! 24-hour format !! ==>"; _
  120.         Tab(110); Format(MYDATETIME, "Short Time")
  121.    Print "##########################################################"
  122.    Print "FormatDateTime Function"
  123. ' User-Defined Date/Time Formats
  124.    Print "User-Defined Date/Time Formats"
  125. ' DATE
  126.    Print "== Date =="
  127.    Print "FormatDateTime(MYDATETIME, vbGeneralDate) !! is determined by your system settings !! ==>"; _
  128.         Tab(110); FormatDateTime(MYDATETIME, vbGeneralDate)
  129.    Print "FormatDateTime(MYDATETIME, vbLongDate) !! according to your system's long date format !! ==>"; _
  130.         Tab(110); FormatDateTime(MYDATETIME, vbLongDate)
  131.    Print "FormatDateTime(MYDATETIME, vbShortDate) !! using system's short date format !! ==>"; _
  132.         Tab(110); FormatDateTime(MYDATETIME, vbShortDate)
  133. ' Time
  134.    Print "== Time =="
  135.    Print "FormatDateTime(MYDATETIME, vbLongTime) !! system's long time format !! ==>"; _
  136.         Tab(110); FormatDateTime(MYDATETIME, vbLongTime)
  137.    Print "FormatDateTime(MYDATETIME, vbShortTime) !! 24-hour format !! ==>"; _
  138.         Tab(110); FormatDateTime(MYDATETIME, vbShortTime)
  139. End Sub
Attached Files
File Type: zip Working with date and time_v1.1.2.zip (144.1 KB, 80 views)
Jun 16 '11 #1
Share this Article
Share on Google+