請問怎么用vb點虐 調(diào)出年月日

用日期函數(shù)day()可獲得當前日期,time()可獲得當前系統(tǒng)時間.

創(chuàng)新互聯(lián)是專業(yè)的洪江管理區(qū)網(wǎng)站建設(shè)公司，洪江管理區(qū)接單;提供做網(wǎng)站、成都網(wǎng)站建設(shè),網(wǎng)頁設(shè)計,網(wǎng)站設(shè)計,建網(wǎng)站,PHP網(wǎng)站建設(shè)等專業(yè)做網(wǎng)站服務(wù);采用PHP框架,可快速的進行洪江管理區(qū)網(wǎng)站開發(fā)網(wǎng)頁制作和功能擴展;專業(yè)做搜索引擎喜愛的網(wǎng)站,專業(yè)的做網(wǎng)站團隊,希望更多企業(yè)前來合作!

dim CurDay as string

dim CurTime as string

curday=day()

curtime=time()

Label1.Caption = Date

就能在Label16顯示當前日期

now 這個函數(shù)可以獲得當前系統(tǒng)時間（包括年月日，小時分鐘秒）

而

year()

month()

day()

等等則可以從now返回的值中分別提取年，月，日的信息

VB.NET的陽歷與農(nóng)歷轉(zhuǎn)換的算法

根據(jù)經(jīng)驗, 這個算法非常復(fù)雜. 經(jīng)過查找，終于得到一些資料, 在此愿與大家分享。 首先陰歷以月為基本單位，一個月以新月出現(xiàn)的那一天為始直至下一個新月出現(xiàn)的前一天。 由于月亮公轉(zhuǎn)的周期介于29到30天之間，陰歷的一個月也就由新月出現(xiàn)時刻的早晚或是29天或是30天。 大月為30天，小月為29天。 與陽歷不同的是，大小月在不同的年中不固定。 如春節(jié)的前一天常稱為大年三十，但有不少年如2000年的陰歷十二月只有29天。 由于十二個月的時間較陽歷年即地球繞太陽公轉(zhuǎn)一周的時間短11天左右. 為了使陰歷年與陽歷年保持相對穩(wěn)定，每隔兩三年就需要加入一個閏月。 大約每十九年要加入七個閏月。 而二十四節(jié)氣則是由地球在繞太陽公轉(zhuǎn)的軌道上的位置確定的。 以每年的冬至為始，每15度為一個節(jié)氣。 是故二十四節(jié)氣在陽歷的每月中有大概固定的日期。 古時以二十四節(jié)氣指導(dǎo)農(nóng)耕，這就是陰歷又稱農(nóng)歷的原因。 其中陽歷下半月的十二個節(jié)氣又稱為中氣。 中氣出現(xiàn)的時刻和閏月的確定有直接的關(guān)系。 陰歷的計算有下列四條規(guī)則： 1．所有新月和節(jié)氣出現(xiàn)的時刻的計算以東經(jīng)120度即東八區(qū)標準時為準。 但計算1929年以前的陰歷時應(yīng)以北京即東經(jīng)116度25分的當?shù)貢r為準。 2．新月出現(xiàn)的一天為一個月的第一天。 如某個節(jié)氣的出現(xiàn)時刻也在這一天，則不論該節(jié)氣的出現(xiàn)時刻是否比新月晚，一律算落入新的一個月中。 3．每年的冬至總是落在這年的十一月中。 從一年的冬至的第二天起到下一年冬至這一天止的這段時間稱為一歲。 如一歲中有十三個新月出現(xiàn)，則這一歲為閏歲，要加入一個閏月。 4．閏歲中第一個沒有中氣的月為閏月。 因為一歲中只有十二個中氣，所以閏歲中至少有一個月沒有中氣，也存在有兩個月沒有中氣的可能性。 但這種情況下只有第一個沒有中氣的月為閏月。 閏月的前一個月為幾月則該閏月稱為閏幾月。 根據(jù)以上信息, 我們知道農(nóng)歷是根據(jù)天文觀測進行指定的（也許可以在天文學(xué)的書上找到說明）。 為了簡化轉(zhuǎn)換計算, 很多程序人員設(shè)計了基于"時間段內(nèi)查表"方法的例程. 更具體的說明和源碼請參考下面這些資料：

vb點虐 中怎么獲取日期中的年月日時分秒

Dim ThisDay As String = Format(Now, "yyyy-MM-dd") '獲得當前日期字符串

Dim ThisDateTime As DateTime = Convert.ToDateTime(ThisDay) '當前日期轉(zhuǎn)換成DateTime

Dim ThisWeekDay As Integer = ThisDateTime.DayOfWeek '獲得當前日期是星期幾

Dim differadd As Integer = 1 - ThisWeekDay '相差的天數(shù)（星期1與當前星期幾相差的天數(shù)）

Dim MyAdd As New TimeSpan(differadd, 0, 0, 0)

Dim MyYear As Integer = Format(Now, "yyyy") '獲取當前日期的年份

Dim MyMonth As Integer = Format(Now, "MM") '獲取當前日期的月份

Dim MyDay As Integer = Format(Now, "dd") '獲取當前日期是幾號

Dim MyToday As DateTime = New DateTime(MyYear, MyMonth, MyDay)

Dim Yourday As DateTime = MyToday.Add(MyAdd)

MsgBox("本周星期一的日期是：" Yourday)

vb點虐 獲取年，月，日，時，分，秒

不是 有 函數(shù)嘛？

now() 就是 吧

取得 后 再 分離出你所需的，分別賦值 就行了，當然 還是 有 函數(shù)的