FC2ブログ
ブログパーツ アクセスランキング
インフラ情報まとめ
アクセスランキング
サーバー、クライアント関係の構築、運用等のまとめ書きです。旧名 ほぷぅ(。・ω・)ノPCまとめ

日付と時刻




にほんブログ村 IT技術ブログ IT技術メモへ

日付と時刻 システムの日付と時刻を求めたい Now

------------------------------------------------

MsgBox("現在の日付と時刻:" & Now & vbCR &_
year(Now) & "年" &_
Month(Now) & "月" & Day(Now) & "日" &_
Hour(Now) & "時" & Minute(Now) & "分" &_
Second(Now) & "秒")

------------------------------------------------


日付と時刻 システムの日付を参照したい Date

------------------------------------------------

MsgBox("現在の日付:" & Date & vbCR &_
year(Date) & "年" &_
Month(Date) & "月" &_
Day(Date) & "日" )
------------------------------------------------


日付と時刻 システムの現在時刻を求めたい Time

------------------------------------------------

MsgBox("現在の時刻:" & Time & vbCR &_
Hour(Time) & "時" &_
Minute(Time) & "分" &_
Second(Time) & "秒" )

------------------------------------------------


日付と時刻 日付の月の部分を求めたい Month

------------------------------------------------

'日付を表す式が有効な値ではない場合,Null値を返します


MsgBox("今月は" & Month(Date) & "月")

------------------------------------------------


日付と時刻 日付の月を表す文字列を求めたい MonthName

------------------------------------------------

'MonthName(1[,2])
'1 月を表す式
'2 短縮した表記にするか(省略可=true)


i = Month(Date)
MsgBox("今月は => " & MonthName(i) & vbCR &_
"月省略 => " & MonthName(i,True))

------------------------------------------------


日付と時刻 日付の日の部分を求めたい Day

------------------------------------------------

'日付を表す式が有効な値ではない場合,Null値を返します


MsgBox("今日は" & Day(Date) & "日")

------------------------------------------------


日付と時刻 曜日を調べたい Weekday

------------------------------------------------

'Weekday(1[,2])
'曜日を表す1(日曜)-7(土曜)の整数値を返す
'日付を表す式が有効な値ではない場合,Null値を返します
'年を省略した場合には(例:"4/5")現在の年について評価される


myDate = Array("Sun","Mon","Tue","Wed","Thu","Fri","Sat")
i = Weekday(Date) - 1
MsgBox(Date & " " & myDate(i))

------------------------------------------------


日付と時刻 曜日を表す文字列を求めたい WeekdayName

------------------------------------------------

'WeekdayName(1[,2[,3]])
'1 日付を表す式
'2 曜日を省略するか(省略可)=false:曜日は省略されない
'3 週の一日目を表す定数(省略可)

'曜日を表す1(日曜)-7(土曜)の整数値を返す
'日付を表す式が有効な値ではない場合,Null値を返します
'年を省略した場合には(例:"4/5")現在の年について評価される


i = Weekday(Date)
MsgBox(Date & " " & WeekdayName(i) & vbCR &_
Date & " " & WeekdayName(i,True))

------------------------------------------------


日付と時刻 時刻の時の部分を求めたい Hour

------------------------------------------------

MsgBox("現在は:" & Hour(Time) & "時です")

------------------------------------------------


日付と時刻 時刻の分の部分を求めたい Minute

------------------------------------------------

MsgBox("現在は:" & Minute(Time) & "分です") '0~59までの整数値を返す

------------------------------------------------


日付と時刻 時刻の秒の部分を求めたい Second

------------------------------------------------

MsgBox("現在は:" & Second(Time) & "秒です") '0~59までの整数値を返す

------------------------------------------------


日付と時刻 現在の時刻を0時として何秒経過したかを返す Timer

------------------------------------------------

MsgBox("start")
stime = Timer
MsgBox("stop")
etime = Timer
MsgBox("start=" & etime & ",stop=" & stime & vbCR &_
etime-stime & "秒です")
------------------------------------------------


