Select Quick Dates (Current Hour/Week/Month)

The following class retrieves the starting and end dates for the Current Hour/Day/Week/Month/Year:

Option ExplicitPublic Property Get CurrentHour() As CollectionSet CurrentHour = New CollectionCurrentHour.Add CDate(Date & " " & Format(Now, "HH") & ":00:00"),"StartDateTime"CurrentHour.Add CDate(Date & " " & Format(Now, "HH") & ":59:59"),"EndDateTime"End PropertyPublic Property Get CurrentDay() As CollectionSet CurrentDay = New CollectionCurrentDay.Add CDate(Date), "StartDateTime"CurrentDay.Add CDate(Date & " 23:59:59"), "EndDateTime"End PropertyPublic Property Get CurrentWeek() As CollectionSet CurrentWeek = New CollectionCurrentWeek.Add CDate((Date - Weekday(Date) + 1)), "StartDateTime"CurrentWeek.Add CDate((Date - Weekday(Date) + 7) & " 23:59:59"),"EndDateTime"End PropertyPublic Property Get CurrentMonth() As CollectionSet CurrentMonth = New CollectionCurrentMonth.Add CDate(Month(Date) & "/01/" & Year(Date)), "StartDateTime"CurrentMonth.Add CDate(Month(Date) + 1 & "/01/" & Year(Date) - 1 & "23:59:59"), "EndDateTime"End PropertyPublic Property Get CurrentYear() As CollectionSet CurrentYear = New CollectionCurrentYear.Add CDate("01/01/" & Year(Date)), "StartDateTime"CurrentYear.Add CDate("12/31/" & Year(Date) & " 23:59:59"), "EndDateTime"End PropertyImplementationDim TR As New TimeRangesIf optHour.Value Then   Label1.Caption = TR.CurrentHour("StartDateTime") & " "   Label1.Caption = Label1.Caption & TR.CurrentHour("EndDateTime")End IfIf opttoday.Value Then    Label1.Caption = TR.CurrentDay("StartDateTime") & " "    Label1.Caption = Label1.Caption & TR.CurrentDay("EndDateTime")End IfIf optWeek.Value Then    Label1.Caption = TR.CurrentWeek("StartDateTime") & " "    Label1.Caption = Label1.Caption & TR.CurrentWeek("EndDateTime")End IfIf optMonth.Value Then    Label1.Caption = TR.CurrentMonth("StartDateTime") & " "    Label1.Caption = Label1.Caption & TR.CurrentMonth("EndDateTime")End IfIf optYear.Value Then    Label1.Caption = TR.CurrentYear("StartDateTime") & " "    Label1.Caption = Label1.Caption & TR.CurrentYear("EndDateTime")End If

devx-admin

Share the Post:

Westinghouse Builds Polish Power Plant

Lila Anderson September 22, 2023

Westinghouse Electric Company and Bechtel have come together to establish a formal partnership in order to design and construct Poland’s inaugural nuclear power plant at

EV Industry Hurting For Skilled Labor

Jordan Williams September 22, 2023

The United Auto Workers strike has highlighted the anticipated change towards a future dominated by electric vehicles (EVs), a shift which numerous people think will

Soaring EV Quotas Spark Battle Against Time

Noah Nguyen September 22, 2023

Automakers are still expected to meet stringent electric vehicle (EV) sales quotas, despite the delayed ban on new petrol and diesel cars. Starting January 2023,

Cybersecurity Crisis: Breach Exposes Sensitive Customer Data

Johannah Lopez September 22, 2023

A major security breach recently occurred at a well-known company, leading to unauthorized access to sensitive customer data. Sources within the organization have confirmed that

Tesla Rivals Make Bold Moves

Grace Phillips September 22, 2023

Tesla, a name synonymous with EVs, has consistently been at the forefront of the automotive industry’s electric revolution. The products that Elon Musk has developed

Inside the Climate Battle: Make Sunsets’ Technique

Lila Anderson September 22, 2023

On February 12, 2023, Luke Iseman and Andrew Song from the solar geoengineering firm Make Sunsets showcased their technique for injecting sulfur dioxide (SO₂) into

Westinghouse Builds Polish Power Plant

Lila Anderson September 22, 2023

Westinghouse Electric Company and Bechtel have come together to establish a formal partnership in order to design and construct Poland’s inaugural nuclear power plant at the Lubiatowo-Kopalino site in Pomerania.

EV Industry Hurting For Skilled Labor

Jordan Williams September 22, 2023

The United Auto Workers strike has highlighted the anticipated change towards a future dominated by electric vehicles (EVs), a shift which numerous people think will result in job losses. However,

Soaring EV Quotas Spark Battle Against Time

Noah Nguyen September 22, 2023

Automakers are still expected to meet stringent electric vehicle (EV) sales quotas, despite the delayed ban on new petrol and diesel cars. Starting January 2023, more than one-fifth of automobiles

Cybersecurity Crisis: Breach Exposes Sensitive Customer Data

Johannah Lopez September 22, 2023

A major security breach recently occurred at a well-known company, leading to unauthorized access to sensitive customer data. Sources within the organization have confirmed that the technology team is diligently

Tesla Rivals Make Bold Moves

