<% response.buffer=true ' ' 0000-2300 hours ' March 12, 2017 - November 5, 2017 ' March 11, 2018 - November 4, 2018 ' March 10, 2019 - November 3, 2019 ' March 8, 2020 - November 1, 2020 ' %> <% Function EatStd() If Hour(Time) < 1 Then Response.Write DateAdd("h", 23, Time) Else Response.Write DateAdd("h", -1, Time) End If End Function ' Function MtStd() If Hour(Time) < 3 Then Response.Write DateAdd("h", 21, Time) Else Response.Write DateAdd("h", -3, Time) End If End Function ' Function PrEst() If Hour(Time) > 22 Then Response.Write DateAdd("h", -23, Time) Else Response.Write DateAdd("h", 1, Time) End If End Function ' Function JonEdt() If Hour(Time) < 6 Then Response.Write DateAdd("h", 18, Time) Else Response.Write DateAdd("h", -6, Time) End If End Function ' Function JonEst() If Hour(Time) < 5 Then Response.Write DateAdd("h", 19, Time) Else Response.Write DateAdd("h", -5, Time) End If End Function ' Function SamEdt() If Hour(Time) < 7 Then Response.Write DateAdd("h", 17, Time) Else Response.Write DateAdd("h", -7, Time) End If End Function ' Function MarEdt() If Hour(Time) < 8 Then Response.Write DateAdd("h", 16, Time) Else Response.Write DateAdd("h", -8, Time) End If End Function ' Function FedEdt() If Hour(Time) < 9 Then Response.Write DateAdd("h", 15, Time) Else Response.Write DateAdd("h", -9, Time) End If End Function ' Function GuamEdt() If Hour(Time) < 10 Then Response.Write DateAdd("h", 14, Time) Else Response.Write DateAdd("h", -10, Time) End If End Function ' Function GuamEst() If Hour(Time) < 11 Then Response.Write DateAdd("h", 13, Time) Else Response.Write DateAdd("h", -11, Time) End If End Function ' If CDate("3/8/2015") < Date and CDate("11/1/2015") > Date or CDate("3/13/2016") < Date and CDate("11/6/2016") > Date or CDate("3/12/2017") < Date and CDate("11/5/2017") > Date or CDate("3/11/2018") < Date and CDate("11/4/2018") Then EastAbbr = "EDT" CentAbbr = "CDT" MtnAbbr = "MDT" PacAbbr = "PDT" AkaAbbr = "AKDT" ZZone = "Daylight Savings" MtnStd1 = "      " MtnStd2 = "  MST  (Mountain Standard Time) - Arizona" HawSty = "color: #E10000; font-weight: bold" HawSt = " - Hawaii" Else EastAbbr = "EST" CentAbbr = "CST" MtnAbbr = "MST" PacAbbr = "PST" AkaAbbr = "AKST" ZZone = "Standard" HawSty = "" HawSt = "" End If %>
<%= MtnStd1 %> <% If ZZone = "Daylight Savings" Then Response.Write MtStd() End If %> <%= MtnStd2 %>
CURRENT  U.S.  TIMES  BY  TIME  ZONE                        HALICE
U.S. Time Zones
Page
      <% Response.Write DateAdd("h", 0, Time) %>  <%= EastAbbr %>   (Eastern <%= ZZone %> Time)
      <% If Hour(Time) < 1 Then Response.Write DateAdd("h", 23, Time) Else Response.Write DateAdd("h", -1, Time) End If %>  <%= CentAbbr %>   (Central <%= ZZone %> Time)
      <% If Hour(Time) < 2 Then Response.Write DateAdd("h", 22, Time) Else Response.Write DateAdd("h", -2, Time) End If %>  <%= MtnAbbr %>   (Mountain <%= ZZone %> Time)
      <% If Hour(Time) < 3 Then Response.Write DateAdd("h", 21, Time) Else Response.Write DateAdd("h", -3, Time) End If %>  <%= PacAbbr %>   (Pacific <%= ZZone %> Time)
      <% If Hour(Time) < 4 Then Response.Write DateAdd("h", 20, Time) Else Response.Write DateAdd("h", -4, Time) End If %>  <%= AkaAbbr %>   (Alaska <%= ZZone %> Time)
      <% If Hour(Time) < 6 Then Response.Write DateAdd("h", 18, Time) Else Response.Write DateAdd("h", -6, Time) End If %>  HST   (Hawaii Standard Time)<%= HawSt %>

CURRENT  U.S.  TERRITORY  TIMES   (No Daylight Savings Time)
      <% If ZZone = "Daylight Savings" Then Response.Write DateAdd("h", 0, Time) Else Response.Write PrEst() End If %>   Puerto Rico, U.S.Virgin Islands
      <% If ZZone = "Daylight Savings" Then Response.Write EatStd() Else Response.Write DateAdd("h", 0, Time) End If %>   Navassa Island, Bajo Nuevo Bank and Serranilla Bank
      <% If ZZone = "Daylight Savings" Then Response.Write JonEdt() Else Response.Write JonEst() End If %>   Johnston Atoll
      <% If ZZone = "Daylight Savings" Then Response.Write SamEdt() Else Response.Write JonEdt() End If %>   American Samoa, Midway Atoll, Palmyra Atoll, Kingman Reef and Jarvis Island
      <% If ZZone = "Daylight Savings" Then Response.Write MarEdt() Else Response.Write SamEdt() End If %>   Marshall Islands, Wake Island, Baker Island and Howland Island
      <% If ZZone = "Daylight Savings" Then Response.Write FedEdt() Else Response.Write GuamEdt() End If %>   Federated States of Micronesia (Cities of Kosrae and Pohnpei)
      <% If ZZone = "Daylight Savings" Then Response.Write GuamEdt() Else Response.Write GuamEst() End If %>   Guam, Northern Mariana Islands and Federated States of Micronesia (Cities of Chuuk and Yap)

This page automatically refreshes every minute, if your browser setting allow it... OR ... refresh this page NOW.

Beginning in 2007, daylight Saving Time begins for most of the United States at 2 a.m. on the second Sunday of March.  Time reverts to standard time at 2 a.m. on the first Sunday of November.

Daylight Saving Time, for the U.S. and its territories, is NOT observed in Hawaii, American Samoa, Guam, Puerto Rico, the Virgin Islands, the Eastern Time Zone portion of the State of Indiana, and by most of Arizona (with the exception of the Navajo Indian Reservation in northeast Arizona).


View a depiction of earth's current day and night areas at Fourmilab North America.
For information about Daylight Savings Time, go to Daylight Saving Time Page.
Copyright © Halice Internet & Computer Services.  All Rights Reserved.