Dato-konvertering ; ; ScriptNavn: DatoKonv.kix ; Lavet af: Brian Petersen ; Dato: 03.05.1998 ; Beskrivelse: Dato-konvertering, der konverterer til to-cifrede datoer og giver ugedagene danske navne. ; Description: Converting dates into Danish format... ; Definerer dato-variable... $Dag = @MDAYNO $Mdr = @MONTHNO $Aar = @YEAR ; Et-cifret dato konverteres til to-cifret (dag)... If @MDAYNO <= 9 $DRet = "0$Dag" $Dag = "$DRet" Endif ; Et-cifret dato konverteres til to-cifret (mdr)... If @MONTHNO <= 9 $MRet = "0$Mdr" $Mdr = "$MRet" Endif ? "Datoen er $Dag.$Mdr.$Aar" ; Navngiver ugedag... SELECT Case @WDAYNO = 1 $iDag = "Mandag" Case @WDAYNO = 2 $iDag = "Tirsdag" Case @WDAYNO = 3 $iDag = "Onsdag" Case @WDAYNO = 4 $iDag = "Torsdag" Case @WDAYNO = 5 $iDag = "Fredag" Case @WDAYNO = 6 $iDag = "Lørdag" Case @WDAYNO = 7 $iDag = "Søndag" ENDSELECT ? "Det er $iDag idag" ; Det hele kan kombineres... ? "Idag er det $iDag den $Dag.$Mdr.$Aar"