China DOS Union

All deleted

For example: Date 2007-03-31 3 is to query the date 3 days later.

Originally posted by slore at 2007-5-1 18:50:
vbs:
execute("msgbox #2007-03-30#+3")

vbs (No use of functions like cdate, no calling of system API functions)

Originally posted by zh159 at 2007-5-1 10:34 AM:

It feels like saying: Do not use fuel such as gasoline, how do you start the car

This statement of mine is not rigorous enough... Change the statement (Do not call time-related APIs)

'------------------------Define class---------------------
Class MyClass
'-----------------Define variables used by the class-------------
Private class_name
'---------------------Class initialization process---------------
Private Sub Class_Initialize()
class_name="MyClass"
End Sub
'-----------------------Get class property-------------------
Public Property Get MyName
MyName = class_name
End Property
'-----------------------Write class property-------------------
Public Property Let MyName(ByVal strName)
class_name = strName
End Property
'-----------------------Define class procedure-------------------
Public Sub CheckName()
If Me.MyName = "MyClass" Then
MsgBox "Currently is the default name",,"Status"
Else
MsgBox "Name has been modified to:" & Me.MyName,,"Status"
End If
End Sub
'-----------------------Class termination process-------------------
Private Sub Class_Terminate()
End Sub
End Class
'-----------------------Class definition completed-------------------
'
'
'
'----------Simple process to call the class---------------
Dim X
Set X = New MyClass
MsgBox X.MyName
X.CheckName
X.MyName = "I am a new name"
X.CheckName
MsgBox X.MyName
Set X = Nothing
'----------------Call completed-----------------

Originally posted by slore at 2007-5-2 04:12 AM:
VBS can write classes:



Haha, but I don't know how to apply the class...
P is too slow, tried to calculate 8000 days directly.....

@echo off

title Date Query

color 1f

if == call :Help

call :Date2Day %1 days

set/a days=%days%+%2

call :Day2Date %days% date

echo.

echo -----------Result---------------

echo.

echo The date you inquired is: %date%

echo ------------------------------

cmd /k



:Date2Day

setlocal ENABLEEXTENSIONS 

for /f "tokens=1-3 delims=/-, " %%a in ('echo/%1') do ( 

  set yy=%%a & set mm=%%b & set dd=%%c 

)

set /a dd=100%dd%%%100,mm=100%mm%%%100 

set /a z=14-mm,z/=12,y=yy+4800-z,m=mm+12*z-3,j=153*m+2 

set /a j=j/5+dd+y*365+y/4-y/100+y/400-2472633

endlocal&set %2=%j%&goto :EOF 



:Day2Date

setlocal ENABLEEXTENSIONS 

set /a i=%1,a=i+2472632,b=4*a+3,b/=146097,c=-b*146097,c/=4,c+=a 

set /a d=4*c+3,d/=1461,e=-1461*d,e/=4,e+=c,m=5*e+2,m/=153,dd=153*m+2,dd/=5 

set /a dd=-dd+e+1,mm=-m/10,mm*=12,mm+=m+3,yy=b*100+d-4800+m/10 

(if %mm% LSS 10 set mm=0%mm%)&(if %dd% LSS 10 set dd=0%dd%) 

endlocal&set %2=%yy%-%mm%-%dd%&goto :EOF 



:Help

    cls

    echo ________________________________________________                       

    echo Usage: %~nx0   

    echo.                           

    echo Date format: 2007-03-31                     

    echo Days format: +/- Days to query                        

    echo Example: %~nx0 2007-03-31 3 is to query the date 3 days later  

    echo ________________________________________________

    echo.

    cmd /k

Originally posted by youxi01 at 2007-5-2 04:22 AM:
In fact, the old moderator willsort has already written the corresponding code. However, so far, I still haven't figured out the related calculation principle.

Using this code, the requirements related to the challenge question can be written. ...