I have a var filled with 20100405 is possible to check if the datae is really a monday?
Tks.
![]() |
Patch reliability is unclear. Unless you have an immediate, pressing need to install a specific patch, don't do it. |
SIGN IN | Not a member? | REGISTER | PLUS MEMBERSHIP |
-
Control if date is really a Monday
Home » Forums » AskWoody support » Productivity software by function » MS Excel and spreadsheet help » Control if date is really a Monday
- This topic has 5 replies, 3 voices, and was last updated 15 years, 1 month ago.
AuthorTopicViewing 2 reply threadsAuthorReplies-
WSAndrewKKWalker
AskWoody LoungerApril 19, 2010 at 6:22 am #1219299I am sure there are several solutions to this
Here is a sub with an example
You could make it into a Function and pass the Date
Code:Sub CheckDate() Dim varDate, varRealDate, strDay As String varDate = "20100405" varRealDate = DateSerial(Left(varDate, 4), Mid(varDate, 5, 2), Right(varDate, 2)) strDay = Format(varRealDate, "ddd") 'You may need to change this to use the Local Language equivalent of Monday If strDay = "Mon" Then MsgBox "Monday" Else MsgBox "Not a Monday " & strDay End If End Sub
OR as a Function that returns True or False
Code:Function CheckMonday(varDate) As Boolean Dim varRealDate, strDay As String Application.Volatile varRealDate = DateSerial(Left(varDate, 4), Mid(varDate, 5, 2), Right(varDate, 2)) strDay = Format(varRealDate, "ddd") 'You may need to change this to use the Local Language equivalent of Monday If strDay = "Mon" Then CheckMonday = True Else CheckMonday = False End If End Function
-
WSsal21
AskWoody LoungerApril 19, 2010 at 6:25 am #1219300I am sure there are several solutions to this
Here is a sub with an example
You could make it into a Function and pass the Date
Code:Sub CheckDate() Dim varDate, varRealDate, strDay As String varDate = "20100405" varRealDate = DateSerial(Left(varDate, 4), Mid(varDate, 5, 2), Right(varDate, 2)) strDay = Format(varRealDate, "ddd") 'You may need to change this to use the Local Language equivalent of Monday If strDay = "Mon" Then MsgBox "Monday" Else MsgBox "Not a Monday " & strDay End If End Sub
OR as a Function that returns True or False
Code:Function CheckMonday(varDate) As Boolean Dim varRealDate, strDay As String Application.Volatile varRealDate = DateSerial(Left(varDate, 4), Mid(varDate, 5, 2), Right(varDate, 2)) strDay = Format(varRealDate, "ddd") 'You may need to change this to use the Local Language equivalent of Monday If strDay = "Mon" Then CheckMonday = True Else CheckMonday = False End If End Function
work perfect!
sorry but how to calculate datediff in days between 20100405 and 20100409 …in this case is 5
Tks.
-
-
WSAndrewKKWalker
AskWoody LoungerApril 19, 2010 at 6:42 am #1219301Could try this
Function top and then just an example of using it in a sub below
Note it also works on a sheet as a function
Code:Function FindDateDiffDays(varStart, varEnd) As Long Dim lngDiff As Long, dteStart As Date, dteEnd As Date 'NOTE there is NO error trapping in this Application.Volatile dteStart = DateSerial(Left(varStart, 4), Mid(varStart, 5, 2), Right(varStart, 2)) dteEnd = DateSerial(Left(varEnd, 4), Mid(varEnd, 5, 2), Right(varEnd, 2)) lngDiff = (dteEnd - dteStart) + 1 FindDateDiffDays = lngDiff End Function Sub ExampleDD() Dim varStart, varEnd, lngDays As Long varStart = 20100405 varEnd = 20100409 lngDays = FindDateDiffDays(varStart, varEnd) MsgBox "Difference is.... " & lngDays End Sub
-
WSsal21
AskWoody LoungerApril 19, 2010 at 7:18 am #1219308Could try this
Function top and then just an example of using it in a sub below
Note it also works on a sheet as a function
Code:Function FindDateDiffDays(varStart, varEnd) As Long Dim lngDiff As Long, dteStart As Date, dteEnd As Date 'NOTE there is NO error trapping in this Application.Volatile dteStart = DateSerial(Left(varStart, 4), Mid(varStart, 5, 2), Right(varStart, 2)) dteEnd = DateSerial(Left(varEnd, 4), Mid(varEnd, 5, 2), Right(varEnd, 2)) lngDiff = (dteEnd - dteStart) + 1 FindDateDiffDays = lngDiff End Function Sub ExampleDD() Dim varStart, varEnd, lngDays As Long varStart = 20100405 varEnd = 20100409 lngDays = FindDateDiffDays(varStart, varEnd) MsgBox "Difference is.... " & lngDays End Sub
NATURALLY WORK!
Tks.
-
-
RetiredGeek
AskWoody_MVPApril 19, 2010 at 8:35 pm #1219417Another option w/o VBA:
Paste: =WEEKDAY(DATE(LEFT(A1,4),MID(A1,5,2),RIGHT(A1,2)))=2
into a NAME called isMonday see screen capture below
Then use formula =isMonday (will return True or False)Assumptions:
1. Formula (=isMonday) is in cell immediately to the right of the one holding the date string in yyyymmdd format.Note: screen capture below shows formulas B1 the inline test, B2 Named formula in use. Both return True when Monday.
RG
Viewing 2 reply threads -

