Új hozzászólás Aktív témák
-
cigam
titán
Batch-ban elég körülményes, mert az adott hónap határozza meg, hogy hány napos(nem is beszélve a szökőévekről)
Általában erre van a legtöbb találat:
::================================================
:: TOMORROW.BAT - Written by Paul Tomasi (c)2010
::
:: Function to return tomorrow's date
::================================================
@echo off
set /a d=%date:~0,2%
set /a m=%date:~3,2%
set /a y=%date:~6,4%
:loop
set /a d+=1
if %d% gtr 31 (
set d=1
set /a m+=1
if %m% gtr 12 (
set m=1
set /a y+=1
)
)
xcopy /d:%m%-%d%-%y% /h /l "%~f0" "%~f0\" >nul 2>&1 || goto loop
echo %d%/%m%/%y%De ugye itt minden hónap 31 napos. Ezt elkerülendő egy ügyes trükk, hogy kiszámolod hogy a jelenlegi (Julianus) naptár szerinti hányadik nap van ma. Ahhoz hozzáadsz 1-et, és kiszámolod, hogy az melyik év hányadik haónapjának melyik napja.:
@echo off &SETLOCAL
SET "today=%date%"
ECHO(today is %today%
CALL:DateToJDN %today% todayNo
ECHO(this is day no. %todayNo%
SET /a tomorrowNo=todayNo+1
ECHO(tomorrow is day no. %tomorrowNo%
CALL:JDNToDate %tomorrowNo% tomorrow
ECHO(tomorrow is %tomorrow%
GOTO:EOF
rem Convert the date to Julian Day Number
:DateToJDN dd.mm.yyyy jdn=
setlocal
set date=%1
set /A yy=%date:~-4%, mm=1%date:~-7,2% %% 100, dd=1%date:~-10,2% %% 100
set /A a=mm-14, jdn=(1461*(yy+4800+a/12))/4+(367*(mm-2-12*(a/12)))/12-(3*((yy+4900+a/12)/100))/4+dd-32075
endlocal & set %2=%jdn%
exit /B
rem Convert Julian Day Number back to date
:JDNToDate jdn dd.mm.yyyy=
setlocal
set /A l=%1+68569,n=(4*l)/146097,l=l-(146097*n+3)/4,i=(4000*(l+1))/1461001,l=l-(1461*i)/4+31,j=(80*l)/2447,dd=l-(2447*j)/80,l=j/11,mm=j+2-(12*l),yy=100*(n-49)+i+l
if %dd% lss 10 set dd=0%dd%
if %mm% lss 10 set mm=0%mm%
endlocal & set %2=%dd%.%mm%.%yy%
exit /B
endlocalCsak itt is figyelni kell, hogy angol, vagy magyar kiosztású a dátum.
Új hozzászólás Aktív témák
- Samsung Galaxy S26 Ultra - fontossági sorrend
- Audi, Cupra, Seat, Skoda, Volkswagen topik
- Konteó topic
- Otthoni hálózat és internet megosztás
- exHWSW - Értünk mindenhez IS
- Steam topic
- Információbiztonság, kiberbiztonság, adatvédelem
- Melyik tápegységet vegyem?
- 50 év után kilőtt négy űrhajós a Holdra
- Milyen autót vegyek?
- További aktív témák...
- teljesen ÚJ Bontatlan Apple iPhone 17e 256GB ! 1Év nemzetközi APPLE GARANCiA
- ÚJ bontatlan Apple iPhone 17 Pro Max 256GB ! aktiválástól 1 ÉV nemzetközi APPLE GARANCiA
- Aorus RGB 16GB (2x8GB) DDR4 3333MHz GP-ARS16G33
- Genius SP-HF2800BT bluetooth hangszóró
- Kingston FURY Beast RGB 16GB (2x8GB) White RGB Special Edition DDR4 3600MHz CL17 KF436C17BWAK2/16
- iPhone 13 128GB 100% (1év Garancia) - ÚJ UTÁNGYÁRTOTT AKKUMULÁTOR
- Dell Latitude 5400,14",FHD,i5-8365U,8GB DDR4,256GB SSD,WIN11
- Ulefone RugKing 4 Pro
- Telefon felvásárlás!! iPhone X/iPhone Xs/iPhone XR/iPhone Xs Max
- BOMBA ÁRrR! Lenovo ThinkPad T14 Gen 4 Ryzen 5 PRO 7540U 14" FHD+ 32GB 1TB Lenovo gar: 2028.01.07!
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest
