DATE$ - mkilgore/QB64pe GitHub Wiki

The DATE$ function returns the current computer date as a string in the format "mm-dd-yyyy".

Syntax

today$ = DATE$

Description

  • Returns the current computer date in the format "mm-dd-yyyy" (e.g., "12-25-2009").

Examples

Example: Displaying the weekday and current date. 

DEFINT A-Z
FUNCTION WeekDay$ (M, D, Y)          
IF M < 3 THEN M = M + 12: Y = Y - 1  'add 12 to Jan - Feb month, -1 year
C = Y \ 100: Y = Y MOD 100           'split century and year number
S1 = (C \ 4) - (2 * C) - 1           'century leap
S2 = (5 * Y) \ 4                     '4 year leap
S3 = 26 * (M + 1) \ 10               'days in months
WkDay = (S1 + S2 + S3 + D) MOD 7     'weekday total remainder 
IF WkDay < 0 THEN WkDay = WkDay + 7  'Adjust negative results to 0 to 6
SELECT CASE WkDay
   CASE 0: day$ = "Sunday"
   CASE 1: day$ = "Monday"
   CASE 2: day$ = "Tuesday"
   CASE 3: day$ = "Wednesday"
   CASE 4: day$ = "Thursday"
   CASE 5: day$ = "Friday"
   CASE 6: day$ = "Saturday"
END SELECT
WeekDay$ = day$
END FUNCTION '' ''
Code by Ted Weissgerber 
06-02-2010
Today is Wednesday, June 2, 2010

See also

Navigation:
Go to Keyword Reference - Alphabetical
Go to Keyword Reference - By usage
Go to Main WIKI Page
⚠️ **GitHub.com Fallback** ⚠️