昨日の日付を表示するVBスクリプトです。
現在の日付を求めるために別の関数を呼んでいます。
Option Explicit Dim STR_Yesterday Dim STR_Temp STR_Temp = Get_YYYYMMDD(1) STR_Yesterday = DateAdd("d",-1,STR_Temp) WScript.Echo STR_Yesterday Private Function Get_YYYYMMDD(ByVal STR_Flag) Dim STR_Temp Dim STR_YYYY Dim STR_MM Dim STR_DD If Not IsNumeric(STR_Flag) Then Exit Function End If STR_Temp = Year(Now) If Len(STR_Temp) = 2 Then STR_Temp = "20" & STR_Temp End If STR_YYYY = STR_Temp STR_Temp = Month(Now()) If Len(STR_Temp) = 1 Then STR_Temp = "0" & STR_Temp End If STR_MM = STR_Temp STR_Temp = Day(Now()) If Len(STR_Temp) = 1 Then STR_Temp = "0" & STR_Temp End If STR_DD = STR_Temp Select Case STR_Flag Case 0 GET_YYYYMMDD = STR_YYYY & STR_MM & STR_DD Case 1 GET_YYYYMMDD = STR_YYYY & "/" & STR_MM & "/" & STR_DD Case 2 GET_YYYYMMDD = "#" & STR_DD & "/" & STR_MM & "/" & STR_YYYY & "#" End Select End Function
Scriptのダウンロードは こちら です。
gửi hàng đi mỹ says:
… [Trackback]
[…] Read More to that Topic: dragon-ark.com/archives/120 […]
2021/06/14, 16:11W88casino says:
… [Trackback]
[…] There you will find 58828 more Info to that Topic: dragon-ark.com/archives/120 […]
2021/06/15, 19:04Darknet Links says:
… [Trackback]
[…] Read More on that Topic: dragon-ark.com/archives/120 […]
2021/06/16, 09:26exchange online plan 2 says:
… [Trackback]
[…] Info on that Topic: dragon-ark.com/archives/120 […]
2021/06/27, 03:02adsl teknik servis says:
… [Trackback]
[…] Find More on that Topic: dragon-ark.com/archives/120 […]
2021/06/28, 11:10it danışmanlık ücretleri says:
… [Trackback]
[…] Info on that Topic: dragon-ark.com/archives/120 […]
2021/07/03, 13:56Sunucu Teknik Servis says:
… [Trackback]
[…] Read More on to that Topic: dragon-ark.com/archives/120 […]
2021/07/03, 15:52HP Server Teknik Destek says:
… [Trackback]
[…] Information on that Topic: dragon-ark.com/archives/120 […]
2021/07/03, 19:53쿠쿠티비 says:
… [Trackback]
[…] Read More here on that Topic: dragon-ark.com/archives/120 […]
2021/08/02, 20:40Guns For Sale says:
… [Trackback]
[…] Find More Information here on that Topic: dragon-ark.com/archives/120 […]
2021/08/21, 23:16Will they be Windows 11? says:
… [Trackback]
[…] Find More on to that Topic: dragon-ark.com/archives/120 […]
2021/08/23, 14:11Online casino says:
… [Trackback]
[…] Find More here to that Topic: dragon-ark.com/archives/120 […]
2021/10/17, 19:13buy mushroom online says:
… [Trackback]
[…] Read More Info here on that Topic: dragon-ark.com/archives/120 […]
2021/10/20, 18:00relx says:
… [Trackback]
[…] There you can find 87795 additional Info on that Topic: dragon-ark.com/archives/120 […]
2021/10/27, 09:59เช่าเรือกรุงเทพ says:
… [Trackback]
[…] Here you will find 86798 more Information on that Topic: dragon-ark.com/archives/120 […]
2022/02/21, 09:23productmens rolex yacht master 116621 black replica watch says:
… [Trackback]
[…] Info on that Topic: dragon-ark.com/archives/120 […]
2022/03/12, 18:34ip booter says:
… [Trackback]
[…] Read More Information here to that Topic: dragon-ark.com/archives/120 […]
2022/03/25, 07:25สล็อตวอเลท ไม่มีขั้นต่ำ says:
… [Trackback]
[…] Read More Information here to that Topic: dragon-ark.com/archives/120 […]
2022/04/09, 17:24jetsadabet says:
… [Trackback]
[…] Read More on that Topic: dragon-ark.com/archives/120 […]
2022/04/26, 07:39beer777 says:
… [Trackback]
[…] Information on that Topic: dragon-ark.com/archives/120 […]
2022/05/01, 08:33