Visual Basic Tarih ve Saat Fonksiyonlar

Visual Basic Tarih ve Saat FonksiyonlarBugün sizlere Visual Basic programında Tarih ve Saat Fonksiyonları'nı anlatacağım..

Visual Basic Tarih Fonksiyonu: 

Geçerli tarih ve / veya saat başvurmak için VB anahtar kelimeleri hatırlayalım:

Tarih Geçerli tarihi döndürür

Saat Geçerli zamanını döndürür

Aşağıdaki örneklerde, geçerli Tarih / Saat (Şimdi), 31 Ağustos 2001 Cuma varsayalım 09:15:20 de.

Aşağıdaki fonksiyonları bir Tarih / Saat değeri, sırasıyla, tarih bölümü ve saat bölümünü göreceğiz.

Fonksiyon	Tanımlama
DateValue	Saat bölümünün "sıfırlanmasını" ile, Tarih / Saat değerinden tarih kısmını verir.(Not: Bir tarih / saat değişkenin vb6 saat bölümü "sıfırlanmasını" demek, zaman 12:00 olarak yorumlanır.) Örnek: Tarihi Dim dtmTest dtmTest = DateValue (Şimdi) Bu noktada, dtmTest tarihinden kısmı 0 bir saat bölümü (12:00 AM,, 2001/08/31 olduğu gece yarısı).
TimeValue	Tarih bölümünün "sıfırlanmasını" ile, Tarih / Saat değeri kısmından zamanı verir. (Not: Bir tarih / saat değişken "sıfırlanmasını" demek, tarihin aslında 30 Aralık 1899 olarak yorumlanır.) Örnek: Tarihi Dim dtmTest dtmTest = TimeValue (Şimdi) Bu noktada, dtmTest saat bölümünü 0 (12/30/1899) bir tarih bölümü ile, 09:15:20 olduğunu.

Aşağıdaki fonksiyonları bir VB6 tarih belirli bir kısmını izole etmek için kullanılır:

Fonksiyon	Tanımlama
Iş günü	1 1 Pazar ve 7 Cumartesi olan belirli bir tarih haftanın gününü gösteren 7, bir sayı döndürür. Örnek: intDOW = Hafta içi (Şimdi) 'intDOW = 6 Not: Kod haftanın bir günü başvurmak için gerektiğinde, VB kodlanmış değerleri 1-7 yerine kullanılabilir sabitleri yerleşik bir dizi vardır: Sabit Değer vbSunday 1 vbMonday 2 vbTuesday 3 vbWednesday 4 vbThursday 5 vbFriday 6 vbSaturday 7

Fonksiyon	Tanımlama
WeekdayName	7 ile değeri 1 ile bir sayısal argüman verilen gün ismi ("Sunday" thru "Cumartesi") içeren bir dizeye döndürür. Örnek: strDOW = WeekdayName (6) 'strDOW = "Cuma" WeekdayName fonksiyonu hafta içi adını kısaltmak için olup olmadığını gösteren isteğe bağlı, ikinci argüman (Boolean) alır. Varsayılan olarak, ikinci argüman kısaltmak ve tam adı dönmeyen, yani False olan. Gerçek ise(True), gün ismi ilk üç harfi iade edilecektir: Örnek: strDOW = WeekdayName (6, Gerçek) 'strDOW = "Cum" Belirli bir tarih gün ismi almak için WeekdayName işlev içinde iç içe Hafta içi fonksiyonu olabilir: Örnek: strDOW = WeekdayName (Hafta içi (Şimdi)) 'strDOW = "Cuma"
Ay	Belirli bir tarihi ayı kısmı gösteren 1 ile 12 arasında bir sayı verir. Örnek: intMonth = Ay (Şimdi) 'intMonth = 8
MonthName	12 ile değeri 1 ile bir sayısal argüman verilen ay adı ("January" thru "Aralık"), içeren bir diziye döndürür. Örnek: strMoName = MonthName (8) 'strMoName = "Ağustos" MonthName fonksiyonu ay adını kısaltmak için olup olmadığını gösteren isteğe bağlı, ikinci argüman (Boolean) alır. Varsayılan olarak, ikinci argüman kısaltma ve tam adı dönmeyen, yani False. Gerçek ise, ayın adının ilk üç harfini iade edilecektir: Örnek: strMoName = MonthName (8, Gerçek) 'strMoName = "üzerine, Ağu" Sen MonthName işlev içinde Ay işlevi, belirli tarih ay adı almak için yuva yapabilirsin Örnek: strMoName = MonthName (Ay (Şimdi)) 'strMoName = "Ağustos"
Gün	Belirli bir tarihin gün kısmını gösteren 1 ile 31 arası bir sayı verir. Örnek: intDay = Gün (Şimdi) 'intDay = 31
Yıl	100, belirli bir tarih yıl kısmı gösteren 9999'a kadar bir sayı verir. Örnek: intYear = Yıl (Şimdi) 'intYear 2001 =

