An enhanced VB DatePart function

Here is an enhanced version of VB DatePart function: the first parameter is now an enumerated type, so easier to use. DatePartEx is 4-5 times faster than DatePart and supports also two new intervals: MonthName and WeekdayName.

Enum DateTimePart    dtYear    dtQuarter    dtMonth    dtMonthName    dtShortMonthName    dtDay    dtDayOfTheYear    dtWeekday    dtWeekdayName    dtShortWeekdayName    dtWeekOfTheYear    dtHour    dtMinute    dtSecondEnd Enum' Enhanced VB DatePart functionFunction DatePartEx(ByVal Interval As DateTimePart, newDate As Date, _    Optional FirstDayOfWeek As VbDayOfWeek = vbSunday, Optional FirstWeekOfYear _    As VbFirstWeekOfYear = vbFirstJan1) As Variant    ' Select the right and faster date/time function    Select Case Interval        Case dtYear            DatePartEx = Year(newDate)        Case dtQuarter            DatePartEx = DatePart("q", newDate, FirstDayOfWeek, FirstWeekOfYear)        Case dtMonth            DatePartEx = Month(newDate)        Case dtMonthName            DatePartEx = MonthName(Month(newDate), False)        Case dtShortMonthName            DatePartEx = MonthName(Month(newDate), True)        Case dtDay            DatePartEx = Day(newDate)        Case dtDayOfTheYear            DatePartEx = DatePart("y", newDate, FirstDayOfWeek, FirstWeekOfYear)        Case dtWeekday            DatePartEx = Weekday(newDate, FirstDayOfWeek)        Case dtWeekdayName            DatePartEx = Format(newDate, "dddd")        Case dtShortWeekdayName            DatePartEx = Format(newDate, "ddd")        Case dtWeekOfTheYear            DatePartEx = DatePart("ww", newDate, FirstDayOfWeek, _                FirstWeekOfYear)        Case dtHour            DatePartEx = Hour(newDate)        Case dtMinute            DatePartEx = Minute(newDate)        Case dtSecond            DatePartEx = Second(newDate)    End SelectEnd Function

devx-admin

Share the Post:

Tech Layoffs Are Getting Worse Globally

Jordan Williams September 29, 2023

Since the start of 2023, the global technology sector has experienced a significant rise in layoffs, with over 236,000 workers being let go by 1,019

Huawei Dazzles with Electric Vehicles and Wireless Earbuds

Johannah Lopez September 29, 2023

During a prominent unveiling event, Huawei, the Chinese telecommunications powerhouse, kept quiet about its enigmatic new 5G phone and alleged cutting-edge chip development. Instead, Huawei

Digital Banking Needs Cybersecurity

Johannah Lopez September 29, 2023

The banking, financial, and insurance (BFSI) sectors are pioneers in digital transformation, using web applications and application programming interfaces (APIs) to provide seamless services to

Terry Clune’s Fintech Empire

Grace Phillips September 29, 2023

Over the past 30 years, Terry Clune has built a remarkable business empire, with CluneTech at the helm. The CEO and Founder has successfully created

The Role Of AI Within A Web Design Agency?

DevX Editor September 29, 2023

In the digital age, the role of Artificial Intelligence (AI) in web design is rapidly evolving, transitioning from a futuristic concept to practical tools used

The Future of AI and the Investment Opportunities it Presents

DevX Editor September 29, 2023

There is no doubt that modern technology has changed the way we live and work forever. Nowadays, there is a wide array of different types

Tech Layoffs Are Getting Worse Globally

Jordan Williams September 29, 2023

Since the start of 2023, the global technology sector has experienced a significant rise in layoffs, with over 236,000 workers being let go by 1,019 tech firms, as per data

Huawei Dazzles with Electric Vehicles and Wireless Earbuds

Johannah Lopez September 29, 2023

During a prominent unveiling event, Huawei, the Chinese telecommunications powerhouse, kept quiet about its enigmatic new 5G phone and alleged cutting-edge chip development. Instead, Huawei astounded the audience by presenting

Digital Banking Needs Cybersecurity

Johannah Lopez September 29, 2023

The banking, financial, and insurance (BFSI) sectors are pioneers in digital transformation, using web applications and application programming interfaces (APIs) to provide seamless services to customers around the world. Rising

Terry Clune’s Fintech Empire

Grace Phillips September 29, 2023

Over the past 30 years, Terry Clune has built a remarkable business empire, with CluneTech at the helm. The CEO and Founder has successfully created eight fintech firms, attracting renowned

The Role Of AI Within A Web Design Agency?

DevX Editor September 29, 2023

In the digital age, the role of Artificial Intelligence (AI) in web design is rapidly evolving, transitioning from a futuristic concept to practical tools used in design, coding, content writing

The Future of AI and the Investment Opportunities it Presents

DevX Editor September 29, 2023

