昨日の日付を表示する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:33350 Legend Rifle Ar says:
… [Trackback]
[…] Information to that Topic: dragon-ark.com/archives/120 […]
2022/05/29, 07:47Mature Parrots For Sale says:
… [Trackback]
[…] Find More Information here on that Topic: dragon-ark.com/archives/120 […]
2022/06/25, 04:24ขายเฟสบุ๊คยิงแอด says:
… [Trackback]
[…] Read More Info here on that Topic: dragon-ark.com/archives/120 […]
2022/07/03, 08:02Sig Sauer P320 Xcompact Spectre says:
… [Trackback]
[…] Read More on to that Topic: dragon-ark.com/archives/120 […]
2022/07/04, 09:30Buy Trophy Copper 308 Win says:
… [Trackback]
[…] Find More on on that Topic: dragon-ark.com/archives/120 […]
2022/07/06, 07:33สล็อตวอเลท ไม่มีขั้นต่ำ says:
… [Trackback]
[…] Read More to that Topic: dragon-ark.com/archives/120 […]
2022/08/20, 08:05check it out says:
… [Trackback]
[…] Find More Info here on that Topic: dragon-ark.com/archives/120 […]
2022/08/21, 23:35sbo says:
… [Trackback]
[…] Read More Information here to that Topic: dragon-ark.com/archives/120 […]
2022/08/22, 09:59penis envy mushroom, says:
… [Trackback]
[…] Find More on to that Topic: dragon-ark.com/archives/120 […]
2022/08/26, 22:19Darknet Anleitungen says:
… [Trackback]
[…] Read More on on that Topic: dragon-ark.com/archives/120 […]
2022/09/01, 00:07Alphabay Market says:
… [Trackback]
[…] Find More Information here on that Topic: dragon-ark.com/archives/120 […]
2022/09/01, 00:16Buy ketamine online Melbourne says:
… [Trackback]
[…] Information to that Topic: dragon-ark.com/archives/120 […]
2022/09/01, 00:34Buy mushroom microdose online Melbourne says:
… [Trackback]
[…] Find More to that Topic: dragon-ark.com/archives/120 […]
2022/09/01, 01:233perambulator says:
3languages
2022/09/02, 21:43lady gaga gay chat emoji says:
gay bi text chat https://newgaychat.com/
2022/09/03, 07:30gay pnp chat free says:
snap chat gay boy dick https://gaychatcams.net/
2022/09/03, 12:29totally free gay phone chat says:
gay black chat – live gay black men https://gaychatspots.com/
2022/09/03, 19:12gay webcam chat zoom says:
gay hot chat https://gay-live-chat.net/
2022/09/03, 22:22richie rose gay chat gay says:
free gay phone chat https://chatcongays.com/
2022/09/04, 03:42gay random chat says:
gay masturbation chat https://gayphillychat.com/
2022/09/04, 06:40in gay chat what is an poz? says:
chat de gay usa avenue https://gaychatnorules.com/
2022/09/04, 11:25ring central gay pnp slam 2019 room chat code says:
chat gay en español https://gaymusclechatrooms.com/
2022/09/04, 20:05gay chat random says:
gay phone sex chat commercial https://free-gay-sex-chat.com/
2022/09/04, 23:06fee gay chat says:
any gay college chat rooms? https://gayinteracialchat.com/
2022/09/05, 03:14how to get 4000 watch hours on youtube says:
… [Trackback]
[…] Here you will find 39977 additional Info to that Topic: dragon-ark.com/archives/120 […]
2022/09/09, 07:36