日付と時刻 指定した日時の一部を参照する DatePart

------------------------------------------------

'DatePart(1,2[,3[,4]])
'1 時間間隔の単位
'2 日時を表す式
'3 週の一日目を表す定数
'4 年の一週目を表す定数


'日付から月の部分を時刻から時の部分を抜き出して表示します
MsgBox("今月は" & DatePart("m", Date) & "月です" & vbCR &_
"現在は" & DatePart("h", Time) & "時です")

------------------------------------------------


日付と時刻 日付や時間を加算したい DateAdd

------------------------------------------------

'DateAdd(1,2,3)
'1 加算の対象とする時間間隔の単位
'2 追加する時間間隔
'3 日付を表す式


'今日の日付、3週間後の曜日 7:30の15分前を表示します
MsgBox("今日の日付 => " & Date & vbCR &_
"3週間後 => " & DateAdd("ww",3,Date) & vbCR &_
"7:30の15分前 => " & DateAdd("n",-15,"7:30"))

------------------------------------------------


日付と時刻 二つの日付や時間の間隔を求めたい DateDiff

------------------------------------------------

'DateDiff(1,2,3[,4[,5]])
'1 時間間隔の単位
'2 日付を表す式
'3 日付を表す式
'4 週の一日目を表す定数 (省略可)
'5 年の一週目を表す定数 (省略可)

'指定した日付までの日数と週数を表示


newyear = "2011/1/1"
MsgBox("今日の日付 => " & Date & vbCR &_
"2011年まで => " & DateDiff("y",Date,newyear) & "日" &_
"[" & DateDiff("ww",Date,newyear) & "週間]")

------------------------------------------------


日付と時刻 指定した年、月、日を日付型に変換したい DateSerial

------------------------------------------------

'DateSerial(1,2,3)
'1 年
'2 月
'3 日


y = 2010
m = 8
d = 20
MsgBox(DateSerial(y,m,d))

------------------------------------------------


日付と時刻 指定した日付文字列を日付型に変換したい DateValue

------------------------------------------------

'DateValue(1)
'1 日付を表す式


MsgBox(DateValue("2007-Jan-4") & vbCR &_
DateValue("平成10年1月3日") & vbCR &_
DateValue("S63-1-1") & vbCR &_
DateValue("H13-4-1") )

------------------------------------------------


日付と時刻 指定した時、分、秒を日付型に変換したい TimeSerial

------------------------------------------------

'TimeSerial(1,2,3)
'1 時
'2 分
'3 秒
'引数に10,65,32を指定すると 11:05:32になるので注意 繰り上げられる
'-32768-32767の範囲を超えるとエラー 23:59:59を超える場合もエラー


h = 7
m = 15
s = 0
MsgBox(TimeSerial(h,m,s))

------------------------------------------------


日付と時刻 指定した様々な書式の時刻を日付型に変換したい TimeValue

------------------------------------------------

'TimeValue(1)
'時刻を表す式


MsgBox(TimeValue("7:30PM") & vbCR &_
TimeValue("19:30"))

------------------------------------------------


省略すると1(日曜開始)が適用
定数  設定値 内容
vbUseSystem0各国語対応(NLS) API
vbSunDay|1日曜
vbMonday2月曜
vbTuesday3火曜
vbWendnesday4水曜
vbThursday5木曜
vbFriday6金曜
vbSaturday7土曜
   
年の一週目  
定数  設定値 内容
vbUseSystem0各国語対応(NLS) API
vbFirstJan111/1を含む週を年の第一週として扱う
vbFirstFourDays21週間のうち4日以上が新しい年に含まれる週を年の第一週として扱う
vbFirstFullWeek3全体が新年度に含まれる最初の週を年度の第1週として扱う

関連記事







テーマ:プログラミング - ジャンル:コンピュータ


  1. 2010/10/19(火) 21:09:15|
  2. VBScript
  3. | トラックバック:0

トラックバック

トラックバック URL
http://pcmemorin.blog.fc2.com/tb.php/26-24bfaab2
この記事にトラックバックする(FC2ブログユーザー)


サイトマップ・お奨め記事

CentOS7 まとめ
Ubuntu14 まとめ
Ubuntu12用無線アダプタ紹介
Ubuntu12 まとめ
Server 2008R2 まとめ
SCCM2012R2 まとめ
Windows10 アップグレード
Windows7 まとめ
Windows7 SSD まとめ
Windows8 まとめ
EaseUS Todo Backup Server
Linux Destbision まとめ
Linuxコマンド関連Index
Zorin8.1まとめ
Fedora17まとめ
Fedora15まとめ
VB Script まとめ
USB3.0で快適バックアップ
リンク集・メール


スポンサードリンク


リンク


サイト登録Paseon

・はじめての自宅サーバ構築 - Fedora/CentOS -

・Fedoraで自宅サーバー構築

・CentOSで自宅サーバー構築

・ぼくんちのTV別館

・ネットセキュリティブログ

・まとめ横丁

・オールフリーソフト


相互リンク更新情報
BookMark
GPUベンチマーク(ドスパラ)
VMware OS仮想化
EaseUS
Fedora releases ISO
【Http外部からの表示確認】
ポートスキャンチェック
IPA情報処理推進機構
無料DNS ieServer
無料DNS-MyDNS
yahooログイン履歴チェック
メール不正中継拒否テスト
Fedora Project
allbootdisks
Edy Viewer
ESXi動作実績ハードウェア@Wiki
IEEE Standards

---ライセンス認証解除系リンク---
ShadowProtect Personal
.NET製品
弥生



--所有サーバーWiki--
NEC Express5800/S70
HP ProLiant ML110G5
PRIMERGY TX100 S3

このブログをリンクに追加する

カテゴリ

Linux (45)
Linux-CentOS7 (70)
Linux-Ubuntu14.04 (87)
Linux-Ubuntu12.04 (76)
Linux-Zorin8.1 (36)
Linux-Fedoras.soft (19)
Linux-Fedora18 (11)
Linux-Fedora17 (39)
Linux-Fedora15 (60)
Linux-Fedora11 (36)
Linux-Fedora16 (1)
Linux-Security (3)
Linux/Unix シェル (38)
Linux Distribution (53)
仮想OS (31)
Windows Server 2008 (254)
Windows Server 2012 (30)
Windows Server コマンド (39)
Windows Server アプリ (14)
Windows (40)
Windows 10 (3)
Windows 7 (59)
Windows 8 (257)
Windowsアプリ (23)
Windows 8 アプリ (29)
Windows レジストリ (6)
Windows BAT (17)
ネットワーク (5)
MySQL (1)
ニュース (8)
ハードウェア (11)
Windows VBScript-Basp21 (1)
VBScript (29)
Windows Vista (1)
Windows グループポリシー (3)
Security (6)
未分類 (4)
クールなアイテムまとめ (5)
Game (1)
PowerShell (4)


Linux ブログランキングへ

カテゴリ2

SCCM Backup 遠隔操作 VirtualBox FeliCaポート/パソリ ESXi 

カウンター

RSSリンクの表示

アクセスランキング

[ジャンルランキング]
コンピュータ
144位
アクセスランキングを見る>>

[サブジャンルランキング]
その他
31位
アクセスランキングを見る>>



フィードメーター - ほぷぅ(。・ω・) ノ PCまとめ Linux,Win,自宅サ..


Windows ブログランキングへ

にほんブログ村 IT技術ブログ IT技術メモへ
にほんブログ村

全記事表示リンク

全ての記事を表示する

検索フォーム

RSSリンクの表示

 



Linux ブログランキングへ





<%plugin_third_title>

<%plugin_third_description>

<%plugin_third_content>

<%plugin_third_description2>