There is no doubt that modern technology has changed the way we live and work forever. Nowadays, there is a wide array of different types of technologies such as AI

Is Generative AI the Next Internet?

Lila Anderson September 29, 2023

The increasing demand for Generative AI models has led to a surge in its adoption across diverse sectors, with healthcare, automotive, and financial services being among the top beneficiaries. These

The New Surface Laptop Studio 2 Is Nuts

Noah Nguyen September 29, 2023

The Surface Laptop Studio 2 is a dynamic and robust all-in-one laptop designed for creators and professionals alike. It features a 14.4″ touchscreen and a cutting-edge design that is over

GPU-Accelerated 5G in Japan

Johannah Lopez September 28, 2023

NTT DOCOMO, a global telecommunications giant, is set to break new ground in the industry as it prepares to launch a GPU-accelerated 5G network in Japan. This innovative approach will

AI Journalism: Balancing Integrity and Innovation

Grace Phillips September 28, 2023

An op-ed, produced using Microsoft’s Bing Chat AI software, recently appeared in the St. Louis Post-Dispatch, discussing the potential concerns surrounding the employment of artificial intelligence (AI) in journalism. These

Big Deal Days Extravaganza

Lila Anderson September 28, 2023

The highly awaited Big Deal Days event for October 2023 is nearly here, scheduled for the 10th and 11th. Similar to the previous year, this autumn sale has already created

Cisco Splunk Deal Sparks Tech Acquisition Frenzy

Jordan Williams September 28, 2023

Cisco’s recent massive purchase of Splunk, an AI-powered cybersecurity firm, for $28 billion signals a potential boost in tech deals after a year of subdued mergers and acquisitions in the

Iran’s Jet-Propelled Drone Reshapes Power Balance

Jordan Williams September 28, 2023

Iran has recently unveiled a jet-propelled variant of its Shahed series drone, marking a significant advancement in the nation’s drone technology. The new drone is poised to reshape the regional

Did the Overshoot Commission Shoot Down Geoengineering?

Johannah Lopez September 28, 2023

The Overshoot Commission has recently released a comprehensive report that discusses the controversial topic of Solar Geoengineering, also known as Solar Radiation Modification (SRM). The Commission’s primary objective is to

Revolutionizing Remote Learning for Success

Noah Nguyen September 28, 2023

School districts are preparing to reveal a substantial technological upgrade designed to significantly improve remote learning experiences for both educators and students amid the ongoing pandemic. This major investment, which

SABERS Batteries Transforming Industries

Grace Phillips September 28, 2023

Scientists John Connell and Yi Lin from NASA’s Solid-state Architecture Batteries for Enhanced Rechargeability and Safety (SABERS) project are working on experimental solid-state battery packs that could dramatically change the

How Much Does It Cost to Build a Website?

DevX Editor September 28, 2023

Are you wondering how much it costs to build a website? The approximated cost is based on several factors, including which add-ons and platforms you choose. For example, a self-hosted

Battery Startups Attract Billion-Dollar Investments

Lila Anderson September 28, 2023

In recent times, battery startups have experienced a significant boost in investments, with three businesses obtaining over $1 billion in funding within the last month. French company Verkor amassed $2.1

Microsoft Copilot: A Suit of AI Features

Noah Nguyen September 28, 2023

Microsoft’s latest offering, Microsoft Copilot, aims to revolutionize the way we interact with technology. By integrating various AI capabilities, this all-in-one tool provides users with an improved experience that not

AI Girlfriend Craze Threatens Relationships

Grace Phillips September 27, 2023

The surge in virtual AI girlfriends’ popularity is playing a role in the escalating issue of loneliness among young males, and this could have serious repercussions for America’s future. A

Senser is Changing AIOps

Lila Anderson September 27, 2023

Senser, an AIOps platform based in Tel Aviv, has introduced its groundbreaking AI-powered observability solution to support developers and operations teams in promptly pinpointing the root causes of service disruptions

Check Out The New Bebob Battery Charging Stations

Noah Nguyen September 27, 2023

Bebob has introduced new 4- and 8-channel battery charging stations primarily aimed at rental companies, providing a convenient solution for clients with a large quantity of batteries. These wall-mountable and

Malaysia’s Dual 5G Network Growth

Jordan Williams September 27, 2023

On Wednesday, Malaysia’s Prime Minister Anwar Ibrahim announced the country’s plan to implement a dual 5G network strategy. This move is designed to achieve a more equitable incorporation of both

Pentagon’s Bold Race for Advanced Drones

Johannah Lopez September 27, 2023

The Pentagon has recently unveiled its ambitious strategy to acquire thousands of sophisticated drones within the next two years. This decision comes in response to Russia’s rapid utilization of airborne

You Need to See the New Microsoft Updates

Johannah Lopez September 27, 2023

Microsoft has recently announced a series of new features and updates across their applications, including Outlook, Microsoft Teams, and SharePoint. These new developments are centered around improving user experience, streamlining