Plus Membership
Donations from Plus members keep this site going. You can identify the people who support AskWoody by the Plus badge on their avatars.
AskWoody Plus members not only get access to all of the contents of this site -- including Susan Bradley's frequently updated Patch Watch listing -- they also receive weekly AskWoody Plus Newsletters (formerly Windows Secrets Newsletter) and AskWoody Plus Alerts, emails when there are important breaking developments.
Get Plus!
Welcome to our unique respite from the madness.
It's easy to post questions about Windows 11, Windows 10, Win8.1, Win7, Surface, Office, or browse through our Forums. Post anonymously or register for greater privileges. Keep it civil, please: Decorous Lounge rules strictly enforced. Questions? Contact Customer Support.
Search Newsletters
Search Forums
View the Forum
Search for Topics
Recent Topics
-
Microsoft: Troubleshoot problems updating Windows
by
Alex5723
47 minutes ago -
Woman Files for Divorce After ChatGPT “Reads” Husband’s Coffee Cup
by
Alex5723
55 minutes ago -
Moving fwd, Win 11 Pro,, which is best? Lenovo refurb
by
Deo
1 hour, 2 minutes ago -
DBOS Advanced Network Analysis
by
Kathy Stevens
10 hours, 45 minutes ago -
Microsoft Edge Launching Automatically?
by
healeyinpa
1 hour, 10 minutes ago -
Google Chrome to block admin-level browser launches for better security
by
Alex5723
13 hours, 25 minutes ago -
iPhone SE2 Stolen Device Protection
by
Rick Corbett
5 hours, 41 minutes ago -
Some advice for managing my wireless internet gateway
by
LHiggins
1 hour, 22 minutes ago -
NO POWER IN KEYBOARD OR MOUSE
by
HE48AEEXX77WEN4Edbtm
7 hours, 38 minutes ago -
A CVE-MITRE-CISA-CNA Extravaganza
by
Nibbled To Death By Ducks
22 hours, 55 minutes ago -
Sometimes I wonder about these bots
by
Susan Bradley
19 hours, 12 minutes ago -
Does windows update component store “self heal”?
by
Mike Cross
9 hours, 15 minutes ago -
Windows 11 Insider Preview build 27858 released to Canary
by
joep517
1 day, 12 hours ago -
Pwn2Own Berlin 2025: Day One Results
by
Alex5723
1 day, 12 hours ago -
Windows 10 might repeatedly display the BitLocker recovery screen at startup
by
Susan Bradley
30 minutes ago -
Windows 11 Insider Preview Build 22631.5409 (23H2) released to Release Preview
by
joep517
1 day, 15 hours ago -
Windows 10 Build 19045.5912 (22H2) to Release Preview Channel
by
joep517
1 day, 15 hours ago -
Kevin Beaumont on Microsoft Recall
by
Susan Bradley
1 day, 4 hours ago -
The Surface Laptop Studio 2 is no longer being manufactured
by
Alex5723
1 day, 23 hours ago -
0Patch, where to begin
by
cassel23
1 day, 17 hours ago -
CFPB Quietly Kills Rule to Shield Americans From Data Brokers
by
Alex5723
2 days, 13 hours ago -
89 million Steam account details just got leaked,
by
Alex5723
2 days, 1 hour ago -
KB5058405: Linux – Windows dual boot SBAT bug, resolved with May 2025 update
by
Alex5723
2 days, 21 hours ago -
A Validation (were one needed) of Prudent Patching
by
Nibbled To Death By Ducks
2 days, 12 hours ago -
Master Patch Listing for May 13, 2025
by
Susan Bradley
2 days ago -
Installer program can’t read my registry
by
Peobody
16 hours, 48 minutes ago -
How to keep Outlook (new) in off position for Windows 11
by
EspressoWillie
2 days, 10 hours ago -
Intel : CVE-2024-45332, CVE-2024-43420, CVE-2025-20623
by
Alex5723
2 days, 18 hours ago -
False error message from eMClient
by
WSSebastian42
3 days, 9 hours ago -
Awoke to a rebooted Mac (crashed?)
by
rebop2020
3 days, 18 hours ago
Recent blog posts
Key Links
Want to Advertise in the free newsletter? How about a gift subscription in honor of a birthday? Send an email to sb@askwoody.com to ask how.
Mastodon profile for DefConPatch
Mastodon profile for AskWoody
Home • About • FAQ • Posts & Privacy • Forums • My Account
Register • Free Newsletter • Plus Membership • Gift Certificates • MS-DEFCON Alerts
Copyright ©2004-2025 by AskWoody Tech LLC. All Rights Reserved.