Grace Phillips September 22, 2023

Tesla, a name synonymous with EVs, has consistently been at the forefront of the automotive industry’s electric revolution. The products that Elon Musk has developed are at the forefront because

Inside the Climate Battle: Make Sunsets’ Technique

Lila Anderson September 22, 2023

On February 12, 2023, Luke Iseman and Andrew Song from the solar geoengineering firm Make Sunsets showcased their technique for injecting sulfur dioxide (SO₂) into the stratosphere as a means

AI Algorithm Predicts Treatment Adherence

Jordan Williams September 22, 2023

Swoop, a prominent consumer health data company, has unveiled a cutting-edge algorithm capable of predicting adherence to treatment in people with Multiple Sclerosis (MS) and other health conditions. Utilizing artificial

Here’s Why You Need to Use JavaScript and Cookies

Noah Nguyen September 22, 2023

In today’s increasingly digital world, websites often rely on JavaScript and cookies to provide users with a more seamless and personalized browsing experience. These key components allow websites to display

Scientists Dimming the Sun: It’s a Good Thing

Johannah Lopez September 22, 2023

Scientists at the University of Bern have been exploring geoengineering methods that could potentially slow down the melting of the West Antarctic ice sheet by reducing sunlight exposure. Among these

The Top Reasons Why Startups Succeed

Macauley Keevins September 22, 2023

Everyone hears the stories. Apple was started in a garage. Musk slept in a rented office space while he was creating PayPal with his brother. Facebook was coded by a

Intel’s Bold Comeback

Grace Phillips September 21, 2023

Intel, a leading figure in the semiconductor industry, has underperformed in the stock market over the past five years, with shares dropping by 4% as opposed to the 176% return

Semiconductor Slump: Rebound on the Horizon

Jordan Williams September 21, 2023

In recent years, the semiconductor sector has faced a slump due to decreasing PC and smartphone sales, especially in 2022 and 2023. Nonetheless, as 2024 approaches, the industry seems to

Elevate Your Content Creation with Amazing Deals

Noah Nguyen September 21, 2023

The latest Tech Deals cater to creators of different levels and budgets, featuring a variety of computer accessories and tools designed specifically for content creation. Enhance your technological setup with

An Easy Way to Learn Web Security

Johannah Lopez September 21, 2023

The Web Security Academy has recently introduced new educational courses designed to offer a comprehensible and straightforward journey through the intricate realm of web security. These carefully designed learning courses

Military Drones: New Mobile Command Centers

Johannah Lopez September 21, 2023

The Air Force Special Operations Command (AFSOC) is currently working on a pioneering project that aims to transform MQ-9 Reaper drones into mobile command centers to better manage smaller unmanned

US and Vietnam: The Next Tech Leaders?

Grace Phillips September 21, 2023

The US and Vietnam have entered into a series of multi-billion-dollar business deals, marking a significant leap forward in their cooperation in vital sectors like artificial intelligence (AI), semiconductors, and

Score Massive Savings on Portable Gaming

Lila Anderson September 21, 2023

This week in tech bargains, a well-known firm has considerably reduced the price of its portable gaming device, cutting costs by as much as 20 percent, which matches the lowest

Unbreakable: Cloudflare One Data Protection Suite

Jordan Williams September 21, 2023

Recently, Cloudflare introduced its One Data Protection Suite, an extensive collection of sophisticated security tools designed to protect data in various environments, including web, private, and SaaS applications. The suite

Cool Drone Tech Unveiled at London Event

Noah Nguyen September 21, 2023

At the DSEI defense event in London, Israeli defense firms exhibited cutting-edge drone technology featuring vertical-takeoff-and-landing (VTOL) abilities while launching two innovative systems that have already been acquired by clients.

Disrupting Electronics with 2D Semiconductors

Grace Phillips September 20, 2023

The rapid development in electronic devices has created an increasing demand for advanced semiconductors. While silicon has traditionally been the go-to material for such applications, it suffers from certain limitations.

Cisco Cuts Jobs To Optimize Growth

Lila Anderson September 20, 2023

Tech giant Cisco Systems Inc. recently unveiled plans to reduce its workforce in two Californian cities, with the goal of optimizing the company’s cost structure. The company has decided to

FAA Approves Drone Deliveries

Jordan Williams September 20, 2023

In a significant development for the US drone industry, drone delivery company Zipline has gained Federal Aviation Administration (FAA) authorization, permitting them to operate drones beyond the visual line of

Prop-Tech Firms Face Mortgage Rate Challenges

Noah Nguyen September 20, 2023

The surge in mortgage rates and a subsequent decrease in home buying have presented challenges for prop-tech firms like Divvy Homes, a rent-to-own start-up company. With a previous valuation of

Microsoft 365 Lighthouse: Powerful Updates

Johannah Lopez September 20, 2023

Microsoft has introduced a new update to Microsoft 365 Lighthouse, which includes support for alerts and notifications. This update is designed to give Managed Service Providers (MSPs) increased control and

Mysterious Website Blockage Sparks Concern

Grace Phillips September 20, 2023

Recently, visitors of a well-known resource website encountered a message blocking their access, resulting in disappointment and frustration among its users. While the reason for this limitation remains uncertain, specialists