Datum letzter Samstag?

[Uwe Raabe]

Zitat von aphton:

Delphi-Quellcode:

function lastsaturday(const avalue: Tdatetime): Tdatetime;
asm
  add esp,-$14
  push dword ptr [ebp+$0c]
  push dword ptr [ebp+$08]
  call dayoftheweek
  movzx eax,ax
  inc eax
  neg eax
  mov [ebp-$14],eax
  fild dword ptr [ebp-$14]
  fadd qword ptr [ebp+$08]
  fstp qword ptr [ebp-$10]
  wait
  mov eax,[ebp-$10]
  mov [ebp-$08],eax
  mov eax,[ebp-$0c]
  mov [ebp-$04],eax
  fld qword ptr [ebp-$08]
  mov esp,ebp
  pop ebp
  ret $0008
end;

wtf?