Aşağıdaki fonksiyonları bir zamanın belirli bir kısmını izole etmek için kullanılır:

Fonksiyon	Tanımlama
Saat	Günün saati temsil eden 0 ile 23 arasında bir tam sayı belirten bir tamsayı döndürür. Örnek: intHour = Saat (Şimdi) 'intHour = 21 (9 pm için)
Dakika	Saat dakika temsil eden 0 ile 59 arasında bir tam sayı belirten bir tamsayı döndürür. Örnek: intMinute = Dakika (Şimdi) 'intMinute = 15
Ikinci	Dakika, ikinci temsil eden 0 ile 59 arasında bir tam sayı belirten bir tamsayı döndürür. Örnek: intSecond = İkinci (Şimdi) 'intSecond = 20

Şimdiye kadar gösterilen tarih fonksiyonları göstermek için, bir "Deneyin" projesi kuralım ve cmdTryIt_Click olay aşağıdaki kodu yerleştirelim

Private Sub cmdTryIt_Click ()

Sekme (30),, Şimdi: "Şimdi" Yazdır

(Şimdi) DateValue; Tab (30),: "DateValue kullanma" Yazdır

(Şimdi) TimeValue; Tab (30),: "TimeValue kullanma" Yazdır

(Şimdi) Hafta içi; Tab (30),: "Hafta içi kullanma" Yazdır

(Hafta içi (Üye)) WeekdayName; Tab (30),: "WeekdayName kullanma" Yazdır

Sekme (30),, WeekdayName (Hafta içi (Şimdi), Gerçek): "kullanarak WeekdayName (abbrev.)" Yazdır

(Şimdi) Ay; Tab (30),: "Ay kullanma" Yazdır

(Ay (Üye)) MonthName; Tab (30),: "MonthName kullanma" Yazdır

Sekme (30),, MonthName (Ay (Şimdi), Gerçek): "(abbrev.) MonthName kullanma" Yazdır

(Şimdi) Gün; Tab (30),: "Gün kullanma" Yazdır

(Şimdi) Yıl; Tab (30),: "Yıl kullanma" Yazdır

"Saat Kullanımı:" Yazdır; Tab (30); Saat (Şimdi)

Sekme (30);; Dakika (Şimdi): "kullanarak Dakika" Yazdır

(30) Tab,, İkinci (Şimdi): "İkinci kullanma" Yazdır

End Sub

Projeyi çalıştırın ve "Deneyin" butonuna tıklayın. Çıktı aşağıdaki gibi olmalıdır:

DatePart İşlevi

Genel DatePart işlevi, belirli tarih / saat değerinin belirtilen parçası içeren bir tamsayı döndürür. Bu nedenle, hafta içi, Ay, Gün, Yıl, Saat, Dakika, ve İkinci fonksiyonların işlevselliğini içerir. Buna ek olarak, belirli bir tarihte (1 ile 4), "Julian" tarihi (1 366 için yılın gün) ve hafta numarası (53 ile 1) bir çeyrek elde etmek için kullanılabilir.

Sözdizimi:

DatePart (aralık, tarih [, haftanınilkgünü [, yılınilkhaftası]])

DatePart işlevi sözdizimi şu bölümlerden oluşur:

Bölüm	Tanımlama
aralık	Gerekli. İade etmek istediğiniz zaman aralığı olan dize ifadesi. Dize ifadesi aşağıdakilerden herhangi biri olabilir: Ifade Tanımlama Değerler olası aralığı "Yyyy" Yıl 100-9999 "Q" Çeyrek 1-4 "M" Ay 1-12 "Y" Yılın günü 1-366 (bir "Jülyen" tarih) "D" Gün 1-31 "W" Iş günü 1-7 "Ww" Hafta 1-53 "H" Saat 0-23 "N" Dakika 0 ila 59 "S" Ikinci 0 ila 59
tarih	Gerekli. Değerlendirmek istediğiniz bu değer.
haftanınilkgünü	İsteğe bağlı. Haftanın ilk günü belirten bir sabit. Belirtilmezse Pazar varsayılır.
yılınilkhaftası	İsteğe bağlı. Yılın ilk haftası belirten bir sabit. Belirtilmemiş ise, birinci hafta Ocak 1 oluştuğu hafta olduğu varsayılır.

DatePart göstermek için, bir "Deneyin" projesi kurun ve cmdTryIt_Click olayı için aşağıdaki kodu yerleştirin:

Private Sub cmdTryIt_Click ()

Yazdır "Güncel tarih / zaman:"; _

(Şimdi, "Uzun Tarih") $ biçimlendirin; _

SPC (1); _

(Şimdi, "Long Time") $ Format

Yazdır "*** DatePart işlev örnekleri ***"

"'Yyyy' kullanmak:" Baskı; Tab (20); DatePart (Şimdi "yyyy",)

"'Q' kullanmak:" Baskı; Tab (20), DatePart ("q", Şimdi)

"'M' kullanmak:" Baskı; Tab (20); DatePart (Şimdi "m",)

"'Y' kullanmak:" Baskı; Tab (20), DatePart ("y", Şimdi)

"'D' kullanarak:" Baskı; Tab (20), DatePart ("d", Şimdi)

"'W' kullanmak:" Baskı; Tab (20); DatePart (Şimdi "w",)

"'Ww' kullanmak:" Baskı; Tab (20), DatePart ("ww", Şimdi)

"'H' kullanarak:" Baskı; Tab (20), DatePart ("h", Şimdi)

"'N' kullanarak:" Baskı; Tab (20); DatePart (Şimdi "n",)

"'S' kullanarak:" Baskı; Tab (20), DatePart ("s", Şimdi)

End Sub

Projeyi çalıştırın ve "Deneyin" butonuna tıklayın. Çıktı aşağıdakine benzer görünmelidir:

Bir tarih veya saat Değeri Form ile Birlikte Ayrı Numaraları birleşiyor

Önceki örneklerde, bir tarih / saat değeri parçaları izole etmek için yollar gördüm.Eğer "başka bir yol" gitmek gerekirse? DateSerial ve TimeSerial: farklı değişkenleri bir tarih / saat değerinin ayrı parçalar ve bir tarih veya saat formüle onları bir araya istiyorsanız, bunu yapmak için kullanabileceğiniz iki işlevi vardır.

Yıl, ay ve gün sırasıyla: DateSerial üç sayısal argüman alır. Bu, bu değerlere dayalı bir tarihi verir. 

Örnek:

As Integer Dim intYear

As Integer Dim intMonth

As Integer Dim intDay

Tarihi Dim dtmNewDate

intYear 2001 =

intMonth = 9

intDay = 2

dtmNewDate = DateSerial (intYear, intMonth, intDay)

'2001/09/02 döner

Saat, dakika ve saniye sırasıyla: TimeSerial üç sayısal argüman alır. Bu, bu değerlere dayalı bir zaman verir.

Örnek:

As Integer Dim intHour

As Integer Dim intMinute

As Integer Dim intSecond

Tarihi Dim dtmNewTime

intHour = 11

intMinute = 34

intSecond = 44

dtmNewTime = TimeSerial (intHour, intMinute, intSecond)

'11:34:44 (AM) döner